;
foreach (@lines){($id,$month,$day,$year,$date,$name,$mail,$url,$country,$ip,$desc,$reply) = split(/\|/,$_);
if ($id eq "$id2"){
print qq~
Content: |
|
$desc |
|
~;
print qq~
REPLY
THIS MESSAGE :
~;
}
}
}
sub reply1 {
$nameg = $form{'nameg'};
$emailg = $form{'emailg'};
$comg = $form{'comg'};
$reply2 = $form{'reply2'};
$id2 = $form{'id'};
$reply2 =~ s/</g;$reply2 =~ s/>/>/g;$reply2 =~ s/\cM//g;$reply2 =~ s/\n\n//g;
$reply2 =~ s/\n/
/g;
if(($reply2 ne "") and ($nameg ne "")){
open(FILE, "$base");
@indata = ;
close(FILE);
open(FILE, ">$base");
foreach $temp (@indata)
{
@tem=split(/\|/,$temp);
$count=grep(/|/,@tem);
($id,$month,$day,$year,$date,$name,$mail,$url,$country,$ip,$desc,$reply) = split(/\|/, $temp);
$bg=0;
$icount=2;
if ($id eq "$id2") {
#push(@tem,$reply2);
foreach $intext (@tem)
{
# $intext.='|';
if($bg==0){
print FILE "$intext";
}
else{
if($icount<$count){
print FILE "|$intext";
}
if($icount==$count){
#($ntext)=split(/\|/, $intext);
if($reply eq ""){
print FILE "|$nameg|$emailg|$comg|$reply2|\n";
}
else{
print FILE "|$intext|$nameg|$emailg|$comg|$reply2|\n";
}
#print "$ntext";
}
}
$bg=1;
$icount++;
}
}
else{
foreach $intext (@tem)
{
if($bg==0){
print FILE "$intext";
}
else{
print FILE "|$intext";
}
$bg=1;
}
}
#$intext.=$reply;
#print FILE "\n";
}
close(FILE);
#print "$text1";
print "";
print "Message has been successfully REPLIED.
";
print "<< Go Back" ;
#print "Location: $scripturl?action=view&first=1&page=0\n\n";
}
}
sub error {
print qq~
Error
~;
&footer;
exit 0 ;
return 1 ;
}
sub header {
if(($action eq 'reply1') or ($action eq '')){
open(FILE,"header1.htm");
}
else{
open(FILE,"$header");
}
while() {
print $_;
}
}
sub footer {
if(($action ne 'reply1') or ($action ne 'sform') or ($action ne '')){
open(FILE,"$footer");
}
while() {
print $_;
}
}
sub home {
print qq~
~;
}
sub sform {
if ($ENV{'QUERY_STRING'}) {$namevalues = $ENV{'QUERY_STRING'};}
else {read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});}
@pairs = split(/&/, $namevalues);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value =~ s/<([^>]|\n)*>//g;
$form{$name} = $value;}
$message = "" ;
$found_err = "" ;
$words= '30' ;
$vocal = "temp_words.txt";
$message = "" ;
$found_err = "" ;
$new_word = $form{'desc'};
$new_word =~ s/ /\n/g;
$new_word =~ s/<([^>]|\n)*>//g;
open(FILE, ">$vocal");
print FILE "$new_word" ;
close(FILE);
open(FILE, "$vocal");
@eword = ;
close(FILE);
foreach $eword(@eword) {
chomp($eword);
if (length("$eword") > $words ){
$errmsg = "No more grrrrrrrrrr pleeeeeeeeease
\n" ;
$message = $message.$errmsg ;
$serror = 1 ; }
}
@months = ('Jan','Feb','Mar','Apr','May','June','July','Aug','Sept','Oct','Nov','Dec');
@days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$year += 1900;$date = "$months[$mon] $mday,$year";
@months_digi = ('01','02','03','04','05','06','07','08','09','10','11','12');
@days_digi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$year += 1900;
$months_digi = "$months_digi[$mon]";
$day = "$mday";
if (length($day)<2) {$day = "0$day"}
#random ID
$tt = time;
$n=substr($tt,4,);
$id="$n$$";
$name = $form{'name'};
$mail = $form{'mail'};
$url = $form{'url'};
$country = $form{'country'};
$desc = $form{'desc'};
$desc =~ s/</g;$desc =~ s/>/>/g;$desc =~ s/\cM//g;$desc =~ s/\n\n//g;
$desc =~ s/\n/
/g;
#mail check
$errmsg = "
Enter Valid E-Mail Address
\n" ;
if ($mail !~ /.+\@.+\..+/) {
$message = $message.$errmsg ;
$serror = 1 ; }
$errmsg = "E-Mail Address must be more than 6 charsters
\n" ;
if (length($mail)<6 || length($email)>40) {
$message = $message.$errmsg ;
$serror = 1 ; }
#name check
$errmsg = "Enter Your Name
\n" ;
if (length($name)<2) {
$message = $message.$errmsg ;
$serror = 1 ; }
#description check
$errmsg = "Comment field must be 400 characters or less
\n" ;
if (length($desc)<2 || length($desc)>400) {
$message = $message.$errmsg ;
$serror = 1 ; }
if ($serror) {
&error; }
open(FE, ">>$base");
print FE "$id|$months_digi|$day|$year|$date|$name|$mail|$url|$country|$ip|$desc|$reply|\n";
close(FE);
&thanks;
&home;
}
sub thanks {
print qq~
$added
~;
}
#If You want to delete this message contact me
sub iocopy {
print qq~
~;
}
&footer;