#!/usr/bin/perl

do "/usr/lib/horia-lib.pl";

use Cwd;

&parse_cgi_params;

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

#--------------------------------------------- citeste config din config.txt

if ($ARGV[0] eq 'init') {
	$cmd = 'touch urls.log; chmod 666 urls.log';      print "$cmd\n"; system($cmd); print "\n";
	$cmd = 'touch modif.log; chmod 666 modif.log';    print "$cmd\n"; system($cmd); print "\n";
	$cmd = 'touch erase.log; chmod 666 erase.log';    print "$cmd\n"; system($cmd); print "\n";
	exit;
	}


$crt_domain = &getcwd;
$crt_domain =~ s|^.*/||g;

$f_config = "/work/scripts/submitter/mailing-$crt_domain/info.txt";
$f_config = "config.txt" if (!(-f $f_config));


open F, $f_config;
while ($line = <F>) {
	$line =~ s|[\n\r]||g;
	if ($line =~ /=/) {
		$line =~ s|#.*$||;
		my ($var, $val) = split(/=/, $line, 2);
		$CONF{$var} = $val;
		}
	}
close(F);


$CONF{'Servername'} = $CONF{'servername'};
substr($CONF{'Servername'},0,1) = uc(substr($CONF{'Servername'},0,1));  

my $dom = $ENV{'SERVER_NAME'};
$dom =~ s|^www\.||g;
my $home = "/www/$dom";

$html = &cat("$home/sys_template.html");
$html =~ s|<!--A-->.*?<!--B-->| |gsi;
$html =~ s|<a href="add-link.cgi">Add your site</a>|Add your site|gsi;

if (!(defined $FORM{"url"})) {
	$form = &cat("$home/sys_form.html");
	$form =~ s|<!--SERVERNAME-->|$CONF{'servername'}|g;
	
	$html =~ s|<!--TITLE-->|$CONF{"servertitle"} - Submit a link|g;
	$html =~ s|<!--DIRLINKS-->|$form|g;
	
	print $html;
	exit;
	}


sub print_error_html {
my ($errmsg) = @_;
$html =~ s|<!--TITLE-->|$CONF{'servertitle'} - Submit a link - Error|g;
$html =~ s|<!--DIRLINKS-->|<center><font size=\"4\" face=\"Verdana,Arial\"><b>$errmsg</b></font><br><br><font face=\"Verdana,Arial\">Please press the Back button in your browser and modify the incorrect data.</font></center><br>|g;
print $html;
}


if ($FORM{"url"} eq "") {
	print_error_html("Please enter your URL!");
	exit;
	}

if ($FORM{"url"} eq "http://" || $FORM{"url"} !~ /^http:\/\//i) { 
	print_error_html ("Error: Incorrect URL");
        exit;
	}

if ($FORM{"title"} eq "" && $CONF{"notitle"} eq "") {
	print_error_html ("Error: Missing title");
	exit;
	}

if ($FORM{"description"} eq "" && $CONF{"nodescription"} eq "") {
	print_error_html ("Error: Missing description");
	exit;
	}

if ($FORM{"keywords"} eq "" && $CONF{"nokeywords"} eq "") {
	print_error_html ("Error: Missing keywords");
	exit;
	}


if ($FORM{"email"} eq "" && $CONF{"noemail"} eq "") {
	print_error_html ("Error: Incorrect email");
	exit;
	}

if (!&check_email($FORM{"email"}) && $CONF{"noemail"} eq "") {
	print_error_html ("You have not entered a valid email");
	exit 1;
	}


$email = $FORM{"email"};

$in = int `tail -1 urls.log`;	#id
$in++;

$FORM{"keywords"} =~ s/\r//g;
$FORM{"keywords"} =~ s/\n/,/g;
$FORM{"description"} =~ s/\</&lt;/g;
$FORM{"description"} =~ s/\>/&gt;/g;
$FORM{"title"} =~ s/\</&lt;/g;
$FORM{"title"} =~ s/\>/&gt;/g;
$FORM{"url"} =~ s/\</&lt;/g;
$FORM{"url"} =~ s/\>/&gt;/g;
$FORM{"description"} =~ s/"//g;
$FORM{"title"} =~ s/"//g;
$FORM{"url"} =~ s/"//g;


($tsec,$tmin,$thour,$tmday,$tmon,$tyear,$twday,$tyday,$tisdst) = gmtime(time+3*3600);
$tyear += 1900;
$tmon += 1;


$domain = $FORM{"url"};
$domain =~ s/^http:\/\///;
$domain =~ s/^www\.//;
$domain =~ s/\/.*$//;


open LOG, ">>urls.log";
$content = $in."|".$FORM{"url"}."|".$FORM{"title"}."|".$FORM{"description"}."|".
   	   $FORM{"linkurl"}."|".$FORM{"email"}."|".$FORM{"keywords"}."|$tyear:$tmon:$tmday|$thour:$tmin";
$content =~ s/\r//g;
$content =~ s/\n/\ /g;
print LOG $content . "\n";
close LOG;



$kw = $FORM{"site"};
$kw =~ s/\ /-/g;
$kw =~ s/-Resources$//gi;
 
$title = $CONF{"servername"};

$kwlower = lc($kw);

$registration_respose_html .= <<"(END)";
<center>
<font face="Verdana" size="4"> 
<b>Your site has been submitted to $CONF{'servername'}</b></font>
<br><font face="Verdana" size="3"> $CONF{'message1'}
<br>
Here is our reciprocal linking information:<p>

URL: http://www.$CONF{'servername'}/<br>
Description: $CONF{'linktext'}<p>

or just cut & paste this HTML<p>

<hr><p>

&lt;a href="http://www.$CONF{'servername'}/"&gt;$CONF{'servertitle'} - $CONF{'linktext'}&lt;/a&gt;<p>

<hr>
<br>Thank you!<br><br>
$str
</font></body></html>
(END)


#################################
$html =~ s|<!--TITLE-->|$CONF{"servertitle"} - Submit a link|g;
$html =~ s|<!--DIRLINKS-->|$registration_respose_html|g;

print $html;
#################################


if (&check_email($email)) {
	my $mail = <<"(END)";
From: "$CONF{'fullname'}" <$CONF{'confirm'}>
To: $FORM{"email"}
Content-type: text/html
Subject: $CONF{'servertitle'} link confirmation - $domain

Thank you for submitting your website to $CONF{'servername'}. We will update our website in the next few hours.<br><br>

Please add a link to $CONF{'servername'}, if you consider it useful to your visitors. Here is an example:<br><br>

--CUT--
<br><br>
&lt;a href="http://www.$CONF{'servername'}/"&gt;$CONF{'Servername'} - $CONF{'linktext'}&lt;/a&gt;
<br><br>
--CUT--
<br><br>
Thank you.<br><br>

Regards,<br>
$CONF{'fullname'}.

(END)
	open  SENDMAIL, "|sendmail $email" or print "Problem sending email:$!<br>\n";
	print SENDMAIL $mail;
	close SENDMAIL;
	}