sub library_read_form {
 # Reads the incoming data from the web browser
 my ($buffer,$pair,$datasent,$name,$value,$mydata,$filename,$contenttype)=("","","","","","","","");
 if (length($ENV{'CONTENT_LENGTH'})>0) {
  if ($ENV{'CONTENT_TYPE'}=~/^multipart\/form-data/i) {
   binmode(STDIN); # cope with Win platforms  }
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  if (length($ENV{'QUERY_STRING'}>0)) { $buffer.="&".$ENV{'QUERY_STRING'};}
 } else {
  $buffer=$ENV{'QUERY_STRING'};
 }
 foreach $var (sort(keys(%ENV))) {
  $val = $ENV{$var};$val =~ s|\n|\\n|g;$val =~ s|"|\\"|g;
 }
 if (($buffer=~/^\<doc /) && ($buffer=~/\<\/doc\>\n?$/)) {
  ### section removed.....
  ### don't ask what this did or why, I'm not allowed to say :(
 } else {
  if (!($ENV{'CONTENT_TYPE'}=~/^multipart\/form-data/i)) {
   @pairs = split(/(&|;)/, $buffer);
   foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $datasent.=";$name=$value";
    if (length($form{$name})>0) { $value=$form{$name}."\0".$value; }
    $form{lc($name)} = $value;
   }
  } else {
   $ENV{'CONTENT_TYPE'}=~/boundary=([^"]+)/i;
   $boundary="--".$1;$section=0;
   @lines=split(/(\n|\r)/,$buffer);
   MULTIPART: foreach $line (@lines) {
    if ($section==3) { 
     if ($line=~/content-type:\s?(.*)/i) {
      $contenttype=$1;
     } elsif (!($line=~/^(\n|\r|\n\r|\r\n)?$/)) {
      $section=4;
     }
    } elsif ($section==2) {
      if ($line=~/^content-type:\s?(.*)/i) {
      $contenttype=$1;
     } elsif ($line=~/^(\n|\r|\n\r|\r\n)?$/) {
      $section=3; # data possibly starts next line
     }
    } elsif ($section==1) {
       if ($line=~/^content-disposition:\s?form-data;\s?name="([^"]+)"(.*)$/i) {
      $name=$1;if ($2=~/filename="([^"]+)"/) { $filename=$1; }
      $section=2; # prepare for data
     }
    }
    if ($line=~/^$boundary(--)?$/) {
     $section=1;# found boundary
     if ((length($name)>0) && (length($filename)<1)) {
      chomp($mydata);chop($mydata); # munch munch
      $datasent.=";$name=$mydata";
      if (length($form{$name})>0) { $mydata=$form{$name}."\0".$mydata; }
      $form{lc($name)}=$mydata;
     } elsif (length($name)>0) {
      $form_filenames{$name}=$filename;$form_contenttype{$name}=$contenttype;
      $tempfile=$tempdir.(time())."_".int(rand(300000));
      $tempfile.=".tmp";
      open (DATA,">".$tempfile) || die("Unable to open temp dir for storage\n");
      binmode(DATA);print DATA $mydata;close DATA;
      $form_data{$name}=$tempfile;
     }
     $name="";$mydata="";$filename="";$contenttype="";
    } 
    if ($section==4) {
     $mydata.=$line;
    }
   }
  }
 }
 $datasent.=";";
}