Add a New Phone Number
Add a New Phone No
Forename:
Surname:
Department:
Phone No:
Comments:
#!c:\perl\bin
print "Content-type: text/html\n\n";
read(STDIN,$tempbuffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$tempbuffer);
foreach $item(@pairs){
($key,$content)=split(/=/,$item,2);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/g;
$fields{$key}=$content;
print "$key";
print " contains $content";
}