package CosmicSub;
### A variety of common routines provided by CosmicScripts.com and CosmicPerl.com
use strict;
sub Form_Post_Data {
### Get's POST form data
  my %FORM;
  read(STDIN, my $buffer, $ENV{'CONTENT_LENGTH'});
  my @pairs = split(/&/, $buffer);
  foreach my $pair (@pairs) {
    my ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    if (exists $FORM{$name}) {
      $FORM{$name} .= "¦$value";
    } ## End if
    else {
      $FORM{$name} = $value;
    } ## End else
  }
  return %FORM;
} ## End sub
sub Form_Get_Data {
### Get's GET form data
  my %WHATWANT;
  my @values = split(/\&/,$ENV{'QUERY_STRING'});
  foreach my $i (@values) {
    my ($varname, $mydata) = split(/=/,$i);
    $mydata =~ tr/+/ /;
    $mydata =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $varname =~ tr/+/ /;
    $varname =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $WHATWANT{$varname} = $mydata;
  } ## End loop
  return %WHATWANT;
} ## End sub


##################################################
######################## Remove a single line number from a file
##################################################