#!/usr/local/bin/perl

##############################
#Post article of information #
#  by Matthew Manela         #
##############################

require 'subparseform.lib';
# sub parsing


$basedir = "/data1/blah.net/blah/";

$baseurl = "http://blah.blah.net";



&Parse_Form;
print "Content-type: text/html\n\n";

$tpass=$formdata{password};
$article=$formdata{text};
$destination=$formdata{destination};

#the source of the file to write to

@info=split(/\n/,$article);

# set $file to location of txt file
$file="$basedir$destination\.txt";


# make sure destination is within parameters
if($destination=~/^([a-zA-Z])+$/){
&main;
}else{
&filename;
}

sub main{

if(-e $file){
open(WRITE, ">$file")|| &filename;

foreach $line (@info){
print WRITE "$line\n";
}


close(WRITE);
}else{
&filename;
}
sub filename{

print"You can't write to that file!\n";
exit;
}