#!/usr/bin/perl 

use LWP::Simple qw();


# Set short name of category (not more 8 characters)
# Short name must be the same as name of this .pl file
# e.g. file name is health.pl, short name is health
# Type of OS ( u - Unix, w - Windows)

  


#Walli
#$ostype="w"; 
$ostype="u"; 
#$ostype="t"; 

#Walli
$catheadt="Cut-off machines and tooling";
$catname="reg505uus";
$catname2="add";
$catname3="add4";
$catname4="add4t";
$ekalippu="F";

$vain_osa="X";
$vipalippu="F";
# seuraavalla määritellään max postings per day
# Set the URL of the  cgi directory where script is placed
#walli
if ($ostype ne "w") {$urlbase="http://www.tubenet.org.uk/cgi/"}
if ($ostype eq "w") {$urlbase="http://k2/scripts/"}
$htmlbase="http://www.tubenet.org.uk/";



if ($ostype eq "w") {
require "/inetpub/scripts/html2.pl";
require "/inetpub/scripts/taulukot.pl";
require "/inetpub/scripts/lajit.pl"; }

if ($ostype ne "w") {
require "/var/www/customers/tubenet/public_html/cgi/html2.pl";
require "/var/www/customers/tubenet/public_html/cgi/taulukot.pl";
require "/var/www/customers/tubenet/public_html/cgi/lajit.pl"; }









# Set the base of the path of the directory where
# all database  files will be kept.
#walli
if ($ostype ne "w") {$basepath="/var/www/customers/tubenet/public_html/cgi/datat/"}
if ($ostype eq "w") {$basepath="/inetpub/wwwroot/"}

$mailprogram = "/usr/sbin/sendmail -t -oi";

#$omaemail = "admin\@tubenet.org";
$omaemail = "juha\@tubenet.org";



# number of Ads will be displays on each page
$hits =1000;
# Set allowing html tags in the ad , 1- yes,  0- no.

# Set max length in brief descriptions
$maxadln=400;
$maxpremadln=1000;


 
 
# Set up general html header and footer for all ad categories
$gfoot= <<HTMLF;

<CENTER><FONT SIZE="-1">Copyright &copy; Juha Haapala. All rights reserved.
                <br>Unauthorized use is strictly forbidden</FONT></CENTER>
<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
<BR><BR><BR><BR><BR><BR><BR><BR><BR>.
HTMLF
 


# Using local time (local) or GMT time (gmt)
$localgmt="local";
 

############################################################
# Congratulations!  You've finished defining the variables.#
############################################################




 
&parse_get;
$ctmd="md";

$alue=$GET{'alue'};
$laji=$GET{'laji'};
#if ($laji eq "soft"){$alue="usa"}

$valinta=$GET{'valinta'};
$valinta =~ s/%/ /g;

$time_now=time; chomp($time_now);
$action=$urlbase.$catname.".pl";
$action3=$urlbase.$catname3.".pl";
$action4=$urlbase.$catname4.".pl";

#seuraava siksi jotta menee usa:han jos ei ole mitään parametrejä
$subtitle="USA, Canada &amp; South America";

if ($alue eq "usa") {$subtitle="USA, Canada &amp; South America";
$wallibase="http://www.tubenet.org";
}
if ($alue eq "eur") {$subtitle="Europe";
$wallibase="http://virtual5.nebula.fi/~tubenet"}

if ($alue eq "asi") {$subtitle="Asia &amp; Australasia";
$wallibase="http://www.tubenet.us";
}
if ($alue eq "afr") {$subtitle="Africa &amp; Middle-East";
$wallibase="http://www.tubenet.org";
}


$catheadt=$lajit{"$laji"};
#if ($laji eq "soft"){$alue="usa"}

$namefl=$alue.$laji;

# Names of database files that kept in the same directory
$filename =$basepath.$namefl.".dat";
$bannerfile=$basepath."/ban/".$namefl.".ban"; 
$logfilename =$basepath.$namefl.".log";

#$bannerfile2=$basepath."ban/"."eurmill.ba2";
#kirjoitafileen("\nbanner2: $bannerfile2\n");
#kirjoitafileen("\nbanner: $bannerfile\n");

if (($laji eq "mill") or ($laji eq "endf") or ($laji eq "weld")) {$bannerfile2=$basepath."ban/"."eurmill.ba2";
 } else 
{ 
$bannerfile2=$basepath."/ban/"."peoedit.ba2"
}

#$bannerfile2=$basepath."/ban/".$namefl.".ba2"; 


&parse_form;
   
if ($GET{'md'} eq "viewadd")
{
$nmin=$GET{'min'};
$nmax=$GET{'max'};
&viewadd;
}

if ($GET{'md'} eq "viewadd2")
{
$nmin=$GET{'min'};
$nmax=$GET{'max'};
&viewadd2;
}



if (($GET{'alue'}) and ($GET{'laji'})) {
&addstart;
exit;
}



#&generalerror;
&virhemessu("general");


exit;



sub welcome
{
$nmax=$count;
$nmin=0;
if ($count>$hits){$nmin=$count-$hits;}
&viewadd;
exit;
}
















sub pagelayout
{

&htmhead2;

print "<center>\n";
print "<TABLE WIDTH=90% border=0  cellpadding=0 ><TR>\n";


print "<TD width=90% VALIGN=TOP BGCOLOR=#000050>\n";
print "<BR>\n";
print "<CENTER><B><font FACE=\"ARIAL, HELVETICA\" COLOR=#ffffff size=5> \n";
print " $catheadt</font></b></CENTER>  <CENTER><font FACE=\"ARIAL, HELVETICA\" COLOR=#ffffff><B>$subtitle</B></font></CENTER><BR>\n";
#print "<font  face=\"Arial, Helvetica\"  size=2 color=#ffff00><B><CENTER>Under testing.  Please, inform me about problems by <a href=\"mailto:admin\@tubenet.org\"><font  face=\"Arial, Helvetica\"  size=2 color=#ffff00>clicking here</font></A>.</CENTER></B></font><br>";

##toi parametri all on turha koska käydään loopissa kuitenkin kaikki rivit läpi. Annoin sen kúitenkin olla.
## siellä banner aliohjelmassa on pantu kommenteiksi ehtolause joka tutkii tuota parametria ja printtaa bannerin jos parametri täsmää
&readbanner2("1");


#print "<BR>\n";
print "</TD></tr><tr><TD> \n";

print "<TABLE BORDER=0 COLS=1 WIDTH=\"578\" bgcolor=#dddddd bordercolor=#dddddd>\n";
print "<TR>\n";
print "<TD>\n";
print "<CENTER><font FACE=\"ARIAL, HELVETICA\" COLOR=\"blue\" size=2>\n"; 
print "<a href=\"$action?&alue=usa&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">USA, Canada &amp;  South-America</font><B>]</B></A> &nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$action?&alue=eur&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">Europe</font><B>]</B></a> &nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$action?&alue=asi&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">Asia &amp; Australasia</font><B>]</B></a>&nbsp;&nbsp;&nbsp;&nbsp; <a href=\"$action?&alue=afr&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">Africa &amp; Middle-East</font><B>]</B></a><BR>";
print "<a href=\"$action3?$ctmd=confirmaa&alue=$alue&laji=$laji\"  target=\"_top\"><B>[</B><font size=5 COLOR=\"blue\">New registration</font><B>]</B></a></font></center>\n";
print "</TD></TR></TABLE>\n";
 
print "$htmads\n";

print "</td></tr></table>\n";
print "<TABLE BORDER=0 COLS=1 WIDTH=\"100%\" bgcolor=#dddddd bordercolor=#dddddd>\n";
print "<TR>\n";
print "<TD>\n";
print "<CENTER><font FACE=\"ARIAL, HELVETICA\" COLOR=\"Blue\" size=2>\n";
print "<a href=\"$action?&alue=usa&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">USA, Canada &amp;  South-America</font><B>]</B></A> &nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$action?&alue=eur&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">Europe</font><B>]</B></a> &nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$action?&alue=asi&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">Asia &amp; Australasia</font><B>]</B></a>&nbsp;&nbsp;&nbsp;&nbsp; <a href=\"$action?&alue=afr&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">Africa &amp; Middle-East</font><B>]</B></a><BR>";
print "<a href=\"$action3?$ctmd=confirmaa&alue=$alue&laji=$laji\"  target=\"_top\"><B>[</B><font COLOR=\"blue\">New registration</font><B>]</B></a></font></center>\n";
print "</TD></TR></TABLE></center>\n";


print "$gfoot\n";
#print "</center>\n";
#print "</td></tr></table>";
#print "</center>";
#print "</td></TR></table></body></html>\n";



#print "$gfoot\n";
#print "</center></table></center>\n";
#print "</td></tr></table>";
#print "</center>";
#print "</td></TR></table></body></html>\n";

#print "</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></td></tr></table></DIV></TD>";
#print "   <TD vAlign=top align=center width=200 bgColor=#000000 height=576>";
#print "  <A HREF=\"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.utube.com\"><IMG SRC=\"http://www.tubenet.org.uk/u_tube2.gif\" WIDTH=\"200\" HEIGHT=\"208\" ALT=\"Universal Tube & Rollform - Click for more Info\"></a>";
#print " <CENTER><A HREF=\"mailto:sales\@utube.com?subject=Inquiry_from_www.tubenet.org\"><FONT SIZE=\"-1\"> Email to Universal Tube &amp; Rollform</FONT></A>";
#print "</CENTER>";
#print "</TD></TR></TBODY></TABLE></BODY></HTML>";

print "</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></td></tr></table></DIV></TD>";
print "   <TD vAlign=top align=center width=\"200\" bgColor=#000000>";
&readisobanner;

print "</td>";
print "</TR></TBODY></TABLE></BODY></HTML>";



}












sub pagelayout2
{


&htmhead2;

print "<center>\n";
print "<TABLE WIDTH=90% border=0  cellpadding=0 ><TR>\n";


print "<TD width=90% VALIGN=TOP BGCOLOR=#000050>\n";
print "<BR>\n";
print "<CENTER><B><font FACE=\"ARIAL, HELVETICA\" COLOR=#ffffff size=5> \n";
print " $catheadt</font></B></CENTER> <CENTER><font FACE=\"ARIAL, HELVETICA\" COLOR=#ffffff><B>$subtitle</B></font></CENTER>\n\n";
&readbanner("1");
#&readbanner2("2");
#print "<BR>\n";
print "</TD></tr><tr><TD> \n";
print "<table width=\"100%\" bgcolor=#dddddd bordercolor=#dddddd border=1><tr><td>\n";
if ($count < $hits) {$ylaraja=$count} else {$ylaraja = $hits}
$muutettunimi =$fields[12];
$muutettunimi =~ s/ /+/g;
$muutettunimi =~ s/,//g;

print "<b><a href=\"$action?$ctmd=viewadd&min=0&max=$ylaraja&alue=$alue&laji=$laji\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\" color=blue><b>Main Page</b></font>]</A></b> &nbsp; &nbsp; &nbsp;\n";
print "<b><a href=\"$action3?$ctmd=confirmaa&alue=$alue&laji=$laji\"  target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><b>New registration</B></font>]</a></b>&nbsp; &nbsp; &nbsp;<br>\n";
print "<B><a href=\"$action?$ctmd=valinnat&tuho=$fields[0]&alue=$alue&laji=$laji&kumpi=edit&min=0&max=$fields[0]\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><b>Change/renew this Registration</b></font>]</a></b>&nbsp; \n"; 
print "<b><a href=\"$action?$ctmd=ededit&tuho=$fields[0]&alue=$alue&laji=$laji&kumpi=press&min=0&max=$fields[0]\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><b>Send Press Release</B></font>]</a></b>\n";

print "</td><td align=right>";
if ($ekalippu ne "T")  {print "<B><a href=\"$action?$ctmd=otaprev&alue=$alue&laji=$laji&tietue=$fields[0]\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><B>Previous</B></font>]</A></B>&nbsp;&nbsp;&nbsp;";}
if ($vipalippu ne "T") {print "<B><a href=\"$action?$ctmd=otanext&alue=$alue&laji=$laji&tietue=$fields[0]\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><B>Next</B></font>]</A></B>\n";}
print "</td></TR></table>\n";

print "$htmads\n";


print "<table width=100% bgcolor=#dddddd bordercolor=#dddddd border=1><tr><td>\n";
print "<b><a href=\"$action?$ctmd=viewadd&min=0&max=$ylaraja&alue=$alue&laji=$laji\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\" color=blue><b>Main Page</b></font>]</A></b> &nbsp; &nbsp; &nbsp;\n";
print "<b><a href=\"$action3?$ctmd=confirmaa&alue=$alue&laji=$laji\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><b>New registration</B></font>]</a></b>&nbsp; &nbsp; &nbsp;<br>\n";
#print "<B><a href=\"$action?$ctmd=valinnat&tuho=$fields[0]&firma=$muutettunimi&alue=$alue&laji=$laji&kumpi=edit&min=0&max=$ylaraja\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><b>Change/Renew this Registration</b></font>]</a></b>&nbsp; \n"; 
print "<B><a href=\"$action?$ctmd=valinnat&tuho=$fields[0]&alue=$alue&laji=$laji&kumpi=edit&min=0&max=$fields[0]\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><b>Change/renew this Registration</b></font>]</a></b>&nbsp; \n"; 
print "<b><a href=\"$action?$ctmd=ededit&tuho=$fields[0]&alue=$alue&laji=$laji&kumpi=press&min=0&max=$fields[0]\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><b>Send Press Release</B></font>]</a></b>\n";

print "</td><td align=right>";
if ($ekalippu ne "T")  {print "<B><a href=\"$action?$ctmd=otaprev&alue=$alue&laji=$laji&tietue=$fields[0]\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><B>Previous</B></font>]</A></B>&nbsp;&nbsp;&nbsp;";}
if ($vipalippu ne "T") {print "<B><a href=\"$action?$ctmd=otanext&alue=$alue&laji=$laji&tietue=$fields[0]\" target=\"_top\">[<font size=2 FACE=\"ARIAL, HELVETICA\"  color=blue><B>Next</B></font>]</A></B>\n";}
print "</td></TR></table>\n";


print "</td></tr></table>\n";




print "$gfoot\n";
#print "</center>\n";
#print "</td></tr></table>";
#print "</center>";
#print "</td></TR></table></body></html>\n";

#print "$gfoot\n";
#print "</center>\n";
#print "</td></tr></table>";
#print "</center>";
#print "</td></TR></table></center></td></table></body></html>\n";

#print "</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></td></tr></table></DIV></TD>";
#print "   <TD vAlign=top align=middle width=200 bgColor=#000000>";
#print "  <A HREF=\"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.utube.com\"><IMG SRC=\"http://www.tubenet.org.uk/u_tube2.gif\" WIDTH=\"200\" HEIGHT=\"208\" ALT=\"Universal Tube & Rollform - Click for more Info\"></a>";
#print " <CENTER><A HREF=\"mailto:sales\@utube.com?subject=Inquiry_from_www.tubenet.org\"><FONT SIZE=\"-1\"> Email to Universal Tube &amp; Rollform</FONT></A>";
#print "</CENTER>";
#print "</TD></TR></TBODY></TABLE></BODY></HTML>";

print "</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></td></tr></table></DIV></TD>";
print "   <TD vAlign=top align=center width=\"200\" bgColor=#000000>";
&readisobanner;
print "</td>";
print "</TR></TBODY></TABLE></BODY></HTML>";

}






sub htmlayout
{
&pagelayout;
}





sub htmlayout2
{
&pagelayout2;
}






sub adlayout
{
$alaraja=$fields[0]-1;
if (($fields[13] eq "United States")  or ($fields[13] eq "USA")){
$valinta =~ s/%/ /g;

if (($valinta eq "") or (($valinta ne "") and ($valinta eq $fields[14]))) {
$maatemp="<a href=\"$action?$ctmd=viewadd&min=0&max=$ylaraja&alue=$alue&laji=$laji&valinta=$fields[14]\" target=\"_top\"><font FACE=\"ARIAL, HELVETICA\" size=2 color=\"blue\">";
$maatemp=$maatemp.$fields[14];
$maatemp=$maatemp."</font></a>";
} 
} 
else {
$valintatmp=$fields[13];
$valintatmp =~ s/ /%/g;

$maatemp="<a href=\"$action?$ctmd=viewadd&min=0&max=$ylaraja&alue=$alue&laji=$laji&valinta=$valintatmp\" target=\"_top\"><font FACE=\"ARIAL, HELVETICA\" size=2 color=\"blue\">";
$maatemp=$maatemp.$fields[13];



$maatemp=$maatemp."</font></a>";
}
$lyhyt=" ".$fields[2];
$time_nyt=time;
if ($time_nyt < $fields[5]) {
   $lyhyt=$lyhyt.", "}
else {$lyhyt=$lyhyt." - "}



if (($fields[13] eq "United States")  or ($fields[13] eq "USA")){
if (($valinta eq "") or (($valinta ne "") and ($valinta eq $fields[14]))) {

$htmads=$htmads."<table width=\"575\"   bgcolor=\"#ffffff\" cellspacing=0 cellpadding=0>";
$nappi=$htmlbase."but21.gif";
$htmads=$htmads."<tr><td align=left valign=top width=25><IMG SRC=\"$nappi\" HEIGHT=16 WIDTH=17></td><td align=left valign=top width=700>";
$htmads=$htmads. "<font FACE=\"ARIAL, HELVETICA\" size=2 color=\"#000000\">";
$htmads=$htmads."<a href=\"$action?$ctmd=viewadd2&min=$alaraja&max=$fields[0]&alue=$alue&laji=$laji&avain=$fields[0]\" target=\"_top\"><font FACE=\"ARIAL, HELVETICA\" size=2 color=\"blue\">";
$htmads=$htmads.$fields[12];
$htmads=$htmads."</font></a>".$lyhyt.$maatemp."</font><br>";
$htmads=$htmads. "</td></tr></table>\n";
}
}
elsif (($valinta eq "") or (($valinta ne "") and ($valinta eq $fields[13]))) {
$htmads=$htmads."<table width=\"575\"   bgcolor=\"#ffffff\" cellspacing=0 cellpadding=0>";
$nappi=$htmlbase."but21.gif";
$htmads=$htmads."<tr><td align=left valign=top width=25><IMG SRC=\"$nappi\" HEIGHT=16 WIDTH=17></td><td  align=left valign=top width=700>";
$htmads=$htmads. "<font FACE=\"ARIAL, HELVETICA\" size=2 color=\"#000000\">";
$htmads=$htmads."<a href=\"$action?$ctmd=viewadd2&min=$alaraja&max=$fields[0]&alue=$alue&laji=$laji&avain=$fields[0]\" target=\"_top\"><font FACE=\"ARIAL, HELVETICA\" size=2 color=\"blue\">";
$htmads=$htmads.$fields[12];
$htmads=$htmads."</font></a>".$lyhyt.$maatemp."</font><br>";
$htmads=$htmads. "</td></tr></table>\n";

}

}

 





  
#sub printad
#{
#&adlayout;
#}



#################################################################
 



#sub htmend2
#
#{
#
#
#print "</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></TD>";
#print "   <TD vAlign=top align=middle width=200 bgColor=#000000 height=6000>";
#print "  <A HREF=\"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.utube.com\"><IMG SRC=\"http://www.tubenet.org.uk/u_tube2.gif\" WIDTH=\"200\" HEIGHT=\"208\" ALT=\"Universal Tube & Rollform - Click for more Info\"></a>";
#print " <CENTER><A HREF=\"mailto:sales\@utube.com?subject=Inquiry_from_www.tubenet.org\"><FONT SIZE=\"-1\"> Email to Universal Tube &amp; Rollform</FONT></A>";
#print "</CENTER>";
#print "</TD></TR></TBODY></TABLE></BODY></HTML>";
#
#
#}

sub htmend2
{

print "</td></tr></table></center>\n";
print <<HTMLF;
$gfoot
HTMLF

print " </td></tr></table></center></div></td>";

print "   <TD vAlign=top align=center width=\"200\" bgColor=#000000>";
&readisobanner;
print "</td>";

print "</tr></table></body></html>\n";
}








 

sub printheader
{
print "Content-type: text/html\n\n";
}

 


sub viewadd
{

&viewadde;
&htmlayout;
exit;
}




sub viewadd2
{
&readdata;
$ekarinki=0;
$vipavert=$count - 1;

foreach $line (@lines)
{
($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $line);

if ($luku eq $nmax)  {
   @fields=split(/\s*\|\s*/,$line);
	if ($ekarinki eq 0) {$ekalippu="T"};
   if ($ekarinki eq $vipavert) {$vipalippu="T"};
} 
$ekarinki++;
}




$subact=$action."?$ctmd=mailaa&alue=$alue&laji=$laji";
if (($fields[13] eq "United States")  or ($fields[13] eq "USA")){$viesti="$fields[14], $fields[13]"} 
else {$viesti="$fields[13]"}



######################################## Lisätään laskuri
$referer=$ENV{'HTTP_REFERER'};
$logfile="/var/www/customers/tubenet/public_html/cgi/datat/tubenet.txt";
$errorfile="/var/www/customers/tubenet/public_html/cgi/datat/tubeneterrors.txt";
chop($shortdate=`date +'%H:%M:%S %m-%d-%Y'`);
open (LOG, ">>$logfile") || open(LOG, ">>$errorfile");
&lock(LOG);
print LOG "$shortdate | ";
print LOG "$ENV{'REMOTE_ADDR'} | "; 
print LOG "$ENV{'REMOTE_HOST'} | ";
print LOG "$fields[22] |";
if ($fields[10] eq "2") {print LOG "Premium |";}
print LOG "$fields[12], $viesti\n";

&unlock(LOG);
close (LOG);
###########################################

$alaraja=$fields[0]-1;
$htmads=$htmads.<<HTMLF;
 

<table width="100%" border=0 cellspacing=0 cellpadding=1>
<tr>
 <td bgcolor="#000050">


<table width="100%"    border=1 bgcolor="#ffffff" cellspacing=0 cellpadding=0>
<tr><td>

<table cellspacing=0 cellpadding=0 height=40><tr VALIGN=top>
<td valign=top width=100% >

<font FACE="ARIAL, HELVETICA" color="#aa0000" size=2><B>Company: </B></font>
<font FACE="ARIAL, HELVETICA"  size=2><B>$fields[12], $viesti</B></font><BR>
<font FACE="ARIAL, HELVETICA" color="#aa0000" size=2><B>Attn:</B> </font>
<font FACE="ARIAL, HELVETICA"  size=2><B>$fields[15]</B></font>

</td>
HTMLF

$htmads=$htmads."<td width=100% align=right>";
if ($fields[10] eq "2") {$htmads=$htmads."<FONT  COLOR=#ff0000 FACE=\"HELVETICA, ARIAL\" size=4><B>Premium<br>Registration</B></font>"}
$htmads=$htmads."</td></tr></table><P>";

 $htmads=$htmads."<table height=50 width=100%><tr><td valign=top><font FACE=\"ARIAL, HELVETICA\"  size=2><b>";

#$brief=$fields[7];
#@brf=$brief;

#@brf=split(/%-%%/,$brief);
#foreach $brf1 (@brf)
#{
$htmads=$htmads."$fields[7]";
#}




$htmads=$htmads."</B></font></td>";

#seuraavalla tutkitaan onko kuvatiedosto olemassa

if (LWP::Simple::head($fields[23])) {

#seuraavalla laitetaan se kuva jos on annettu

if  ($fields[23] ne "") {$htmads=$htmads." <td valign=top><center><img src=\"$fields[23]\" border=\"0\"  width=250></center></td>"; }
}

$htmads=$htmads."</TR></table><p><HR>\n";





$htmads=$htmads."<center><table height=10><tr valign=bottom><td valign=bottom><form action=\"$subact\" method=\"POST\" TARGET=\"_blank\">";
#$htmads=$htmads."<input TYPE=\"hidden\" NAME=\"osoite\" value=\"$fields[4]\">";
$htmads=$htmads."<input TYPE=\"hidden\" NAME=\"firma\" value=\"$fields[12]\">";
#$htmads=$htmads."<input TYPE=\"hidden\" NAME=\"osoite2\" value=\"$fields[21]\">";
$htmads=$htmads."<input TYPE=\"hidden\" NAME=\"mikarivi2\" value=\"$fields[0]\">";
$htmads=$htmads."<input TYPE=\"hidden\" NAME=\"aluelaji\" value=\"$alue$laji\">";
$htmads=$htmads."<input TYPE=\"hidden\" NAME=\"expaika\" value=\"$fields[5]\">";
#$htmads=$htmads."<input TYPE=\"hidden\" NAME=\"passw\" value=\"$fields[1]\">";

$nappitemp=$htmlbase."button2.gif";



#alla se alkuperäinen rivi
#if (($fields[5] > "965000000") or ($fields[5] == 870003720)) {if ($fields[4] ne "") {$htmads=$htmads." <input type=image src=\"$nappitemp\" width=\"103\" height=\"23\" border=0>&nbsp; "; }
if  ($fields[4] ne "") {$htmads=$htmads." <input type=image src=\"$nappitemp\" width=\"103\" height=\"23\" border=0>&nbsp; "; }
 
$nappitemp=$htmlbase."button1.gif";

$mjlength= length($fields[6]);
if (($fields[6] =~ /^http/) and ($mjlength < 12)) {$fields[6] = ""};

#alla se alkuperiäinen rivi
#if  (($fields[5] > "965000000") or ($fields[5] == 870003720)) {if  (($fields[6] =~ /^http/)  and ($fields[6] ne ""))
if  (($fields[6] =~ /^http/)  and ($fields[6] ne ""))
{
$htmads=$htmads. "<a href=\"$fields[6]\" target=\"_new\"><font FACE=\"ARIAL, HELVETICA\" size=2 color=#aa0000>";
$htmads=$htmads. "<img src=\"$nappitemp\" width=\"82\" height=\"24\" border=\"0\"></font></a>&nbsp;&nbsp; ";
}
 
 
if ($fields[16] ne "") 
{$htmads=$htmads. "<font FACE=\"ARIAL, HELVETICA\"  size=2 color=#aa0000><B>Tel: </B></font><font FACE=\"ARIAL, HELVETICA\"  size=2><B>$fields[16]</B></font>&nbsp;&nbsp; ";}
if ($fields[17] ne "") 
{$htmads=$htmads. "<font  FACE=\"ARIAL, HELVETICA\" size=2 color=#aa0000><B>Fax: </B></font><font FACE=\"ARIAL, HELVETICA\"  size=2><B>$fields[17]</B></font>";}

if ($fields[5] eq "1") {$htmads=$htmads."<BR><font FACE=\"ARIAL, HELVETICA\"  size=2 color=#aa0000>This registration is expired.  Please renew for securing every lead.</font>"}



$htmads=$htmads. "</form></td></tr></table>";
$htmads=$htmads. "</center></td></tr></table>\n";
if ($vain_osa eq "T") {$htmads=$htmads. "<tr><td><font  FACE=\"ARIAL, HELVETICA\" size=2 color=#ffff00><B>Category: </B></font><font FACE=\"ARIAL, HELVETICA\"  size=2 color=#ffff00><B>$catheadt</B></font>";}
$htmads=$htmads. "</td></tr></table>\n";


if ($vain_osa eq "T") {

print $htmads;
#print "</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></td></tr></table></DIV></TD>";
#print "   <TD vAlign=top align=center width=\"200\" bgColor=#000000 height=6000>";
#&readisobanner;

#print "</td>";
#print "</TR></TBODY></TABLE></BODY></HTML>";
}
else {
&htmlayout2;
}
exit;
}

 






 
sub viewadde
{


&readdata;

$premiumlippu = "0";
$kertavain = "0";
$basiclippu = "0";
$ilmainenlippu="0";
$loppulippu="0";

$alue=$GET{'alue'};
$laji=$GET{'laji'};
#if ($laji eq "soft"){$alue="usa"}
$valinta=$GET{'valinta'};
$valinta =~ s/%/ /g;

######################################## Lisätään laskuri
$referer=$ENV{'HTTP_REFERER'};
$logfile="/var/www/customers/tubenet/public_html/cgi/datat/categories.txt";
$errorfile="/var/www/customers/tubenet/public_html/cgi/datat/categorieserrors.txt";
chop($shortdate=`date +'%H:%M:%S %m-%d-%Y'`);
open (LOG, ">>$logfile") || open(LOG, ">>$errorfile");
&lock(LOG);
print LOG "$shortdate | ";
print LOG "$ENV{'REMOTE_ADDR'} | "; 
print LOG "$ENV{'REMOTE_HOST'} | ";
print LOG "$alue$laji\n";

&unlock(LOG);
close (LOG);
###########################################


if ($count < $hits) {$ylaraja=$count} else {$ylaraja = $hits}
$nmax=$ylaraja;



while ($nmin<$nmax) 

{ 
@fields=split(/\s*\|\s*/,$lines[$nmin] );
$nmin++;

#### Laitetaan se old registration s pos toistaiseksi
#
#if (($valinta eq "") or (($valinta ne "") and ($valinta eq $fields[14])) or (($valinta ne "") and ($valinta eq $fields[13])) ) {
#if (($fields[10] eq "3") and ($loppulippu eq "0")) {
#  $loppulippu="1"; 
 
#  $htmads=$htmads."<table width=\"100%\" bgcolor=#dddddd bordercolor=#dddddd><tr><td>";
#  $htmads=$htmads."<center><FONT  size=2 COLOR=#ff0000 FACE=\"HELVETICA,ARIAL\"><B>Old Registrations</B></font></center></td></tr></table>"
#}
#}


if (($valinta eq "") or (($valinta ne "") and ($valinta eq $fields[14])) or (($valinta ne "") and ($valinta eq $fields[13])) ) {

  if (($fields[10] eq "2") and ($premiumlippu eq "0")) {
     $premiumlippu="1"; 
     $htmads=$htmads."<table width=\"100%\" bgcolor=#dddddd bordercolor=#dddddd><tr><td><center><FONT  COLOR=#ff0000 size=2 FACE=\"HELVETICA,ARIAL\">";
     $htmads=$htmads."<B>TubeNet Premium Listing</B></font></center></td></tr></table>"
  }

}

if (($valinta eq "") or (($valinta ne "") and ($valinta eq $fields[14])) or (($valinta ne "") and ($valinta eq $fields[13])) ) {
if (($fields[10] eq "1") and ($basiclippu eq "0")) {
  $basiclippu="1"; 
  if ($premiumlippu eq "1") {$htmads=$htmads."<BR>"} 
  $htmads=$htmads."<table width=\"100%\" bgcolor=#dddddd bordercolor=#dddddd><tr><td>";
#  if ($premiumlippu eq "0") {$htmads=$htmads."<hR>"}
  $htmads=$htmads."<center><FONT  size=2 COLOR=#ff0000 FACE=\"HELVETICA,ARIAL\"><B>TubeNet Basic Listing</B></font></center></td></tr></table>"
}
}


if (($nmin > $hits) and ($kertavain eq "0")) {
    $kertavain = "1"; 
    $htmads=$htmads."<table width=\"100%\" bgcolor=#dddddd bordercolor=#dddddd><tr><td><FONT size=2  COLOR=#ff0000 FACE=\"HELVETICA,ARIAL\">";
    $htmads=$htmads."<HR><center><B>TubeNet Basic Listing</B></center></font></td></tr></table>"
}
#&printad;
# kokeillaan seuraavalla jos toi olis tu
&adlayout;
 }
}





sub readdata
{

  open(file, "$filename");
&lock(file);
  @lines=<file>;
$count = $#lines+1;
&unlock(file);
  close(file);
}

 


sub readbanner
{
my ($mikabanner) = @_;
$time_nyt=time; chomp($time_nyt);

if ($fields[5] < $time_nyt) {
 open (banfile,"$bannerfile");
  &lock(banfile);
  @banner=<banfile>;
  &unlock(banfile);
  close(banfile);
$roll = int(rand 3) + 1;
$luku=0;

  foreach $alkio (@banner) {
 $luku++;
($paikka,$imgurl) = split(/\s*\|\s*/, $alkio);

if ($luku eq "1") {$tamateksti=$imgurl;}
elsif ($luku eq $roll) {$tamateksti=$imgurl}
}

 print "<center>$tamateksti";
}
else 
{
print "<BR>";
}
}
 

sub readbanner2
{
 my ($mikabanner) = @_;
 open (banfile,"$bannerfile");
  &lock(banfile);
  @banner=<banfile>;
  &unlock(banfile);
  close(banfile);

$roll = int(rand 3) + 1;

$luku=0;

  foreach $alkio (@banner) {
 $luku++;

   	($paikka,$imgurl) = split(/\s*\|\s*/, $alkio);
if ($luku eq "1") {$tamateksti=$imgurl;}
elsif ($luku eq $roll) {$tamateksti=$imgurl}
}
 print "<center>$tamateksti</center>";

} 









 


 


##########################
# Add
sub addstart
{
 
    if ($GET{'md'} eq "addad") {&addad;}
    if ($GET{'md'} eq "forget") {&forget;}
    if ($GET{'md'} eq "tarkistapvm") {&tarkistapvm;}
    if ($GET{'md'} eq "otaprev") {&otaprev;}
    if ($GET{'md'} eq "otanext") {&otanext;}
    if ($GET{'md'} eq "addform") {&addform("Add");}
    if ($GET{'md'} eq "editform") {&addform("Edit");}
    if ($GET{'md'} eq "payform") {&addform("pay");}
    if ($GET{'md'} eq "ededit") {  &ededit;}
    if ($GET{'md'} eq "valinnat") {  &valinnat;}
    if ($GET{'md'} eq "eddelet") {  &eddelet;}
    if ($GET{'md'} eq "delrecord") {&delrecord;}
    if ($GET{'md'} eq "mailaa") {&mailaa;}
    if ($GET{'md'} eq "maksa2") {&maksa2;}
    if ($GET{'md'} eq "edit") {&edit;}
    if ($GET{'md'} eq "loged") {&loged;}
     
    &welcome;
    exit;
}


 sub addad
{

#&parse_form;
kirjoitafileen("Kohta 1\n");
if ($FORM{'passw'} ne "5188") {
kirjoitafileen("Kohta 2\n");
 if (($FORM{'passw'} eq "") || ($FORM{'title'} eq "") ||  ($FORM{'brief'} eq "") || ($FORM{'firma'} eq "")  || 
  ($FORM{'attn'} eq "") || ($FORM{'email'} eq "") || (($GET{'mako'} ne "T") and ($FORM{'email2'} eq "")) ) {
kirjoitafileen("Kohta 3\n");
 &htmhead2;
kirjoitafileen("Kohta 4\n");
 print"<P><BR>";

 &omahead;
 print "<P>";
 print "<font  face=\"Arial, Helvetica\"  color=#ffffff size=5> <B>Missing information</B></font><HR><font  face=\"Arial, Helvetica\"  size=2 color=#ffffff><B>Check out below what fields you need to fill up.</B></font><P>";
 print "<table><tr><TD><font  face=\"Arial, Helvetica\"  size=2 color=#ffffff><b><UL>";
 if ($FORM{'title'} eq "") {print "<LI>Short description <br>" }
 if ($FORM{'brief'} eq "") {print "<LI>Long description<br>" }
 if ($FORM{'firma'} eq "") {print "<LI>Company name<br>" }
 if ($FORM{'attn'} eq "") {print "<LI>Contact person<br>" }
 if ($FORM{'email'} eq "") {print "<LI>Primary email address<br>" }
 if (($GET{'mako'} ne "T") and ($FORM{'email2'} eq "")) {print "<LI>Secondary email address<br>" }
 if ($FORM{'passw'} eq "") {print "<LI>Password<br>" }

 print "</UL></b></font></TD></TR></Table> <P><font size=2 color=#ffff00  face=\"Arial, Helvetica\" ><B>Click your browser's Back-button</B></font><P><BR>";

 &omaend;
 &htmend2;
 exit;
}
}



kirjoitafileen("Kohta ohi meni 1\n");
use Time::Local;
$evuosi=$FORM{'evuosi'}-1900;
#kirjoitafileen("\nvuosi: $evuosi\n");
$ekuu=$FORM{'ekuu'}-1;
#kirjoitafileen("kuukausi: $ekuu\n");
$epaiva=$FORM{'epaiva'};
#kirjoitafileen("paiva: $epaiva");

kirjoitafileen("Kohta ohi meni 2\n");



$exptime=timelocal(0,0,0,$epaiva,$ekuu,$evuosi); 
if ($exptime < "979999999") {$exptime = "850000000"}
if  ($GET{'mako'} eq "T"){
if (($FORM{'evuosi'} eq "1997") and ($FORM{'ekuu'} eq "7") and ($FORM{'epaiva'} eq "27")) {$exptime = "870003720"}
}
kirjoitafileen("Kohta ohi meni ennen get recordia\n");

&getrecord;
kirjoitafileen("Kohta ohi meni ennen get recordin jalkeen\n");

if ($FORM{kumpi} eq "Edit") {
 open(file, "$filename");
 &lock(file);
 @kaikki=<file>;
 &unlock(file);
 close(file);
 open(file,">$filename");
 &lock(file);
 foreach $alkio (@kaikki) {
 	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $alkio);
   if ($FORM{'numero'} eq $luku)  {print file "$record\n"} else {print file "$alkio";}
 }
 &unlock(file);
 close(file);

###### kirjoitetaan muutos logiin
#kirjoitafileen("record: $record\n");
                      
 open(file,">>$logfilename");
 &lock(file);
 print file "$record\n";
 &unlock(file);
 close(file);

}


#Ad has been added successfuly
&message12;
&htmend2;
exit;
}

 

 

 
sub getrecord
{

kirjoitafileen("Kohta ennen remote_addria\n");
$ipadd=$ENV{'REMOTE_ADDR'};
kirjoitafileen("Kohta ohi meni eremote_addr jalkeen\n");

$FORM{'brief'}  = 	siivoa_kommentit(\$FORM{'brief'});
$emailbrief=$FORM{'brief'};
$brief=$FORM{'brief'};
kirjoitafileen("Kohta siivoa kommentitbrief  jalkeen\n");
$FORM{'title'}  = 	siivoa_kommentit(\$FORM{'title'});

kirjoitafileen("Kohta siivoa kommentit  title jalkeen\n");

$FORM{'firma'}  = siivoa_otsikot(\$FORM{'firma'});
kirjoitafileen("Kohta siivoa kommentit firma  jalkeen\n");


$FORM{'puhelin'}  = siivoa_otsikot(\$FORM{'puhelin'});

kirjoitafileen("Kohta siivoa kommentitbrief  jalkeen\n");
$FORM{'puhelin'}  = 	siivoa_kommentit(\$FORM{'puhelin'});

$FORM{'fax'}  = siivoa_otsikot(\$FORM{'fax'});
$FORM{'fax'}  = 	siivoa_kommentit(\$FORM{'fax'});

$FORM{'attn'}  = siivoa_otsikot(\$FORM{'attn'});
$FORM{'attn'}  = 	siivoa_kommentit(\$FORM{'attn'});


kirjoitafileen("Kohta ennen somecheck\n");kirjoitafileen("Kohta somecheck  jalkeen\n");

&somecheck;

kirjoitafileen("Kohta somecheck  jalkeen\n");


$idmodd="";
$mjlength= length($FORM{'urlpage'});
if (($FORM{'urlpage'} =~ /^http/) and ($mjlength < 12)) {$FORM{'urlpage'} = ""};

kirjoitafileen("Kohta URL tarkistamisen jalkeen\n");

$time_now=time;
 if ($exptime == 0) {$exptime=$time_now+15724800};
$tamapv=date_format($time_now);

kirjoitafileen("Kohta ennen recording tekoa\n");

$record=$FORM{'numero'}."|".$FORM{'passw'}."|".$FORM{'title'}."|".$time_now."|".$FORM{'email'};
$record=$record."|".$exptime."|".$FORM{'urlpage'}."|".$brief;
$record=$record."|".$ipadd."|".$namefl."|".$FORM{'kumpirek'}."|".$idmodd;
$record=$record."|".$FORM{'firma'}."|".$FORM{'maa'}."|".$FORM{'osavaltio'};
$record=$record."|".$FORM{'attn'}."|".$FORM{'puhelin'}."|".$FORM{'fax'}."|".$FORM{'paiva'}."|".$FORM{'kuu'}."|".$FORM{'vuosi'}."|".$FORM{'email2'}."|".$FORM{'category'}."|".$FORM{'url'}."|";

kirjoitafileen("Kohta jalkeen recording tekoa\n");

$erapaiva=date_format($exptime);

kirjoitafileen("\n1 exptime: $exptime\n");
kirjoitafileen("\n1 timenow: $timenow\n");

kirjoitafileen("Kohta ennen viestin tekoa\n");

          $viesti = "* * * * * Please save this message for future use. * * * * * \n\n";
$viesti=$viesti."Change was successfull.  \n\n";
if ($exptime < $time_now) {
$viesti=$viesti."NOTE! This registration at TubeNet is EXPIRED.\n";
$viesti=$viesti."This registration appears at TubeNet Category: \"$catheadt\"\n\n";
$viesti=$viesti."Sales leads for Expired registarions as yours, will not be complete. \nThe system will automatically remove all contact informations from expired registrations.\n\n";
$viesti=$viesti."Click below to renew your registration for receiving complete inquiries. \n";
$viesti=$viesti."http://www.tubenet.org.uk/cgi/reg505uus.pl?md=maksa2&tietue=$FORM{'numero'}&alue=$alue&laji=$laji&\n\n";
$viesti=$viesti."Click below to to see your registration. \n";
$viesti=$viesti."http://www.tubenet.org.uk/cgi/reg505uus.pl?md=viewadd2&min=1&max=$FORM{'numero'}&alue=$alue&laji=$laji&avain=$FORM{'numero'}\n\n";
$viesti=$viesti."Click below to make changes to your registration. \n";
$viesti=$viesti."http://www.tubenet.org.uk/cgi/reg505uus.pl?md=ededit&tuho=$FORM{'numero'}&alue=$alue&laji=$laji&kumpi=edit\n\n";
$viesti=$viesti."Your will be asked for a PASSWORD which is:  $FORM{'passw'}\n\n";
$viesti=$viesti."More renewal instructions: http://www.tubenet.org.uk/renewal.html\n\n";
$viesti=$viesti."\n---------------------------------------------------------------------\n";
kirjoitafileen("Kohta vistin teon jalkeen\n");


}

kirjoitafileen("Kohta ennen sita toista viestin tekoa\n");

$viesti=$viesti."Below, please find some of your registration details.\n";
$viesti=$viesti."---------------------------------------------------------------------\n";

kirjoitafileen("ennen palauta kommentit firma kirjoitus\n");

#palauta_kommentit(\$FORM{'firma'});

kirjoitafileen("jalkeen palauta kommentit firma kirjoitus\n");

$viesti=$viesti."Company name : ".$FORM{'firma'}."\n";

kirjoitafileen("firman kirjoitus\n");

$viesti=$viesti."Your password : ".$FORM{'passw'}."\n";

kirjoitafileen("passw kirjoitus\n");

#$viesti=$viesti."Date posted : ".$tamapv."\n";

kirjoitafileen("ennen palauta kommentit kirjoitus\n");

#palauta_kommentit(\$FORM{'attn'});

kirjoitafileen("jaleen palauta kommentit kirjoitus\n");

$viesti=$viesti."Contact person : ".$FORM{'attn'}."\n";

kirjoitafileen("jalkeen attn kirjoitus\n");

#if ($exptime > $time_now) {
#$viesti=$viesti."Expiry date of this registration : ".$erapaiva."\n"; 
$viesti=$viesti."Primary email address : ".$FORM{'email'}."\n";
$viesti=$viesti."Secondary email address : ".$FORM{'email2'}."\n";  
$viesti=$viesti."Web site : ".$FORM{'urlpage'}."\n";

#palauta_kommentit(\$FORM{'puhelin'});

kirjoitafileen("jalkeen puhelimen kirjoitus\n");

$viesti=$viesti."Phone : ".$FORM{'puhelin'}."\n";
#palauta_kommentit(\$FORM{'fax'});
$viesti=$viesti."Fax : ".$FORM{'fax'}."\n";


#}
#else {
#$viesti=$viesti."Expiry date : Expired. \n";
#$viesti=$viesti."Primary email address : Not enabled.\n";
#$viesti=$viesti."Secondary email address : Not enabled.\n";  
#$viesti=$viesti."Web site hot link: Not enabled.\n";
#}
$viesti=$viesti."Category : ".$catheadt."\n";
#$viesti=$viesti."Your IP address recorded : ".$ipadd."\n";
#$viesti=$viesti."Company name : ".$FORM{'firma'}."\n";
$viesti=$viesti."Country : ".$FORM{'maa'}."\n";
if (($FORM{'maa'} eq "USA") or ($FORM{'maa'} eq "United States")) {$viesti=$viesti."State : ".$FORM{'osavaltio'}."\n"};

kirjoitafileen("alkeen osavaltioiden kirjoitus\n");

#palauta_kommentit(\$FORM{'title'});
$viesti=$viesti."Title : ".$FORM{'title'}."\n";

#palauta_kommentit(\$brief);
$viesti=$viesti."Description : ".$brief."\n";

kirjoitafileen("jalkeen brief kirjoitus\n");

#$viestij="Expiry date : ".$erapaiva."\n"; 
#$viestij=$viestij."Primary email address : ".$FORM{'email'}."\n";
#$viestij=$viestij."Secondary email address : ".$FORM{'email2'}."\n";  
#$viestij=$viestij."Web site : ".$FORM{'urlpage'}."\n";

#$viestij=$viestij."Contact person : ".$FORM{'attn'}."\n";
#$viestij=$viestij."Short description : ".$FORM{'title'}."\n";
#$viesti=$viesti."Long description :\n\n";
#$viesti=$viesti.$emailbrief;
#$viesti=$viesti."\n\nBest regards,\nJuha Haapala";
$viesti=$viesti."---------------------------------------------------\n";
$viesti=$viesti."TubeNet - The Site for Tube and Pipe Industries\n";
$viesti=$viesti."US site: www.tubenet.org  Mirrors: Europe and Asia\n";
$viesti=$viesti."E-mail: info\@tubenet.org\n";
$viesti=$viesti."---------------------------------------------------\n";
#if (($ostype eq "u") and ($GET{'mako'} ne "T")){
if ($ostype eq "u") {

kirjoitafileen("Kohta ennen emaillin lahettamista\n");

open (MAIL,"|$mailprogram");
   print MAIL "To: $FORM{'email'}\n";
   print MAIL "From: $omaemail\n";
   print MAIL "Subject: Your TubeNet Registration\n";
   print MAIL "$viesti\n$viestij";
  close (MAIL);

##################################################################################
open (MAIL,"|$mailprogram");
   print MAIL "To: $FORM{'email'}\n";
   print MAIL "From: $omaemail\n";
   print MAIL "Subject: Your TubeNet Registration\n";
   print MAIL "$viesti\n$viestij";
  close (MAIL);

##################################################################################
kirjoitafileen("Kohta jalkeen emaillin lahettamista\n");

#open (MAIL,"|$mailprogram");
#   print MAIL "To: $FORM{'email2'}\n";
#   print MAIL "From: $omaemail\n";
#   print MAIL "Subject: Your TubeNet Registration\n";
#   print MAIL "$viesti\n$viestij";
#  close (MAIL);


kirjoitafileen("Kohta ennen oman emaillin lahettamista\n");

open (MAIL,"|$mailprogram");
   print MAIL "To: juhan.hoitotahto@gmail.com\n";
   print MAIL "From: $omaemail\n";
   print MAIL "Subject: TubeNet registration muutos tehty\n";
   print MAIL "$viesti\n";
  close (MAIL);

kirjoitafileen("Kohta jalkeeen oman emaillin lahettamista\n");

}

}

 

sub date_format2
{
local(@arr1, $months);
local($year, $month, $date_f, $time1, $v1);

$time1=$_[0];
if ($localgmt eq "local") 
{ @arr1=localtime($time1);}
else {@arr1=gmtime($time1);}
 
$date_f="$arr1[4] arr1[5]";
return $date_f;
}






 
sub addform
{
my ($kumpi) = @_;

#tällä mennään suoraan uuden lisäämiseen jos kyse ei ole editoinnista, mikä tarkistetaan tossa alapuolella
$olioikia=1;
$rivijemma="";

if (($kumpi eq "Edit") or ($kumpi eq "pay")) {
  $olioikia=0;
  open(file, "$filename");
  &lock(file);
  while ($line = <file>) {
	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $line);

$FORM{'passw'} =~ s/^\s+// ;
$FORM{'passw'} =~ s/\s+$// ;

  if ((($luku eq $FORM{'numero'}) and  ($pass eq $FORM{'passw'})) || (($luku eq $FORM{'numero'}) and  ($FORM{'passw'} eq "5188"))) {$olioikia=1;$rivijemma=$line; $rivijemma2=$luku;
 } 
  }
  &unlock(file);
  close file;

  if ($olioikia eq 1) {
  ($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $rivijemma);
 $brief =~ s/<BR>/\n/g;

  }
  else {
($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $rivijemma);
  &htmhead2;
  &omahead;
  print "<BR>";
  print "    <font  face=\"Arial, Helvetica\"  color=#ffffff size=5> <B>Invalid Password</font><HR>";
#  print "<FONT SIZE=\"-1\">Click back to Main Page :Se eka: $pass  Se toka:$FORM{'passw'}   numero:$FORM{'numero'} $title</font><P><BR>";
  print "<FONT size=2 color=#ffff00  face=\"Arial, Helvetica\" ><B><BR><P><font size=2 color=#ffff00><B>Click your browser's Back-button</B></font><P><BR></B></font><P><BR>";
  &omaend; 
  &htmend2;
  exit;
  }





if ($kumpi eq "pay") {

&maksa;
exit;


} #if pay

} # if edit

else
{
$rivijemma="";
($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $rivijemma)
}



if ($kumpi eq "Add") {$urlpage = "http://"}
$mako="";
if ($FORM{'passw'} eq "5188") {  $mako="T" }

$subact=$action."?$ctmd=addad&alue=$alue&laji=$laji&mako=$mako";
$nocashe="";
&htmhead2;


($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)= localtime(time) ;
($sec,$min,$hour,$epaiva,$ekuu,$evuosi,$wday,$yday,$isdst)= localtime($exptime) ;

#   $sec = "0$sec" if ($sec < 10);
#  $min = "0$min" if ($min < 10);
#   $hour = "0$hour" if ($hour < 10);
$day = "0$day" if ($day < 10);
#$month = "0$month" if ($month < 10);

$ppaiva=$day;
$pmon=$mon;
$pyear=$year;

$time_now=time;
#if ($exptime == 0) {$exptime=$time_now+15724800}
 
$lajikin=substr($category,3,4);
$lajikin=$lajit{$lajikin};


  print <<HTMLF;


<form action="$subact" method="POST"  target=\"_top\">


<center>
<table border=1 cellspacing=0  bgcolor=#000050 width=70%>
<tr>
<td>


<table border=1 cellspacing=0   bgcolor=#000050 width=100%><tr bgcolor=#505070>
<td bgcolor=#000050 align=left>
<BR>
    <CENTER><font size=+2  face="Arial, Helvetica"   color=#ffffff>
	<B>Registration Submit Form</B></font><BR>

<font  face="Arial, Helvetica"  size=2 color=#ffffff><B>$lajikin</B></font><br>
<font  face="Arial, Helvetica"  size=+1 color=#ffff00><B>*</B></font> 
<font  face="Arial, Helvetica"  size=2 color=#ffffff><B>Required information</B></font>
<br>
HTMLF
;

if ($time_now > $exptime) { print "<font  face=\"Arial, Helvetica\"  size=2 color=#ffff00><B>This registration is expired.  Please renew for securing every lead.</B></font>";}

print <<HTMLF;

<BR></CENTER>
</td></tr></table>


<INPUT TYPE="hidden" NAME="numero" value=$luku>
<INPUT TYPE="hidden" NAME="kumpi" value=$kumpi>

<table border=1 cellspacing=0   bgcolor=#000050 width=100%>

<tr bgcolor=#000050><td valign="top"><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Company Name </B></font><font size="+1"  color=#ffff00><B>*</B></font></td><td bgcolor=#000050><font  face="Arial, Helvetica"  size=2>
<INPUT TYPE=text NAME=firma SIZE=30 MAXLENGTH="45" value="$firma"></font></td></tr>
HTMLF
;


print "<tr bgcolor=#000050><td valign=\"top\"><font  face=\"Arial, Helvetica\"  size=2 color=#ffffff>";
print "<B>Country</B></font><font size=\"+1\"  color=#ffff00><B>*</B></font></td><td bgcolor=#000050><font  face=\"Arial, Helvetica\"  size=2>";
print "<Select Name=\"maa\">\n";

foreach $alkio (@maataulu) {
print "<OPTION ";
if (($kumpi eq "Add") and (($alkio eq "United States") or ($alkio eq "USA"))) {print "SELECTED "}
if ($maa eq "USA") { $maa = "United States"}
if (($kumpi eq "Edit") and ($alkio eq $maa)) {print "SELECTED "}
print " VALUE=\"$alkio\">$alkio\n";
}

print "</SELECT></font></td></tr>";



if (($kumpi eq "Edit") and ($maa eq "United States")) {
print "<tr bgcolor=#000050><td valign=\"top\"><font  face=\"Arial, Helvetica\"  size=2 color=#ffffff>";

print "<B>State</B></font><font size=\"+1\"  color=#ffff00><B>*</B></font><FONT color=#ffffff  face=\"Arial, Helvetica\"  SIZE=\"-2\"><B>(Needed only if you are from US)</B></FONT></td><td bgcolor=#000050>";
print "<font  face=\"Arial, Helvetica\"  size=2><Select  Name=\"osavaltio\">";
foreach $alkio (@osavaltiotaulu) {
print "<OPTION ";
if (($kumpi eq "Edit") and (($maa eq "United States") or ($maa eq "USA")) and ($alkio eq $osavaltio)) {print "SELECTED "}
print " VALUE=\"$alkio\">$alkio";
}
print "</SELECT></font> ";
print "</td></tr>";
}
 print <<HTMLF;





<tr bgcolor=#000050><td valign="top"><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Contact person</B></font><font size="+1"  color=#ffff00><B>*</B></font></td><td bgcolor=#000050><font  face="Arial, Helvetica"  size=2><INPUT TYPE=text NAME=attn SIZE=50 MAXLENGTH="50" value="$attn"></font></td></tr>

<tr bgcolor=#000050><td valign="top"><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Email 1</B></font><font size="+1"  color=#ffff00><B>*</B><FONT color=#ffffff  face="Arial, Helvetica"  SIZE=\"-2\"><b>(Only one address please)</B></FONT></font></td><td bgcolor=#000050><font  face="Arial, Helvetica"  size=2><INPUT TYPE=text NAME=email SIZE=30 MAXLENGTH="50" value="$email"></font></td></tr>

<tr bgcolor=#000050><td valign="top"><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Email 2</B></font><font size="+1"  color=#ffff00><B>*</B><FONT color=#ffffff  face="Arial, Helvetica"  SIZE=\"-2\"><b>(Important! This will be used for reporting <BR>about possible problems with  the above email address)</B></FONT></font></td><td bgcolor=#000050><font  face="Arial, Helvetica"  size=2><INPUT TYPE=text NAME=email2 SIZE=30 MAXLENGTH="50" value="$email2"></font>


<INPUT TYPE="hidden" NAME="category" value=$alue$laji>
</td></tr>


<tr bgcolor=#000050><td valign="top"><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Phone</B></font></td><td bgcolor=#000050><font  face="Arial, Helvetica"  size=2><INPUT TYPE=text NAME=puhelin SIZE=30 MAXLENGTH="25" value="$puhelin"></font></td></tr>

<tr bgcolor=#000050><td valign="top"><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Fax</B></font></td><td bgcolor=#000050><font  face="Arial, Helvetica"  size=2><INPUT TYPE=text NAME=fax SIZE=30 MAXLENGTH="25" value="$fax"></font></td></tr>

<tr bgcolor=#000050><td valign="top"><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>WEB-Site</B></font></td><td bgcolor=#000050><font  face="Arial, Helvetica"  size=2><INPUT TYPE=text NAME=urlpage SIZE=30 MAXLENGTH="100"  value="$urlpage"></font></td></tr>

<tr bgcolor=#000050><td><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Enter something for Password</B></font><font size="+1"  color=#ffff00><B>*</B></font></td><td bgcolor=#000050 align=left><font  face="Arial, Helvetica"  size=2> <INPUT TYPE=text NAME=passw SIZE=30  MAXLENGTH="10" value="$pass"></font></td></tr>

<tr bgcolor=#000050><td valign="top"><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Re-type the above Password</B></font><font size="+1"  color=#ffff00><B>*</B></font></td><td bgcolor=#000050><font  face="Arial, Helvetica"  size=2><INPUT TYPE=text NAME=pass2 SIZE=30  MAXLENGTH="10" value="$pass"></font>



HTMLF
;

print "</td></tr></table>";




 print <<HTMLF;

<table border=1 cellspacing=0 bgcolor=#000050 width=100%><tr bgcolor=#505070><td  bgcolor=#000050><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Short description </B></font><font size="+1" color=#ffff00><B>*</B></font></td></tr><tr><td><font  face="Arial, Helvetica"   size=-1>
<INPUT TYPE="text" NAME="title" SIZE="60" MAXLENGTH="60" value="$title"></font></td></tr></table>


<table border=1 cellspacing=0 bgcolor=#000050 width=100%><tr bgcolor=#505070><td  bgcolor=#000050><font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Long description below.  </B></font><font size="+1"  color=#ffff00><B>*</B></font></td></tr><tr><td><font  face="Arial, Helvetica"   size=-1>
HTMLF
;
 

print "<TEXTAREA NAME=\"brief\" ROWS=\"4\" COLS=\"60\">";

##$brief =~ s/<br>//g;
##$brief =~ s/\n//g;
##print "$brief";
#$laskija=50;
#$alku=0;
#$eka=substr($brief,$alku,$laskija);
#print "$eka";
#
#while ($laskija < length($brief)) {
#$toka=substr($brief,$laskija,50);
#$paikka=index($toka, " ");
#$toka_alku=substr($toka,0,$paikka);
#$toka_loppu=substr($toka,$paikka,50);
#$toka_loppu =~ s/^\s*//;
#print "$toka_alku \n";
#print "$toka_loppu";
#$alku=$laskija;
#$laskija=$laskija+50;
#}

print "$brief";

print "</TEXTAREA>";

print "</font></td></tr></table>";

print "<table border=1 cellspacing=0 bgcolor=#000050 width=100%><tr bgcolor=#505070><td  bgcolor=#000050>";
print" <font face=\"Arial, Helvetica\" size=2 color=#ffffff>";
print "<B>Picture URL </B></font><FONT color=#ffffff  face=\"Arial, Helvetica\"  SIZE=\"-2\">";
print "<b>(If you have a picture on your website, you can enter it's address here and it will show with your registration)</B></font>";
print "</td></tr><tr><td><font  face=\"Arial, Helvetica\"   size=-1>";
print "<INPUT TYPE=\"text\" NAME=\"url\" SIZE=\"60\"  value=\"$url\"></font></td></tr></table>";


if ($kumpirek eq "1") { print "<INPUT TYPE=\"hidden\" NAME=\"kumpirek\" VALUE=\"1\">";}
if ($kumpirek eq "2") {print"<INPUT TYPE=\"hidden\" NAME=\"kumpirek\" VALUE=\"2\">";}

$erapaiva=date_format($exptime);
$ekuu++;
$evuosi=1900+$evuosi;
$mako="";
if ($FORM{'passw'} eq "5188") {
  $mako="T";
  print "<INPUT TYPE=text NAME=epaiva SIZE=2 MAXLENGTH=\"2\"  value=\"$epaiva\">";
  print "<INPUT TYPE=text NAME=ekuu SIZE=2 MAXLENGTH=\"2\"  value=\"$ekuu\">";
  print "<INPUT TYPE=text NAME=evuosi SIZE=4 MAXLENGTH=\"4\"  value=\"$evuosi\">";
}
else {
  print "<INPUT TYPE=hidden NAME=epaiva  value=\"$epaiva\">";
  print "<INPUT TYPE=hidden NAME=ekuu   value=\"$ekuu\">";
  print "<INPUT TYPE=hidden NAME=evuosi    value=\"$evuosi\">";
}

print "<table border=1 width=100%><tr bgcolor=#000050><td valign=\"top\"><font  face=\"Arial, Helvetica\"  size=2 color=#ffffff>";
print "<B>Registration status / expiry date  &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt; &gt;</B></font>";
if ($time_now > $exptime) { print "<BR><font  face=\"Arial, Helvetica\"  size=2 color=#ffff00><B>Note! Complete leads will be sent for valid registrations only.</B></font>";}
print "</td><td bgcolor=#000050 valign=top><font  face=\"Arial, Helvetica\"  size=2 color=#ffffff>";
if ($time_now > $exptime) {print "<B><font  face=\"Arial, Helvetica\"  color=#ffff00>Expired</font></B></font></td></tr></table>"} else { print "<B>$erapaiva</B></font></td></tr></table>" }





 print <<HTMLF;


<!--  </TABLE> 
 -->

<table border=1 width=100%><tr bgcolor=#000050><td valign="top">
<CENTER><FONT  face="Arial, Helvetica"    SIZE="-1" color=#ffffff>After you have finished the form above, please click button below.<BR>

<INPUT TYPE="submit" value="Click here to submit your registration to TubeNet"> <BR>
<B>Click only once. This may take some time.</B></FONT>
</CENTER></TD></TR>
</TABLE>

</td></tr></table>
 </center>

</form>


HTMLF
&htmend2;
exit;
}
 



sub eddelet
{
$nocashe="";
&htmhead2;
&parse_form;

print "<center>";
print "<table border=1 cellspacing=0  bgcolor=#000050 width=70%>";
print "<tr>";
print "<td>";
print "<table border=0 cellspacing=20   bgcolor=#000050 width=100%><tr bgcolor=#505070><td bgcolor=#000050 align=left>";
print "<BR>";
print "    <CENTER><font color=#ffffff  size=+2 FACE=\"ARIAL, HELVETICA\">Delete Registration</Font><BR><HR><BR> ";
print "<FONT SIZE=\"-1\" color=#ffffff FACE=\"ARIAL, HELVETICA\">Registration will be deleted only if you enter<br> the same Password  <BR> that was given when the<br> registration was made.<br><br>Please enter the Password below and click <BR>\"Remove\" button.";
print "</FONT></center></td></tr></table>";

$subact=$action."?$ctmd=delrecord&alue=$alue&laji=$laji";
print "<form action=\"$subact\" method=\"POST\" target=\"_top\">";
print "<INPUT TYPE=\"hidden\" NAME=\"numero\" value=$GET{'tuho'}>";

print <<HTMLF;

<table border=0 cellspacing=10 bgcolor=#000050 width=100%>
<tr bgcolor=#000050><td>
<CENTER>
<font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Password:</B>
</font>
<font  face="Arial, Helvetica"  size=2> 
<INPUT TYPE=text NAME=passw SIZE=20> 
</font></CENTER></td></tr>
<!-- </TD></TR> -->
</TABLE>
<table border=0 cellspacing=0  bgcolor=#000050 width=100%><tr bgcolor=#000050><td bgcolor=#000050 align=left>
<CENTER>
<font  face="Arial, Helvetica"   color=#ffffff SIZE="-1"><BR>
<INPUT TYPE="submit" value="Remove"> <BR>
</FONT>
</CENTER></TD></TR>
</TABLE>
</FORM>
HTMLF


######################## otetaan pois passwordin muistuttaja toistaiseksi############################
#$subact=$action."?$ctmd=forget&alue=$alue&laji=$laji";
#print <<HTMLF;
#
#<form action="$subact" method="POST"  target=\"_top\">
#<INPUT TYPE="hidden" NAME="numero" value=$GET{'tuho'}>
#
#
#<table border=0 cellspacing=0  bgcolor=#000050 width=100%><tr bgcolor=#000050><td bgcolor=#000050 align=left>
#<CENTER> <font  face="Arial, Helvetica"   color=#ffffff SIZE="-1"><BR>
#<INPUT TYPE="submit" value="Forget password? Click here"> <BR>
#</FONT>
#</CENTER></TD></TR>
#</TABLE>
#</FORM>
#
#
#</td></tr></table>
#</center>
#
#<!-- </form> -->
#HTMLF
######################## otetaan pois passwordin muistuttaja toistaiseksi############################

&htmend2;
exit;
}
 



sub ededit
{
$nocashe="";
&htmhead2;
#&parse_form;


### lisätään seuraava jotta saadaan firman nimi näkyviin

$namefl=$alue.$laji;
$filename =$basepath.$namefl.".dat";
 open(file, "$filename");
 &lock(file);
 @kaikki=<file>;
 &unlock(file);
 close(file);
 foreach $alkio (@kaikki) {
 	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $alkio);
   if ($GET{'tuho'} eq $luku)  {$yritysnimi=$firma}
 }

###############################################
print "<center>";
print "<table border=1 cellspacing=0  bgcolor=#000050 width=70%>";
print "<tr>";
print "<td>";
print "<table border=0 cellspacing=20   bgcolor=#000050 width=500><tr bgcolor=#505070><td bgcolor=#000050 align=left>";
print "<BR>";
print "    <CENTER><font color=#ffffff  size=+2 FACE=\"ARIAL, HELVETICA\"><B>Password Check</B></font><BR><HR><BR> ";
print "<font  size=3 color=#ffffff FACE=\"ARIAL, HELVETICA\" ><b>$yritysnimi</B></font><p>";
print "<FONT color=#ffffff  size=2 FACE=\"ARIAL, HELVETICA\">Please enter your PASSWORD below and click<br> \"Send Password\" button in order to continue.<br><BR>";

if ($GET{'kumpi'} eq "uusinta") {$subact=$action."?$ctmd=payform&alue=$alue&laji=$laji"}
if ($GET{'kumpi'} eq "edit") {$subact=$action."?$ctmd=editform&alue=$alue&laji=$laji"}
if ($GET{'kumpi'} eq "press") {$subact=$action4."?$ctmd=confirmaa&alue=$alue&laji=$laji"}
print "<form action=\"$subact\" method=\"POST\" target=\"_top\">";
print "<INPUT TYPE=\"hidden\" NAME=\"numero\" value=$GET{'tuho'}>";

print <<HTMLF;

<font  face="Arial, Helvetica"  size=2 color=#ffffff>
<B>Password:</B>
</font>
<font  face="Arial, Helvetica"  size=2> 
<INPUT TYPE=text NAME=passw SIZE=20> 
</font>

<INPUT TYPE="submit" value="Send Password"> </form><BR><br>
HTMLF
$subact=$action."?$ctmd=forget&alue=$alue&laji=$laji";
print "<form action=\"$subact\" method=\"POST\" target=\"_top\">";
print "<INPUT TYPE=\"hidden\" NAME=\"numero\" value=$GET{'tuho'}>";
########################################## väliaikaisesti pois
#print "Forget password?  <INPUT TYPE=\"submit\" value=\"Please check this first\"> <BR></FORM>";
########################################## väliaikaisesti pois
$subact=$action."?$ctmd=mailaa&alue=$alue&laji=$laji&oma=oma";
#print "<form action=\"$subact\" method=\"POST\"  TARGET=\"_top\">";
#print "<INPUT TYPE=\"hidden\" NAME=oma value=oma>";
#print "Never received one?  <INPUT TYPE=\"submit\" value=\"Click here and we will send you\"></form>";
print "Never received one?  <a href=\"mailto:admin\@tubenet.org\"><font  face=\"Arial, Helvetica\"  size=2 color=#ffff00>Click here</font></A> and send request by email.";
print <<HTMLF;

</FONT>
</CENTER></TD></TR>
</TABLE>


</td></tr></table>
</center>


HTMLF

&htmend2;
exit;
}
 



 












sub delrecord
{

$subact=$action."?$ctmd=addad&alue=$alue&laji=$laji";
$nocashe="";
&htmhead2;

#&parse_form;

$olioikia=0;
open(file, "$filename");
&lock(file);
$nimi="temp.txt";
open(file2, ">$nimi");
&lock(file2);


#@lines=<file>;
#foreach $line (@lines)
#{
#($luku,$passw,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $line);
#if (($luku eq $FORM{'numero'}) and ($pass eq $FORM{'passw'})) {$olioikia=1};
#print "$pass, $luku, $firma,$fields[3],$fields[2], Olioikia: $olioikia  <BR>";
#}


while ($line = <file>) {
	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $line);
$FORM{'passw'} =~ s/^\s+// ;
$FORM{'passw'} =~ s/\s+$// ;

if ((($luku eq $FORM{'numero'}) and  ($pass eq $FORM{'passw'})) || (($luku eq $FORM{'numero'}) and  ($FORM{'passw'} eq "5188"))) {$olioikia=1} else {print file2 $line}
}
&unlock(file);
close file;
&unlock(file2);
close file2;


if ($olioikia eq 1) {
rename($nimi,$filename);

&omahead;

print "<BR>";
print " <font  face=\"Arial, Helvetica\"  color=#ffffff size=5> <B>The Registration has been removed</font><HR>";
#print "<p><a href=\"$action?$ctmd=md&alue=$alue&laji=$laji\" > <font size=2  face=\"Arial, Helvetica\"  color=#ffff00><B>Click here to view updated Messages :Se eka: $pass  Se toka:$FORM{'passw'}  numero:$FORM{'numero'}</B></font> </a><BR>";
print "<p><a href=\"$action?$ctmd=md&alue=$alue&laji=$laji\" > <font size=2   face=\"Arial, Helvetica\" color=#ffff00><B><P> Click here to view updated register</B></font> </a><BR><br>";
&omaend;
&htmend2;
exit;
}
 

 

if ($olioikia eq 0) {
&omahead;
print "<BR>";
print "    <font  face=\"Arial, Helvetica\"  color=#ffffff size=5> <B>Invalid Password</font><HR>";
#print "<FONT face=\"Arial, Helvetica\"  color=#ffffff size=5>Click back to Main Page :Se eka: $pass  Se toka:$FORM{'passw'}   numero:$FORM{'numero'} </font><P><BR>";
print "<FONT SIZE=\"-1\"  size=2 face=\"Arial, Helvetica\"  color=#ffff00><B><BR><P><font size=2  face=\"Arial, Helvetica\"  color=#ffff00><B>Click your browser's Back-button</B></font><P><BR> </B></font><P><BR>";
&omaend; 
&htmend2;
exit;
}
}



sub omaend 
{
print "</center></td></tr></table>";
print "</td></tr></table></center>";
}







sub omahead
{
print "<center>";
print "<table border=1 cellspacing=0  bgcolor=#000050 width=70%>";
print "<tr>";
print "<td>";
print "<table border=1 cellspacing=0   bgcolor=#000050 width=500><tr bgcolor=#505070><td bgcolor=#000050 align=left>";
print "<center>";
print "<BR>";
}










 




 



sub mailaa {

#&parse_form;



&htmhead2;
print "<form NAME=\"form\" method=\"POST\"  target=\"_top\"\n";
print "  action=\"http://www.tubenet.org.uk/cgi/bend2bc.cgi\">\n";

#### Korjataan seuraava koska pakko olla email osoite
#if ($FORM{'osoite'} eq "") {
#print "<INPUT type=\"hidden\" name=\"ID\" value=\"admin\@tubenet.org\">\n";
#}
#else
#{
#print "<INPUT type=\"hidden\" name=\"ID\" value=\"$FORM{'osoite'}\">\n";
#print "<INPUT type=\"hidden\" name=\"ID2\" value=\"$FORM{'osoite2'}\">\n";
print "<INPUT type=\"hidden\" name=\"mikarivi2\" value=\"$FORM{'mikarivi2'}\">\n";
print "<INPUT type=\"hidden\" name=\"aluelaji\" value=\"$FORM{'aluelaji'}\">\n";
#print "<INPUT type=\"hidden\" name=\"passw\" value=\"$FORM{'passw'}\">\n";

#}

if (($FORM{'expaika'} < $time_now) or ($FORM{'expaika'} == 870003720)) {
    print "<INPUT type=\"hidden\" name=\"EXP\" value=\"ON\">\n";
}

print "<INPUT type=\"hidden\" name=\"CATEGORIA\" value=\"$catheadt\">\n";
print "<INPUT type=\"hidden\" name=\"FIRMA\" value=\"$FORM{'firma'}\">\n";


print "<center><table  width=\"70%\"><tr><td>\n";
print "<center><FONT  face=\"Arial, Helvetica\"  size=5><B> \n";
print " TubeNet Email forwarding Service</B></FONT></center><BR>\n";
print "<TABLE>\n";
print "<TR>\n";
print "<TD valign=\"top\" width=150>\n";

####Korjataan seuraava koska oletetaan että on pakko olla email osoite

#if ($FORM{'osoite'} eq "") {
#print "<B>Send email to:</B> </TD><TD>TubeNet</TD>\n";
#}
#else {
print "<B>Send email to:</B> </TD><TD>$FORM{'firma'}</TD>\n";
#}
#print "<BR>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD valign=\"top\"><B> Your email address:</B></TD>\n";
print "<TD><INPUT TYPE=\"text\" NAME=\"EMAILOSOITE\" SIZE=\"40\"><BR> \n";
print "<font  face=\"Arial, Helvetica\"  size=2 COLOR=\"#ff0000\">\n";
print "Attention. Please make sure that your email address has correct spelling. \n";
print " <B>You will not get any reply if this goes wrong. </B>\n";
print " Please, double check. </font>\n";
print "</TD>\n";
print "</TR>\n";
print "</TABLE>\n";
print "<BR>\n";
print "<B>Subject for your email\:</B> <BR>\n";
print "<INPUT TYPE=\"text\" NAME=\"SUBJECT\" SIZE=\"70\" MAXLENGTH=\"70\">\n";
print "<BR>\n";
print "<P>\n";
print "<B>Your Message\:</B><BR>\n";

#if ($FORM{'osoite'} eq "") {
#print "<TEXTAREA NAME=\"BODY\" ROWS=\"15\" COLS=\"60\">[$GET{'alue'}$GET{'laji'}] \nEnter your company name and your own name below\n";
#print "------------------------------------------------------------------------------------------------------------------\n";}
#else {
print "<TEXTAREA NAME=\"BODY\" ROWS=\"15\" COLS=\"60\">";
#}
print "</TEXTAREA>\n";
print "<BR>\n";
print "<P>\n";
print "<table><tr><td valign=top>Type the alphabets shown below:<br><img src=\"kirjainkuva.jpg\" width=\"160\" height=\"25\"> \n";
print "</td><td valign=top><INPUT TYPE=\"text\"  name=\"kirjaimet\" SIZE=\"40\"></td></tr>\n";
print "</TABLE>\n";
print "<INPUT TYPE=\"submit\"  value=\"Send this email to ";

#if ($FORM{'osoite'} eq "") {
#print "TubeNet\">  <BR>\n"; }
#else {
print "$FORM{'firma'}\">  <BR>\n"; 
#}

print "</td></TR></table></center>\n";
print "</FORM>\n";
print "<P><BR>\n";
&htmend2;

exit;
}



sub forget
{
$subact=$action."?$ctmd=tarkistapvm&alue=$alue&laji=$laji";
$nocashe="";
&htmhead2;
#&parse_form;

print "<form action=\"$subact\" method=\"POST\" target=\"_top\">";
print "<center>";
print "<table border=1 cellspacing=0  bgcolor=#000050 width=70% >";
print "<tr>";
print "<td>";
print "<table border=0 cellspacing=20   bgcolor=#000050 width=100%><tr bgcolor=#505070><td bgcolor=#000050 align=left><font  face=\"Arial, Helvetica\"   size=2 color=#ffffff>";
print "<BR>";

$iposoite=$ENV{'REMOTE_ADDR'};

print "    <CENTER><font  face=\"Arial, Helvetica\"  color=#ffffff size=5>Password assistant</font><HR>";
print "<FONT  face=\"Arial, Helvetica\"  size=2>The password will be sent to the email address<br>that appears only your registration at TubeNet.<P>";
print "<FONT  face=\"Arial, Helvetica\"  size=2>Your IP-Address there now is: <font color=\"#ffff00\">$iposoite</font><br>";
print "<FONT  face=\"Arial, Helvetica\"  size=2>For security purposes, it will be recorded.<P>";
print "<FONT  face=\"Arial, Helvetica\"  size=2>Please enter your name below";

print "</FONT></CENTER></font></td></tr></table>";
print <<HTMLF;

<INPUT TYPE="hidden" NAME="numero2" value=$FORM{'numero'}>

<table border=0 cellspacing=10 bgcolor=#000050 width=100%>

<tr bgcolor=#000050><td><CENTER><font  face="Arial, Helvetica"  size=2 color=#ffffff>
</font><font  face="Arial, Helvetica"  size=2> 
HTMLF

print "<INPUT TYPE=\"text\" NAME=\"vertailuemail\" SIZE=\"40\">";


print <<HTMLF;

</font></CENTER>


<table border=0 cellspacing=0  bgcolor=#000050 width=100%><tr bgcolor=#000050><td bgcolor=#000050 align=left><font  face="Arial, Helvetica"   color=#ffffff>

<CENTER><FONT  face="Arial, Helvetica"  size=2><BR>
<INPUT TYPE="submit" value="Click here for sending your password"> <BR>
<B>Click only once. This may take some time. </B></FONT>


</CENTER></font></TD></TR>
</TABLE>

</td></tr></table>
</td></tr></table>
</center>
</FORM>
<!-- </td></tr></table>
</center>
 -->
<!-- </form> -->
HTMLF

&htmend2;
exit;
}
 

sub tarkistapvm
{

$nocashe="";
&htmhead2;

# otetaan pois se emailien vertaus ja siksi seuraava rivi laitetaan ykköseksi. SE oli nolla aiemmin ennen tutkimuksia.
$oliemail= "0";
$oliemail2= "0";

open(file, "$filename");
&lock(file);



  @rivit=<file>;

&unlock(file);
close file;

  foreach $line (@rivit) {



#while ($line = <file>) {
	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$mainpagetitle,$url) = split(/\s*\|\s*/, $line);

if ($luku eq $FORM{'numero2'})  {
   if ($email)  {$oliemail= "1"; $kelle=$email; $psw=$pass} 
   if ($email2)  {$oliemail2= "1"; $kelle2=$email2} 
}
} #while


$viestix ="This inquiry was made by: $FORM{'vertailuemail'}\n\n";

$mjlength= length($FORM{'vertailuemail'});
if ($mjlength < 3) {$oliemail= "0"; $oliemail2= "0"};

$viestix = $viestix."\nHere is the requested password:\n\n";
$viestix = $viestix."- Password: $psw\n";
$viestix = $viestix."- Category: $lajit{$laji}\n";
$viestix = $viestix."- Location: $alueet{$alue}\n";
if ($oliemail eq "1") {$viestix = $viestix."- Email: $kelle\n";}
if ($oliemail2 eq "1") {$viestix = $viestix."- Email2: $kelle2\n\n";}
$viestix = $viestix."Sincerely,\nThe TubeNet Team\n\n";
$viestix = $viestix."P.S. If you have received this email in error, please contact us\nat admin\@tubenet.org. We apologize for the inconvenience.\n";


&kirjoitafileen("\nkelle: $kelle\n");
&kirjoitafileen("\nkelle2: $kelle2\n");
&kirjoitafileen("\n$viestix\n");

$omaemailx="admin\@tubenet.org.uk";

if ($oliemail eq "1") {
&omahead;print "<BR>";
print "    <font  face=\"Arial, Helvetica\"  color=#ffffff size=5> <B>Password has been sent.<br>";
#print "$kelle</b></font><br> ";


$mailprogramx = "/usr/sbin/sendmail -t -oi";


open (MAIL,"|$mailprogramx");
   print MAIL "To: $kelle\n";
   print MAIL "From: $omaemailx\n";
   print MAIL "Subject: Your TubeNet Registration password\n";
   print MAIL "$viestix";
  close (MAIL);
open (MAIL,"|$mailprogramx");
   print MAIL "To: $omaemailx\n";
   print MAIL "From: $omaemailx\n";
   print MAIL "Subject: Joku unohti passwordin\n";
   print MAIL "$viestix\n";
  close (MAIL);
}

if ($oliemail2 eq "1") {
#print "   <font  face=\"Arial, Helvetica\"  color=#ffffff size=5> <B>and<br>";
#print "$kelle2</b></font><P> ";

open (MAIL,"|$mailprogramx");
   print MAIL "To: $kelle2\n";
   print MAIL "From: $omaemailx\n";
   print MAIL "Subject: Your TubeNet Registration password\n";
   print MAIL "$viestix";
  close (MAIL);
}

if (($oliemail eq "0") and ($oliemail2 eq "0")) {
&omahead;print "<BR>";
print "    <font  face=\"Arial, Helvetica\"  color=#ffffff size=5> <B>There is no email address<br>where to send your password.<p>";
print "Please contact <P>admin\@tubenet.org<P> and ask for it.</b></font><P> ";
}

print "<p> <font size=2  face=\"Arial, Helvetica\" color=#ffff00><B>Click your browser's Back-button</B></font><P><BR>";
&omaend;
&htmend2;
exit;

 

 

if ($olioikia eq 0) {
&omahead;
print "<BR>";
print "    <font  face=\"Arial, Helvetica\"  color=#ffffff size=5>Invalid email address</font><HR>";
#print "<FONT  face=\"Arial, Helvetica\"  size=2>Click back to Main Page :Se eka: $pass  Se toka:$FORM{'passw'}   numero:$FORM{'numero2'} <P><BR>";
print "<p> <font  face=\"Arial, Helvetica\"  size=2 color=#ffff00><B>Click your browser's Back-button</B></font><P><BR>";
&omaend;
&htmend2;
exit;
}
}





sub otaprev
{


$tietue=$GET{'tietue'};

open(file, "$filename");
&lock(file);
@kaikki=<file>;
@nurin=reverse(@kaikki);

($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, @kaikki[0]);
$eka_alkio=$luku;
($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, @nurin[0]);
$vipa_alkio=$luku;
&unlock(file);
close(file);

$loytyi=0;
$rinki=0;
$lask=0;
$ekalippu="F";
$vipalippu="F";

foreach $alkio (@nurin) {
	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $alkio);
$rinki++;
if ($tietue eq $eka_alkio) {
$loytyi= "1";$nmax=$eka_alkio; $ekalippu="T";
}
elsif ($tietue eq $luku) {
($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, @nurin[$rinki]);
$loytyi= "1";$nmax=$luku;}
}

&viewadd2;


}


sub otanext
{

$tietue=$GET{'tietue'};

open(file, "$filename");
&lock(file);
@kaikki=<file>;
@nurin=reverse(@kaikki);

($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, @kaikki[0]);
$eka_alkio=$luku;
($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, @nurin[0]);
$vipa_alkio=$luku;
&unlock(file);
close(file);

$loytyi=0;
$rinki=0;
$lask=0;
$ekalippu="F";
$vipalippu="F";

foreach $alkio (@kaikki) {
	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $alkio);
$rinki++;
if ($tietue eq $vipa_alkio) {
$loytyi= "1";$nmax=$vipa_alkio; $vipalippu="T";
}
elsif ($tietue eq $luku) {
($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, @kaikki[$rinki]);
$loytyi= "1";$nmax=$luku;}
}

&viewadd2;




}


sub maksa
{
#&parse_form;
$tietue= $FORM{'numero'};

#&kirjoitafileen($tietue);

$namefl=$alue.$laji;
$filename =$basepath.$namefl.".dat";
 open(file, "$filename");
 &lock(file);
 @kaikki=<file>;
 &unlock(file);
 close(file);
 foreach $alkio (@kaikki) {
 	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $alkio);
#   if ($GET{'tuho'} eq $luku)  {$yritysnimi=$firma; $kumpioli=$kumpirek}
   if ($rivijemma2 eq $luku)  {$yritysnimi=$firma; $kumpioli=$kumpirek}

 }

&htmhead2;
&omahead;
###toi time_now pitää olla kommenttina koska käytetään tietueessa olevaaa arvoa.
#$time_now=time;


print "<table><tr><td width=350>";
print "<font color=#ffffff size=+1  face=\"Arial, Helvetica\">";
print "<B>Please, read this page carefully</B></font><P>\n";
print "<font color=#ffffff size=\"2\"  face=\"Arial, Helvetica\">";
print"This note is to inform you that your TubeNet registration has been expired. Someone has";
print"send you an inquiry for your products, but due to expired registration it is incomplete. The registration that ";
print"gave you this inquiry for your products is shown at the bottom of this page. <p>";
print"You can secure the delivery of future inquiries by renewing your registration using payment choices below. ";

print "The reneal fee is";
if ($kumpioli eq "1") {print "Euro 95.- (or \$149,- by Paypal)"} else {print "Euro 295,- (or \$390.- by Paypal)";
print " fee for the Registration for <font   color=#ffff00><B>$yritysnimi</B></font>. "} 
print "The fee covers one year period on TubeNet.\n";

print "<P> We are using <b>Paypal</b> for payments. You can pay there also using your credit cards in case you don't have Paypal account.:";


print "<OL>";




print "<BR>";
print "<LI>";

#if ($kumpioli eq "1") {
print "<form action=\"https://www.paypal.com/cgi-bin/webscr\" method=\"post\">";
print "<input type=\"hidden\" name=\"cmd\" value=\"_s-xclick\">";
print "<input type=\"image\" src=\"https://www.paypal.com/en_US/i/btn/x-click-but6.gif\" border=\"0\" name=\"submit\" alt=\"Make payments with PayPal - it's fast, free and secure!\">";
print "<img  border=\"0\" src=\"https://www.paypal.com/en_US/i/scr/pixel.gif\" width=\"1\" height=\"1\">";
print "<input type=\"hidden\" name=\"encrypted\" value=\"-----BEGIN PKCS7-----MIIHZwYJKoZIhvcNAQcEoIIHWDCCB1QCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYAK6R74JANJboN49eb1JWXCgz89zBrPKdWt/uS6dF2+QSQTa3ESaGtG75GBu/aGxTlqueiGB3AZYHQ4Jb6+2QFWUliLqLQGhfx00GACWXDI2dpd6yc/qUHDIj2M8tDlSPn+q7F1dCWvFQnwztM7eZqm1u+cBLsIWhex2LfLKOhmdTELMAkGBSsOAwIaBQAwgeQGCSqGSIb3DQEHATAUBggqhkiG9w0DBwQIOidoENUtjaaAgcBjwXwffDkrbrjY9yWsDrAJCP2N7Wl/fxujMRvwWUJOwb+FYCihYMJWJlJC3ljHGTwxTBpUC5EFlObV6s2tpbL8IYfj+plNL9zWVbNtD6OcxDKV/hVE10lXez5XOkXOz7CAFJ9CFZ7Lq7YygcJ+l38WmlNcGuHAruZOX8JJoCBsMfQNY8vfNGSvycInSnvVhzMohmZ6O2z1ReA9/UFwOG3Rg59trli4HZjSTiXeaAYRfnxEEUEx/zB8MB8q0FUmYxCgggOHMIIDgzCCAuygAwIBAgIBADANBgkqhkiG9w0BAQUFADCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20wHhcNMDQwMjEzMTAxMzE1WhcNMzUwMjEzMTAxMzE1WjCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20wgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAMFHTt38RMxLXJyO2SmS+Ndl72T7oKJ4u4uw+6awntALWh03PewmIJuzbALScsTS4sZoS1fKciBGoh11gIfHzylvkdNe/hJl66/RGqrj5rFb08sAABNTzDTiqqNpJeBsYs/c2aiGozptX2RlnBktH+SUNpAajW724Nv2Wvhif6sFAgMBAAGjge4wgeswHQYDVR0OBBYEFJaffLvGbxe9WT9S1wob7BDWZJRrMIG7BgNVHSMEgbMwgbCAFJaffLvGbxe9WT9S1wob7BDWZJRroYGUpIGRMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbYIBADAMBgNVHRMEBTADAQH/MA0GCSqGSIb3DQEBBQUAA4GBAIFfOlaagFrl71+jq6OKidbWFSE+Q4FqROvdgIONth+8kSK//Y/4ihuE4Ymvzn5ceE3S/iBSQQMjyvb+s2TWbQYDwcp129OPIbD9epdr4tJOUNiSojw7BHwYRiPh58S1xGlFgHFXwrEBb3dgNbMUa+u4qectsMAXpVHnD9wIyfmHMYIBmjCCAZYCAQEwgZQwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tAgEAMAkGBSsOAwIaBQCgXTAYBgkqhkiG9w0BCQMxCwYJKoZIhvcNAQcBMBwGCSqGSIb3DQEJBTEPFw0wNzA4MjMxMzMxMTlaMCMGCSqGSIb3DQEJBDEWBBSpqilTI6JsHuekLpuaUW7/knMu9DANBgkqhkiG9w0BAQEFAASBgJpTH75s+wA31I9JF1FhjKHYmamGzYvzbnj1kYfgrZM3D1lNIfWDIyRY0QpzY3+hLYPDE7PNB3AxWsZ/5LPpcLsHRwmX+KU5Qn4z8wXyTSvovdUuwdOP4wP297dhJnyJAtRq8psMiG04cYvP4rcnxKReYg0iABE/VOBLAF3ZonCZ-----END PKCS7-----\">";
print "</form>";

#print "<A HREF=\"http://www.tubenet.org.uk/paypalmaksu.shtml\" target=\"_top\">\n"
#} 
#else {

#print "<form action=\"https://www.paypal.com/cgi-bin/webscr\" method=\"post\">";
#print "<input type=\"hidden\" name=\"cmd\" value=\"_s-xclick\">";
#print "<input type=\"image\" src=\"https://www.paypal.com/en_US/i/btn/x-click-but6.gif\" border=\"0\" name=\"submit\" alt=\"Make payments with PayPal - it's fast, free and secure!\">";
#print "<img border=\"0\" src=\"https://www.paypal.com/en_US/i/scr/pixel.gif\" width=\"1\" height=\"1\">";
#print "<input type=\"hidden\" name=\"encrypted\" value=\"-----BEGIN PKCS7-----MIIHXwYJKoZIhvcNAQcEoIIHUDCCB0wCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYBlXF7L/vg4rDO+eETRROPdXPuTqypHNXaEWnL3z0Hw3cPBZldRE4CVohV/ew+yB/IO8egFP+IX6NWNa3zCfso9OY+WXMH5un/o865UfO3m2bjxsDd+a1Gm7pfnn+B/lmqUDkQASF956qy50Wwc3/ujKhfYWpoqwbXkW1CVYKRjaDELMAkGBSsOAwIaBQAwgdwGCSqGSIb3DQEHATAUBggqhkiG9w0DBwQIvdAeCPT8ej2AgbhsMcbFllgDMu1qKtIe4KHYtP//vHgOzIPQG51a2z8rkdDA3VHTGBE1kDOTstBBIrTX3M3lrjNeNBMEDlpanI8auZM9aljVlIieq525sjktoabYz4ywiyuWMYRs/6GQFEfCEruTqrU7y9cXUzL2zQM0/9PvjnBkhdwr2J4RJzOpKeboS8kyzen/aTpjNKrjLQvhXxNWpnyqbYjm6b3l8CIbUs8EY6r1sbucnmINw1CXtCDKVSkh269JoIIDhzCCA4MwggLsoAMCAQICAQAwDQYJKoZIhvcNAQEFBQAwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMB4XDTA0MDIxMzEwMTMxNVoXDTM1MDIxMzEwMTMxNVowgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBR07d/ETMS1ycjtkpkvjXZe9k+6CieLuLsPumsJ7QC1odNz3sJiCbs2wC0nLE0uLGaEtXynIgRqIddYCHx88pb5HTXv4SZeuv0Rqq4+axW9PLAAATU8w04qqjaSXgbGLP3NmohqM6bV9kZZwZLR/klDaQGo1u9uDb9lr4Yn+rBQIDAQABo4HuMIHrMB0GA1UdDgQWBBSWn3y7xm8XvVk/UtcKG+wQ1mSUazCBuwYDVR0jBIGzMIGwgBSWn3y7xm8XvVk/UtcKG+wQ1mSUa6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb22CAQAwDAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOBgQCBXzpWmoBa5e9fo6ujionW1hUhPkOBakTr3YCDjbYfvJEiv/2P+IobhOGJr85+XHhN0v4gUkEDI8r2/rNk1m0GA8HKddvTjyGw/XqXa+LSTlDYkqI8OwR8GEYj4efEtcRpRYBxV8KxAW93YDWzFGvruKnnLbDAF6VR5w/cCMn5hzGCAZowggGWAgEBMIGUMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbQIBADAJBgUrDgMCGgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDcwODI0MTAwODAwWjAjBgkqhkiG9w0BCQQxFgQUWKmO3CUhn7HOiEIHtz0zliqtz0kwDQYJKoZIhvcNAQEBBQAEgYBiLBkxhUHQVano3G+zExnqRtYi3ScYwpXD1CDz9yf+/OkuiZLG6qXPqPEchpr3Wu19OccwdqX8DE2yGUUsdgWoKcBC6jZAAn9mYR2Bch9joGBkDZaULpDnhm0reqMVNq0DidwVb61p6U1DbMolUIEoVMb66QQeAgj6hqanKpj52Q==-----END PKCS7-----\">";
#print "</form>";


#print "<A HREF=\"http://www.tubenet.org.uk/paypalmaksu2.shtml\" target=\"_top\">\n"
#}



print "<font   color=#ffff00><B>By Paypal</B></font></A><BR><BR>";
print "<LI>";



if ($ostype eq "w") {

if ($kumpioli eq "1") {

print "<A HREF=\"sell2.pl?link=tubenet/6/testing&seed=$alue$laji&rivi=$tietue\" target=\"_top\">\n"
} 
else {
print "<A HREF=\"sell2.pl?link=tubenet/7/testing&seed=$alue$laji&rivi=$tietue\" target=\"_top\">\n"
}
}

if ($ostype ne "w") {
if ($kumpioli eq "1") {

print "<A HREF=\"http://www.clickbank.net/sell.cgi?link=tubenet/9/TubeNet_registration_fee&seed=$alue$laji&rivi=$tietue\" target=\"_top\">\n"
} 
else {
print "<A HREF=\"http://www.clickbank.net/sell.cgi?link=tubenet/10/TubeNet_registration_fee&seed=$alue$laji&rivi=$tietue\" target=\"_top\">\n"
}
}



if ($kumpioli eq "1") {

print "<li><A HREF=\"http://www.tubenet.org.uk/swift392.html\"  target=\"_top\"><font  size=2 color=#ffff00><B>Wire transfer (T/T)</B></font></A> </OL> \n";
} 
else {
print "<li><A HREF=\"http://www.tubenet.org.uk/swift195.html\"  target=\"_top\"><font  size=2 color=#ffff00><B>Wire transfer (T/T)</B></font></A> </OL> \n";
}




print "If you are familiar with on-line payments, you may prefer to use Clickbank's services.  With wire transfers, please note that banking charges outside Finland are on payer's account. \n";
print "<BR> <P> </font>\n";
print "</td></tr></table>";
&omaend;
&htmend2;

exit;
}



sub maksa2
{
#&parse_form;
$tietue= $GET{'tietue'};
#&kirjoitafileen($tietue);

$namefl=$alue.$laji;
$filename =$basepath.$namefl.".dat";
 open(file, "$filename");
 &lock(file);
 @kaikki=<file>;
 &unlock(file);
 close(file);
 foreach $alkio (@kaikki) {
 	($luku,$pass,$title,$time_now,$email,$exptime,$urlpage,$brief,$ipadd,$namefl,$kumpirek,$idmodd,$firma,$maa,$osavaltio,$attn,$puhelin,$fax,$paiva,$kuu,$vuosi,$email2,$category,$url) = split(/\s*\|\s*/, $alkio);
   if ($tietue eq $luku)  {$yritysnimi=$firma;$kumpioli=$kumpirek}
 }

&htmhead2;
&omahead;
###toi time_now pitää olla kommenttina koska käytetään tietueessa olevaaa arvoa.
#$time_now=time;


print "<table><tr><td width=350>";
print "<font color=#ffffff size=+1  face=\"Arial, Helvetica\">";
print "<B>Please, read this page carefully</B></font><P>\n";
print "<font color=#ffffff size=\"2\"  face=\"Arial, Helvetica\">";
print"This note is to inform you that your TubeNet registration has been expired. Someone has ";
print"send you an inquiry for your products, but due to expired registration it is incomplete.  ";
#print"The registration that gave you this inquiry for your products is shown at the bottom of this page. <p>";
print"You can secure the delivery of future inquiries by renewing your registration using payment choices below. ";

print "The renewal fee is  ";
if ($kumpioli eq "1") {print "Euro 95.- (or \$149,- by Clickbank)"} else {print "Euro 295,-"}
print " fee for the Registration for <font   color=#ffff00><B>$yritysnimi</B></font>. ";
print "The fee covers one year period on TubeNet.\n";

print "<font  FACE=\"ARIAL, HELVETICA\" size=2 color=#ffffff><B>Category: </B></font><font FACE=\"ARIAL, HELVETICA\"  size=2 color=#ffff00><B>$catheadt</B></font>";

print "<P> We are using popular Paypal payment processing. It allows also the use of Credit Cards. Wire Transfer is also possible.";


print "<OL><li>";



#if ($kumpioli eq "1") {

print "<form action=\"https://www.paypal.com/cgi-bin/webscr\" method=\"post\">";
print "<input type=\"hidden\" name=\"cmd\" value=\"_s-xclick\">";
print "<input type=\"image\" src=\"https://www.paypal.com/en_US/i/btn/x-click-but6.gif\" border=\"0\" name=\"submit\" alt=\"Make payments with PayPal - it's fast, free and secure!\">";
print "<img  border=\"0\" src=\"https://www.paypal.com/en_US/i/scr/pixel.gif\" width=\"1\" height=\"1\">";
print "<input type=\"hidden\" name=\"encrypted\" value=\"-----BEGIN PKCS7-----MIIHZwYJKoZIhvcNAQcEoIIHWDCCB1QCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYAK6R74JANJboN49eb1JWXCgz89zBrPKdWt/uS6dF2+QSQTa3ESaGtG75GBu/aGxTlqueiGB3AZYHQ4Jb6+2QFWUliLqLQGhfx00GACWXDI2dpd6yc/qUHDIj2M8tDlSPn+q7F1dCWvFQnwztM7eZqm1u+cBLsIWhex2LfLKOhmdTELMAkGBSsOAwIaBQAwgeQGCSqGSIb3DQEHATAUBggqhkiG9w0DBwQIOidoENUtjaaAgcBjwXwffDkrbrjY9yWsDrAJCP2N7Wl/fxujMRvwWUJOwb+FYCihYMJWJlJC3ljHGTwxTBpUC5EFlObV6s2tpbL8IYfj+plNL9zWVbNtD6OcxDKV/hVE10lXez5XOkXOz7CAFJ9CFZ7Lq7YygcJ+l38WmlNcGuHAruZOX8JJoCBsMfQNY8vfNGSvycInSnvVhzMohmZ6O2z1ReA9/UFwOG3Rg59trli4HZjSTiXeaAYRfnxEEUEx/zB8MB8q0FUmYxCgggOHMIIDgzCCAuygAwIBAgIBADANBgkqhkiG9w0BAQUFADCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20wHhcNMDQwMjEzMTAxMzE1WhcNMzUwMjEzMTAxMzE1WjCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20wgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAMFHTt38RMxLXJyO2SmS+Ndl72T7oKJ4u4uw+6awntALWh03PewmIJuzbALScsTS4sZoS1fKciBGoh11gIfHzylvkdNe/hJl66/RGqrj5rFb08sAABNTzDTiqqNpJeBsYs/c2aiGozptX2RlnBktH+SUNpAajW724Nv2Wvhif6sFAgMBAAGjge4wgeswHQYDVR0OBBYEFJaffLvGbxe9WT9S1wob7BDWZJRrMIG7BgNVHSMEgbMwgbCAFJaffLvGbxe9WT9S1wob7BDWZJRroYGUpIGRMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbYIBADAMBgNVHRMEBTADAQH/MA0GCSqGSIb3DQEBBQUAA4GBAIFfOlaagFrl71+jq6OKidbWFSE+Q4FqROvdgIONth+8kSK//Y/4ihuE4Ymvzn5ceE3S/iBSQQMjyvb+s2TWbQYDwcp129OPIbD9epdr4tJOUNiSojw7BHwYRiPh58S1xGlFgHFXwrEBb3dgNbMUa+u4qectsMAXpVHnD9wIyfmHMYIBmjCCAZYCAQEwgZQwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tAgEAMAkGBSsOAwIaBQCgXTAYBgkqhkiG9w0BCQMxCwYJKoZIhvcNAQcBMBwGCSqGSIb3DQEJBTEPFw0wNzA4MjMxMzMxMTlaMCMGCSqGSIb3DQEJBDEWBBSpqilTI6JsHuekLpuaUW7/knMu9DANBgkqhkiG9w0BAQEFAASBgJpTH75s+wA31I9JF1FhjKHYmamGzYvzbnj1kYfgrZM3D1lNIfWDIyRY0QpzY3+hLYPDE7PNB3AxWsZ/5LPpcLsHRwmX+KU5Qn4z8wXyTSvovdUuwdOP4wP297dhJnyJAtRq8psMiG04cYvP4rcnxKReYg0iABE/VOBLAF3ZonCZ-----END PKCS7-----\">";
print "</form>";

#print "<A HREF=\"http://www.tubenet.org.uk/paypalmaksu2.shtml\" target=\"_top\">\n"
#} 
#else {

#print "<form action=\"https://www.paypal.com/cgi-bin/webscr\" method=\"post\">";
#print "<input type=\"hidden\" name=\"cmd\" value=\"_s-xclick\">";
#print "<input type=\"image\" src=\"https://www.paypal.com/en_US/i/btn/x-click-but6.gif\" border=\"0\" name=\"submit\" alt=\"Make payments with PayPal - it's fast, free and secure!\">";
#print "<img border=\"0\" src=\"https://www.paypal.com/en_US/i/scr/pixel.gif\" width=\"1\" height=\"1\">";
#print "<input type=\"hidden\" name=\"encrypted\" value=\"-----BEGIN PKCS7-----MIIHXwYJKoZIhvcNAQcEoIIHUDCCB0wCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYBlXF7L/vg4rDO+eETRROPdXPuTqypHNXaEWnL3z0Hw3cPBZldRE4CVohV/ew+yB/IO8egFP+IX6NWNa3zCfso9OY+WXMH5un/o865UfO3m2bjxsDd+a1Gm7pfnn+B/lmqUDkQASF956qy50Wwc3/ujKhfYWpoqwbXkW1CVYKRjaDELMAkGBSsOAwIaBQAwgdwGCSqGSIb3DQEHATAUBggqhkiG9w0DBwQIvdAeCPT8ej2AgbhsMcbFllgDMu1qKtIe4KHYtP//vHgOzIPQG51a2z8rkdDA3VHTGBE1kDOTstBBIrTX3M3lrjNeNBMEDlpanI8auZM9aljVlIieq525sjktoabYz4ywiyuWMYRs/6GQFEfCEruTqrU7y9cXUzL2zQM0/9PvjnBkhdwr2J4RJzOpKeboS8kyzen/aTpjNKrjLQvhXxNWpnyqbYjm6b3l8CIbUs8EY6r1sbucnmINw1CXtCDKVSkh269JoIIDhzCCA4MwggLsoAMCAQICAQAwDQYJKoZIhvcNAQEFBQAwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMB4XDTA0MDIxMzEwMTMxNVoXDTM1MDIxMzEwMTMxNVowgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBR07d/ETMS1ycjtkpkvjXZe9k+6CieLuLsPumsJ7QC1odNz3sJiCbs2wC0nLE0uLGaEtXynIgRqIddYCHx88pb5HTXv4SZeuv0Rqq4+axW9PLAAATU8w04qqjaSXgbGLP3NmohqM6bV9kZZwZLR/klDaQGo1u9uDb9lr4Yn+rBQIDAQABo4HuMIHrMB0GA1UdDgQWBBSWn3y7xm8XvVk/UtcKG+wQ1mSUazCBuwYDVR0jBIGzMIGwgBSWn3y7xm8XvVk/UtcKG+wQ1mSUa6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb22CAQAwDAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOBgQCBXzpWmoBa5e9fo6ujionW1hUhPkOBakTr3YCDjbYfvJEiv/2P+IobhOGJr85+XHhN0v4gUkEDI8r2/rNk1m0GA8HKddvTjyGw/XqXa+LSTlDYkqI8OwR8GEYj4efEtcRpRYBxV8KxAW93YDWzFGvruKnnLbDAF6VR5w/cCMn5hzGCAZowggGWAgEBMIGUMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbQIBADAJBgUrDgMCGgUAoF0wGAYJKoZIhvcNAQkDMQsGCSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDcwODI0MTAwODAwWjAjBgkqhkiG9w0BCQQxFgQUWKmO3CUhn7HOiEIHtz0zliqtz0kwDQYJKoZIhvcNAQEBBQAEgYBiLBkxhUHQVano3G+zExnqRtYi3ScYwpXD1CDz9yf+/OkuiZLG6qXPqPEchpr3Wu19OccwdqX8DE2yGUUsdgWoKcBC6jZAAn9mYR2Bch9joGBkDZaULpDnhm0reqMVNq0DidwVb61p6U1DbMolUIEoVMb66QQeAgj6hqanKpj52Q==-----END PKCS7-----\">";
#print "</form>";

#print "<A HREF=\"http://www.tubenet.org.uk/paypalmaksu.shtml\" target=\"_top\">\n"
#}



#print "<font   color=#ffff00><B>By Paypal</B></font></A><BR><BR>";
print "<LI>";


if ($ostype eq "w") {

if ($kumpioli eq "1") {

print "<A HREF=\"sell2.pl?link=tubenet/6/testing&seed=$alue$laji&rivi=$tietue\" target=\"_top\">\n"
} 
else {
print "<A HREF=\"sell2.pl?link=tubenet/7/testing&seed=$alue$laji&rivi=$tietue\" target=\"_top\">\n"
}
}


if ($kumpioli eq "1") {

print "<li><A HREF=\"http://www.tubenet.org.uk/swift39.html\"  target=\"_top\"><font size=4  color=#ffff00><B>Wire transfer (T/T)</B></font></A> </OL> \n";
} 
else {
print "<li><A HREF=\"http://www.tubenet.org.uk/swift195.html\"  target=\"_top\"><font size=4  color=#ffff00><B>Wire transfer (T/T)</B></font></A> </OL> \n";
}


print "We recommend to use Paypal. There you can also pay by credit cards.\n";
print "<BR> <P> </font>\n";
print "</td></tr></table>";

$nmax=$tietue;
$vain_osa="T";
#&viewadd2;

&omaend;
&htmend2;

exit;
}






sub valinnat
{

&htmhead2;
&omahead;
print "<P><BR>";
#print "<font FACE=\"ARIAL, HELVETICA\" >";
print "<b><font  size=5 color=#ffffff FACE=\"ARIAL, HELVETICA\" >Change / Update registration</font></b><p>\n";
print "<table><tr><td>";
$max=$GET{'max'};
#$gmt =~ s/ /+/g;
#$gmt =~ s/,//g;
print "<a href=\"$action?$ctmd=ededit&tuho=$GET{'tuho'}&alue=$GET{'alue'}&laji=$GET{'laji'}&kumpi=edit\" target=\"_top\"><font size=2 FACE=\"ARIAL, HELVETICA\" color=#ffff00><B>Change your Registration information</b></font></a> <BR>\n"; 
#print "<a href=\"$action?$ctmd=ededit&tuho=$GET{'tuho'}&alue=$GET{'alue'}&laji=$GET{'laji'}&kumpi=uusinta\" target=\"_top\"><font size=2 FACE=\"ARIAL, HELVETICA\" color=#ffff00><B>Renew Registration by paying the fee</b></font> </a><BR>\n"; 
print "<a href=\"$action?$ctmd=maksa2&tietue=$GET{'tuho'}&alue=$GET{'alue'}&laji=$GET{'laji'}&\" target=\"_top\"><font size=2 FACE=\"ARIAL, HELVETICA\" color=#ffff00><B>Renew Registration by paying the fee</b></font> </a><BR>\n"; 
#print "<a href=\"$action?$ctmd=eddelet&tuho=$GET{'tuho'}&alue=$GET{'alue'}&laji=$GET{'laji'}\" target=\"_top\"><font size=2 FACE=\"ARIAL, HELVETICA\" color=#ffff00><B>Delete Registration</B></font></a> \n"; 
print "</td></tr></table>";
print "<P>";
print "<b>[<a href=\"$action?$ctmd=viewadd2&min=$alaraja&max=$max&alue=$alue&laji=$laji&avain=$fields[0]\" target=\"_top\"><font size=2 FACE=\"ARIAL, HELVETICA\" color=#ffff00><B>Back</b></font></A>]</b> &nbsp; &nbsp; &nbsp;\n<br>";
print "<BR>";

&omaend;
&htmend2;
exit;
}




sub kirjoitafileen
{
my ($kumpi) = @_;

$file66=$basepath."2017.dat";

open(file3, ">>$file66");
&lock(file3);
print file3 "$kumpi\n";
&unlock(file3);
close(file3);
}


sub hae_erapaiva {

print "<table><tr bgcolor=#000050><td valign=\"top\"><font  face=\"Arial, Helvetica\"  size=2 color=#ffffff>";
print "<B>Aseta eräpäivä</B> </td><td bgcolor=#000050>";


print "<Select Name=epaiva>";

$i = 0;
for $i (0...31) {
print "<OPTION ";

if ($i<10) {
$vert = "0";
$vert =~ s/0/0$i/g;
if (($kumpi eq "Edit") and ($epaiva eq $vert)) { print " SELECTED "}
print " VALUE=0$i>0$i";
}
else {
if (($kumpi eq "Edit") and ($epaiva eq $i )) { print " SELECTED "}
print " VALUE=$i>$i";
}
}

print "</SELECT>";

print "<Select Name=ekuu>";
$i = 1;
for $i (1...12) {
print "<OPTION ";
if (($kumpi eq "Edit") and ($i eq $ekuu)) { print " SELECTED "}
if ($i eq "1") { print " VALUE=1>January";}
if ($i eq "2") { print " VALUE=2>February";}
if ($i eq "3") { print " VALUE=3>March";}
if ($i eq "4") { print " VALUE=4>April";}
if ($i eq "5") { print " VALUE=5>May";}
if ($i eq "6") { print " VALUE=6>June";}
if ($i eq "7") { print " VALUE=7>July";}
if ($i eq "8") { print " VALUE=8>August";}
if ($i eq "9") { print " VALUE=9>September";}
if ($i eq "10") { print " VALUE=10>October";}
if ($i eq "11") { print " VALUE=11>November";}
if ($i eq "12") { print " VALUE=12>December";}
}
print "</Select>";

print "<Select Name=evuosi>";
if ($evuosi eq "") {$evuosi=1950}
for $i (1900...2000) {
print "<OPTION ";
if (($kumpi eq "Add") and ($i==1950)) {print "selected"}
if (($kumpi eq "Edit") and ($i==$evuosi)) {print "selected"}


print "  VALUE=$i>$i";
}
print "</Select>";

print "</td></tr></table>";

}

sub readisobanner
{
 open (banfile,"$bannerfile2");
  &lock(banfile);
  @banner=<banfile>;
  &unlock(banfile);
  close(banfile);
$roll = int(rand 7) + 1;
$luku=0;
  foreach $alkio (@banner) {
 $luku++;
   	($numero, $imgurl, $jokin) = split(/\s*\|\s*/, $alkio);

#if ($luku eq $roll) {$htmads=$htmads.$imgurl;}
if ($luku eq $roll) {print "$imgurl"}


}
}