Code:

 

#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

@New =  ("Title=$Title&Content=$Content");

$Title = $formdata{'Title'};
$Content = $formdata{'Content'};

@New =  ("Title=$Title&Content=$Content");

open (LOG, ">>http://www.davidturpy.com/perl/Ex2TextFile.txt") || &ErrorMessage;
print LOG "@New";
close (LOG);


print "Content-type: text/html\n\n";
print "Status=Success - Your Comments have beed updated. Please return to the main area to see the results";

sub ErrorMessage {
print "Content-type: text/html\n\n";
print "Status=Connection Failed Please Check the path to the text File";
exit;
}


Code:

 

sub Parse_Form {
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
 @pairs = split(/&/, $ENV{'QUERY_STRING'});
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
 read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 @pairs = split(/&/, $buffer);
 
 if ($ENV{'QUERY_STRING'}) {
  @getpairs =split(/&/, $ENV{'QUERY_STRING'});
  push(@pairs,@getpairs);
  }
} else {
 print "Content-type: text/html\n\n";
 print "<P>Use Post or Get";
}

foreach $pair (@pairs) {
 ($key, $value) = split (/=/, $pair);
 $key =~ tr/+/ /;
 $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

 $value =~s/<!--(.|\n)*-->//g;

 if ($formdata{$key}) {
  $formdata{$key} .= ", $value";
 } else {
  $formdata{$key} = $value;
 }
}
}
1;



Code:

 

Title=This is the Title&Content=This is body content, both should be editable!!

Joezif

May 30, 2005 09:41 PM

Lol. There's always someone knows something that's totally useless I just hope there's several of them on IF.