Coverting a Perl Console Script to a Web Script!
Posted: Tue Apr 15, 2003 11:19 am
What else must i do in order to get this Perl file act as a cgi script??
use warnings;
use DBI;
use DBD::mysqlPP;
use CGI qw(:standard);
print header;
print start_html('A Simple Example');
$db = DBI->connect("DBI:mysqlPP:database=db_nik;host=localhost") or
$db = DBI->connect("DBI:mysqlPP:database=db_nik;host=nik.wvbuzz.com", "nik", "macgyver", {RaiseError => 1});
open(IN, "diary.txt"); @diary=<IN>; close(IN);
open(IN, "tainies.txt"); @tainies=<IN>; close(IN);
$xronos = localtime; $i=0;
$ip = $ENV{'REMOTE_ADDR'};
@numbers = split(/\./, $ip);
$ip_number = pack("C4", @numbers);
($host) = (gethostbyaddr($ip_number, 2))[0];
print "<body background=pics/anemos.jpg>";
print "<font size=5 color=Yellow>";
print "<center><font size=5 color=Cyan>- ?anaaaae?a Oaeie?i DivX by Nik! -<br>";
print "<center><font size=4 color=Pink>* AeU?eooc ?anaaaae?a a?iae 5 oaei?ao ia euooio 4 euro aiU cd *<br>";
print "<center><font size=4 color=Pink>* Aea ?anaaaae?ao Uiu oui 10 oaeie?i oi euooio aiU cd eaoaaa?iae ooa 3 euro *<br>";
print "<center><font size=4 color=Pink>* Aea o?ueea eae ?anaocn?oaeo uoii aoinU oeo oaei?ao ?anaeae? anUoa iio ooi nik0s\@mycosmos.gr *<br><br>";
print "<form action=check.php method=post>";
print "<table border=1 width=50% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>";
foreach (1 .. 5)
{
print "<tr>";
print "<td align=center> <font size=5 color=LightGreen> O?oeio $_ co oaei?ao </td>";
print "<td align=center> <select name=dvd1> foreach(@tainies) {<option> $_ </option> }</select></td>";
print "</tr>";
}
print "</table><br><br>";
print "<table border=1 width=40% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>";
print "<tr> <td align=center> <input type=submit name=kataxorisi value=EYeu ia ?anaaaa?eu aooYo oeo 5 oaei?ao> </td></tr>";
print "<tr> <td align=center> <input type=submit name=emfanisi value=EYeu ia a? ?ieao oaei?ao Y?u ?anaaaa?eae> </td></tr>";
print "<tr> <td align=center> <input type=submit name=diagrafi value=EYeu ia iaoaaUeeu iea ?anaaaae?a ?io Y?u eUiae> </td></tr>";
print "</table>";
print "</form><br>";
print "<form action=eggrafi.php method=post>";
print "<input type=submit name=eggrafi value=Aaanao? IYeioo>";
print "</form>";
print "<form action=progs.php method=post>";
print "<input type=submit name=progs value=AeUoina ?ae?i?aea eae ?nianUiiaoa>";
print "</form>";
print "<form action=logos.php method=post>";
print "<input type=submit name=logos value=EaoiUoea ?iaoiaoeeU eae Oo?uoaeYooaoa Ea?iaia!>";
print "</form><br>";
print "<center><font size=4 color=Cyan>";
print "<table border=1 width=80% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>";
print "<tr>";
print "<td> <center><font size=4 color=Cyan> 1 </td>";
print "</tr>";
print "</table><br>";
@diary=();
open(IN, "diary.txt");
while (<IN>)
{
chomp;
next unless $_=~/\w/;
push (@diary, $_);
}
close(IN);
$len=$#diary;
$quote = int( rand(1 + $len) );
$quote-- if $quote == 1 + $len;
$quote = $diary[$quote];
print "<center><font size=4 color=Orange> $xronos";
print "<center><font size=4 color=Pink> $host";
$sql = "UPDATE counter SET visitor=visitor+1";
$db->do($sql);
$st = $db->prepare( q{SELECT visitor FROM counter});
$st->execute();
@visitor = $st->fetchrow_array();
print "<center><font size=5 color=Yellow> $visitor[0]";
print "<center><a href=personal><img src=pics/cross.gif></a>";
mail ("nik0s\@mycosmos.gr", "A??oeaoc Ao?Yioao $host => $visitor[0]", "", "From: 007\@spy.gr");
Thanks
use warnings;
use DBI;
use DBD::mysqlPP;
use CGI qw(:standard);
print header;
print start_html('A Simple Example');
$db = DBI->connect("DBI:mysqlPP:database=db_nik;host=localhost") or
$db = DBI->connect("DBI:mysqlPP:database=db_nik;host=nik.wvbuzz.com", "nik", "macgyver", {RaiseError => 1});
open(IN, "diary.txt"); @diary=<IN>; close(IN);
open(IN, "tainies.txt"); @tainies=<IN>; close(IN);
$xronos = localtime; $i=0;
$ip = $ENV{'REMOTE_ADDR'};
@numbers = split(/\./, $ip);
$ip_number = pack("C4", @numbers);
($host) = (gethostbyaddr($ip_number, 2))[0];
print "<body background=pics/anemos.jpg>";
print "<font size=5 color=Yellow>";
print "<center><font size=5 color=Cyan>- ?anaaaae?a Oaeie?i DivX by Nik! -<br>";
print "<center><font size=4 color=Pink>* AeU?eooc ?anaaaae?a a?iae 5 oaei?ao ia euooio 4 euro aiU cd *<br>";
print "<center><font size=4 color=Pink>* Aea ?anaaaae?ao Uiu oui 10 oaeie?i oi euooio aiU cd eaoaaa?iae ooa 3 euro *<br>";
print "<center><font size=4 color=Pink>* Aea o?ueea eae ?anaocn?oaeo uoii aoinU oeo oaei?ao ?anaeae? anUoa iio ooi nik0s\@mycosmos.gr *<br><br>";
print "<form action=check.php method=post>";
print "<table border=1 width=50% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>";
foreach (1 .. 5)
{
print "<tr>";
print "<td align=center> <font size=5 color=LightGreen> O?oeio $_ co oaei?ao </td>";
print "<td align=center> <select name=dvd1> foreach(@tainies) {<option> $_ </option> }</select></td>";
print "</tr>";
}
print "</table><br><br>";
print "<table border=1 width=40% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>";
print "<tr> <td align=center> <input type=submit name=kataxorisi value=EYeu ia ?anaaaa?eu aooYo oeo 5 oaei?ao> </td></tr>";
print "<tr> <td align=center> <input type=submit name=emfanisi value=EYeu ia a? ?ieao oaei?ao Y?u ?anaaaa?eae> </td></tr>";
print "<tr> <td align=center> <input type=submit name=diagrafi value=EYeu ia iaoaaUeeu iea ?anaaaae?a ?io Y?u eUiae> </td></tr>";
print "</table>";
print "</form><br>";
print "<form action=eggrafi.php method=post>";
print "<input type=submit name=eggrafi value=Aaanao? IYeioo>";
print "</form>";
print "<form action=progs.php method=post>";
print "<input type=submit name=progs value=AeUoina ?ae?i?aea eae ?nianUiiaoa>";
print "</form>";
print "<form action=logos.php method=post>";
print "<input type=submit name=logos value=EaoiUoea ?iaoiaoeeU eae Oo?uoaeYooaoa Ea?iaia!>";
print "</form><br>";
print "<center><font size=4 color=Cyan>";
print "<table border=1 width=80% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>";
print "<tr>";
print "<td> <center><font size=4 color=Cyan> 1 </td>";
print "</tr>";
print "</table><br>";
@diary=();
open(IN, "diary.txt");
while (<IN>)
{
chomp;
next unless $_=~/\w/;
push (@diary, $_);
}
close(IN);
$len=$#diary;
$quote = int( rand(1 + $len) );
$quote-- if $quote == 1 + $len;
$quote = $diary[$quote];
print "<center><font size=4 color=Orange> $xronos";
print "<center><font size=4 color=Pink> $host";
$sql = "UPDATE counter SET visitor=visitor+1";
$db->do($sql);
$st = $db->prepare( q{SELECT visitor FROM counter});
$st->execute();
@visitor = $st->fetchrow_array();
print "<center><font size=5 color=Yellow> $visitor[0]";
print "<center><a href=personal><img src=pics/cross.gif></a>";
mail ("nik0s\@mycosmos.gr", "A??oeaoc Ao?Yioao $host => $visitor[0]", "", "From: 007\@spy.gr");
Thanks