dmsparts has asked for the wisdom of the Perl Monks concerning the following question:
Hi,
I am trying to make a script call a url that sends text messages.
here is what i have to call,
where all the string elements are set as variables in the script below.http://www.intellisoftware.co.uk/smsgateway/sendmsg.aspx?username=xxx& +password=xxx&to=12345678&text=this%20is%20my%20text&sender=me
the script works in that I can get it to print on screen the exact url i need, but i am not sure how to make the script call that url in IE. Any Help would be appreciated. Cheers Michaelif ($form{'ASSMS'} eq "Yes") { $ring = "0"; $smsdate = $Day.$monnm.$yearx; $smslogtitle = $smsdate; $smstitlea = $form{'DESTINY'}; $smstitleb = "44"; $smstitled = substr($smstitlea, 1, 10); $smstitle = $smstitleb.$smstitled.$smstitlec; $smsuser = "xxx"; $smspass = "xxx"; $smsto = $smstitleb.$smstitled; $smssender = "DMSTEST"; $smsmsg = "$form{'DESC'} Ref: $form{'REQREF'}"; $smsmax = "3"; $smsmsg =~ s/\ /%20/g; $smsurl = "http://www.intellisoftware.co.uk/smsgateway/sendmsg.aspx?us +ername=$smsuser&password=$smspass&to=$smsto&from=$smssender&text=$sms +msg&maxconcat=$smsmax"; NEED TO CALL URL HERE $adtitle = $form{'FILEBIT'}; &oops('Cannot write') unless (open(NEWITEM, ">>$basepath/Parts/$adtitl +e.dat")); print NEWITEM "\n$form{'TSTAMP'}-$form{'initials'}-SMS-$form{'DESC'}"; close NEWITEM; $izsent = 1 ; open(NEWITEM, ">>$smslog/$smslogtitle.dat"); print NEWITEM "\n$Hour:$Minute-$form{'DESTINY'}-$form{'REQREF'}-$form{'DESC'}"; close NEWITEM; print $smsurl; print <<"EOF"; <p align="center"><font face="Verdana">Your text message has been logg +ed and sent !</p> EOF }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Call URL
by marto (Cardinal) on Nov 07, 2008 at 11:48 UTC | |
by Anonymous Monk on Nov 07, 2008 at 13:10 UTC | |
Re: Call URL
by f00li5h (Chaplain) on Nov 07, 2008 at 13:18 UTC | |
by ikegami (Patriarch) on Nov 07, 2008 at 20:44 UTC | |
by f00li5h (Chaplain) on Nov 08, 2008 at 03:33 UTC | |
by ikegami (Patriarch) on Nov 08, 2008 at 07:18 UTC | |
by f00li5h (Chaplain) on Nov 10, 2008 at 04:15 UTC | |
Re: Call URL
by ikegami (Patriarch) on Nov 07, 2008 at 20:50 UTC | |
Re: Call URL
by crusher (Acolyte) on Nov 07, 2008 at 20:02 UTC |
Back to
Seekers of Perl Wisdom