Send a String to another URL

virtualweb has asked for the wisdom of the Perl Monks concerning the following question:

Hi... I have a Form submitting data to a form processing script which shows the results in the browser.

Now I want to send some of the data from this form handler to another script in another URL.

Sinse I have the (print "Content-type: text/html\n\n";) Header up at top in my script

Example:

 
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use CGI qw(:standard);
use CGI::Carp (fatalsToBrowser);
$query = new CGI;
[download]

when I use "Location" as in the example below:

my $url = "http://www.myserver.com/cgi-bin/my_script.cgi?key1=value1&k
+ey2=value2&key3=value3";

print "Location: $url\n\n";
[download]

it doesnt work

what line of code should i use..??

Thank you

Comment on Send a String to another URL Select or Download Code

Replies are listed 'Best First'.
Re: Send a String to another URL by thewebsi (Scribe) on May 12, 2011 at 03:52 UTC
1. In HTTP, the headers and content are separated by an empty line. The "Location:" bit is supposed to go in the header, but because you have a "\n\n" printed out before it, it ends up in the content, and doesn't have the desired effect. I think you already figured this part out. 2. To show something on the browser AND send data to another URL is not something usually done with a redirect. For a server-side solution using Perl, look into http://search.cpan.org/perldoc?LWP instead (lots of documentation and examples if you look around). 3. Another option is AJAX, which is done through Javascript (not Perl). Some find this simpler, but it does rely on client-side technology, which has its drawbacks. Arnon Weinberg Back2Front - The Web Site People	[reply]
Re^2: Send a String to another URL by virtualweb (Sexton) on May 12, 2011 at 08:26 UTC
Thank you for you prompt response . My script is processing a purchase order from a shopping cart. I want to give the seller a sales notification via SMS, so I signed up with one of those Bulk API services. They gave me a URL where to send the parameters for a text message as follows: http://SERVERIP/httppush/http.aspx?text=TEXTMESSAGE&source=SOURCENUMBER&desti nation=DESTINATIONNUMBER&username=USERNAME&password=PASSWORD&datacodi ng=1 I need to replace all the Capitalized words with the pertinent information: The sender's number, the recipient's number, etc. If I cannot place the "Location" bit below the extra line caused by "\n\n" , is there a system call that can be used in this case..?? someone suggested: system("wget") but I dont have the complete construct of this line.	[reply]
Re^3: Send a String to another URL by thewebsi (Scribe) on May 12, 2011 at 13:57 UTC
See http://search.cpan.org/perldoc?LWP::Simple; you would use something like: `use LWP::Simple; my $url = "http://SERVERIP/httppush/http.aspx?text=TEXTMESSAGE&source= +SOURCENUMBER&desti nation=DESTINATIONNUMBER&username=USERNAME&passwor +d=PASSWORD&datacoding=1"; get ( $url );` [download] Arnon Weinberg Back2Front - The Web Site People	[reply] [d/l]
Re: Send a String to another URL by tospo (Hermit) on May 12, 2011 at 08:30 UTC
Why don't you make that form-processing script send a request to this other URL and process the response fomr that one? Why do you explicitly print a header in your script and not use the CGI.pm 'header' method?	[reply]
Re^2: Send a String to another URL by virtualweb (Sexton) on May 12, 2011 at 12:33 UTC
Hello Tospo.. thanx for your suggestions I taught myself perl through books and tutorials so I have many lagoons and holes in my knowledge... example, I never heard of the CGI.pm 'header' , I dont know how it is used and what the syntax is. Perhaps you could show me and then I could try. Thanx again	[reply]
Re^3: Send a String to another URL by tospo (Hermit) on May 12, 2011 at 15:49 UTC
ah, ok. In that case you should start with the CGI docs here. As you can see, you print the header like this: `use CGI; my $q = CGI->new; print $q->header(); ### generate and print more stuff for the web page here` [download] As suggested previously, you can use LWP::Simple to send your stuff and capture the response from the remote server, which might tell you if the message has been sent successfully if that service is well implemented. If you do get a "receipt" then it will probably be in XML format and you will then want to use a module that helps you with parsing the XML, something like XML::Simple (there are many options).	[reply] [d/l]