sub smsreply{

$smsreply = 'd:\inetpub\wwwroot\cgi-bin\classads\test';


{ local ($buffer, @pairs, $pair, $name, $value, %FORM)}; 

# Read in text 

$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } 

else { $buffer = $ENV{'QUERY_STRING'}; } 

# Split information into name/value pairs 

@pairs = split(/&/, $buffer); 

foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /;

$postFields{ "$name" } = $value;
	
	#populatePostFields;
	
$from = $postFields{ "from" };
$msg = $postFields{ "text" };
$msgid = $postFields{ "msgid" };


open (SMSREPLY, ">>$smsreply/abc.txt");
print SMSREPLY "\n $name";
print SMSREPLY "\n $value";
close SMSREPLY;
  }
  
}