#!/usr/local/bin/perl
require "/home/roger/lib/weblib.lib";
&ReadParse;
&htmlopen(Reflections);
print <<EOF;
<form action=$weblib::URL method=POST>
<input name=SongID value="$in{SongID}"> Song ID</br>
<textarea name=Reflect cols=80 rows=20 wrap=soft>$in{Reflect}</textarea>
<br>
<input type=submit>
</form>
EOF
if($in{SongID}){
open(FILE,">/home/todd/DQYDJII/$in{SongID}");
$reflect=$in{Reflect};
$reflect=~s/\r\n/\n/mg;
$reflect=~s/\n\n/\n<p>\n/mg;
print FILE "$reflect";
}
&htmlclose;