|
#!/usr/bin/perl &getcookie; if (!$v{'begin'}) { $v{'begin'}="thaiall.com";} print "Location: http://www.$v{'begin'}\n\n"; sub getcookie { use CGI qw/:standard/; use CGI::Cookie; %Cookies = fetch CGI::Cookie; foreach $r (keys %Cookies) { @rec = split(";",$Cookies{$r}); ($name,$value) = split("=",$rec[0]); $v{$name} = $value; } } |