#!/usr/local/bin/perl -- -*- C -*-

# Perl Routines to Manipulate CGI input
# S.E.Brenner@bioc.cam.ac.uk
# $Header: /people/seb1005/http/cgi-bin/RCS/cgi-lib.pl,v 1.2 1994/01/10 15:05:40 seb1005 Exp $
#
# Copyright 1993 Steven E. Brenner  
# Unpublished work.
# Permission granted to use and modify this library so long as the
# copyright above is maintained, modifications are documented, and
# credit is given for any use of the library.

# ReadParse
# Reads in GET or POST data, converts it to unescaped text, and puts
# one key=value in each member of the list "@in"
# Also creates key/value pairs in %in, using '\0' to separate multiple
# selections

# If a variable-glob parameter (e.g., *cgi_input) is passed to ReadParse,
# information is stored there, rather than in $in, @in, and %in.


sub print_header {
  print "content-type:text/html \n\n";
  return 1;
}


sub ReadParse 
{
  if (@_) {
    local (*in) = @_;
  }
  $in="";
  if ($ENV{'CONTENT_TYPE'}!~/multipart\/form-data/)  {
    local ($i, $loc, $key, $val);
    # Read in text
    if ($ENV{'REQUEST_METHOD'} eq "GET") {
      $in = $ENV{'QUERY_STRING'};
    } 
    elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
      for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) {
	$in .= getc;
      }
    } 

    @in = split(/&/,$in);

    foreach $i (0 .. $#in) {
# Convert plus's to spaces
$in[$i] =~ s/\+/ /g;

# Convert %XX from hex numbers to alphanumeric
$in[$i] =~ s/%(..)/pack("c",hex($1))/ge;

# Split into key and value.
$loc = index($in[$i],"=");
$key = substr($in[$i],0,$loc);
$val = substr($in[$i],$loc+1);
$in{$key} .= '\0' if (defined($in{$key})); # \0 is the multiple separator
$in{$key} .= $val;
$inord[$i] = $key;
#    print "$key = $in{$key}"
}
}
else
{
$| = 1;
if ($ENV{'REQUEST_METHOD'} eq "POST") 
{
  read(STDIN, local($buffer), $ENV{'CONTENT_LENGTH'});
} 
elsif ($ENV{'REQUEST_METHOD'} eq "GET") 
  { $buffer=$ENV{'QUERY_STRING'};
  }
if ($debug)  
  {	
    $bufferhtml=$buffer;
    $bufferhtml=~s/\n/\n<br>/g;
    print $bufferhtml;
  }
$buffer =~ /^(.+\r\n)/;
local($boundary)= $1;
local(@parts) = split(/$boundary/, $buffer);
local(@data,$name);
local($i);

foreach $part (@parts) 
  {	
    for ($i=0; $i<=2;$i++) # break each part into its 4 sections: name 
      {
	$part=~/\r\n/;
	$data[$i]="$`";  #Take this line of part
			    $part=$';            #keep rest of part 	
}

$data[3]=$part; 		 #remainder of part as binary data

($data[0]=~/name="([^"]+)"/i) && ($name=$1);	
		($data[0]=~/filename="([^"*]+)"/i) && ($filename{$name}=$1);
		$encoding{$name}=$data[1];
		if ($in{$name}) 
			{ $in{$name}.="\\0$data[2]";
			}
		else 
			{ $in{$name}=$data[2];
			}
		$filecontents{$name}=($data[3]);
		}
	}
	return %in;
}

# PrintHeader
# Returns the magic line which tells WWW that we're an HTML document

sub PrintHeader {
  return "Content-type: text/html\n\n";
}

# PrintVariables
# Nicely formats variables in an associative array passed as a parameter
# And returns the HTML string.

sub PrintVariables 
  {
  local (%in) = @_;
  local ($old, $out);
  $old = $*;  $* =1;
  $output .=  "<DL COMPACT>";
  foreach $key (sort keys(%in)) 
    {
    ($out = $in{$key}) =~ s/\n/<BR>/g;
    $output .=  "<DT><B>$key</B><DD><i>$out</I><BR>";
    }
  $output .=  "</DL>";
  $* = $old;

  return $output;
  }

# PrintVariablesShort
# Nicely formats variables in an associative array passed as a parameter
# Using one line per pair (unless value is multiline)
# And returns the HTML string.

sub PrintVariablesShort
  {
  local (%in) = @_;
  local ($old, $out);
  $old = $*;  $* =1;
  foreach $key (sort keys(%in)) 
    {
    if (($out = $in{$key}) =~ s/\n/<BR>/g) 
       { $output .= "<DL COMPACT><DT><B>$key</B> is <DD><i>$out</I></DL>";
       } 
    else 
       { $output .= "<B>$key</B> is <i>$out</I><BR>";
       }
    }
  $* = $old;

  return $output;
  }

sub getcgibin
  {
  open (PWD, "/usr/bin/pwd |");
  local($curdir) = <PWD>;
  
  ($cgidir) = $curdir =~ /(.*cgi-bin)/;
  return $cgidir;
  }

#do ReadParse;
#do PrintHeader;
#do PrintVariables;
1; #return true