รหัสต้นฉบับเพื่อการศึกษา

File : menu.pl. ID : 1104

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame

#!/usr/local/bin/perl
&getcookie;
print "Content-type: text/html\n\n";
print"<body><form action=setdefault.pl method=post>";
print"<select name=begin>";
print"<option value=thaiall.com ";
if ($v{'begin'} eq "thaiall.com") {print "selected";}
print">thaiall.com<option value=thainame.net ";
if ($v{'begin'} eq "thainame.net") {print "selected";}
print">thainame.net<option value=thaiabc.com $c";
if ($v{'begin'} eq "thaiabc.com") {print "selected";}
print">thaiabc.com</select>";
print'<input type=submit value="Save as default"></form>';

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;
  }
}