Re^7: Http connection manipulations

Since the client is connected to you on 'port:15000', you could return the "where to go" by using the following in your code:

      . . .
      my $where = "...";      ## $where is the URL of the new destinat
+ion
      print "Content-type: text/html\r\n\r\n";
      print '<HTML>';
      print '<HEAD>';
      print '<META HTTP-EQUIV="Refresh" CONTENT="0; URL=http://' . $wh
+ere . '">';
      print '</HEAD>';
      print "</HTML>";
[download]

What the code does, is tell the clients browser to redirect to the new URL. You need to initialize '$where' with the new destination

Good Luck

"Well done is better than well said." - Benjamin Franklin

Comment on Re^7: Http connection manipulations Download Code

Replies are listed 'Best First'.
Re^8: Http connection manipulations by kazak (Beadle) on Jan 14, 2012 at 22:47 UTC
I've decided to change approach a bit because sometimes it'll be easier to write something new then to fix an old one so could you to refer to a new node for more details: http://www.perlmonks.org/?node_id=947916 Many thanks in advance.	[reply]