Can someone tell me how am i gonna write this one to perl?
Posted: Sun Apr 13, 2003 12:47 pm
<?php
ob_start(); error_reporting(E_ALL); $xronos=date("l dS of F h:i:s A"); $host=gethostbyaddr($_SERVER['REMOTE_ADDR']); $i=0;
echo "<body background=pics/anemos.jpg>";
echo "<font size=5 color=Yellow>";
if (@mysql_connect('localhost', 'nik', 'macgyver'));
else @mysql_connect('localhost', 'root');
mysql_select_db('db_nik');
$data = file("data.txt");
$diary = file("diary.txt");
$tainies = file("tainies.txt");
?>
<center><font size=5 color=Cyan>- Ðáñáããåëßá Ôáéíéþí DivX by Nik! - <br>
<center><font size=4 color=Pink>* ÅëÜ÷éóôç ðáñáããåëßá åßíáé 5 ôáéíßåò ìå êüóôïò 4 euro áíÜ cd *<br>
<center><font size=4 color=Pink>* Ãéá ðáñáããåëßåò Üíù ôùí 10 ôáéíéþí ôï êüóôïò áíÜ cd êáôåâáßíåé óôá 3 euro *<br>
<center><font size=4 color=Pink>* Ãéá ó÷üëéá êáé ðáñáôçñÞóåéò üóïí áöïñÜ ôéò ôáéíßåò ðáñáêáëþ ãñÜøå ìïõ óôï nik0s@mycosmos.gr *<br><br>
<form action="check.php" method="post">
<table border=1 width=50% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 1çò ôáéíßáò? </td>
<td align=center> <select name=dvd1> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 2çò ôáéíßáò? </td>
<td align=center> <select name=dvd2> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 3çò ôáéíßáò? </td>
<td align=center> <select name=dvd3> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 4çò ôáéíßáò? </td>
<td align=center> <select name=dvd4> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 5çò ôáéíßáò? </td>
<td align=center> <select name=dvd5> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
</table><br><br>
<table border=1 width=40% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>
<tr> <td align=center> <input type="submit" name="kataxorisi" value="ÈÝëù íá ðáñáããåßëù áõôÝò ôéò 5 ôáéíßåò"> </td></tr>
<tr> <td align=center> <input type="submit" name="emfanisi" value="ÈÝëù íá äþ ðïéÝò ôáéíßåò Ý÷ù ðáñáããåßëåé"> </td></tr>
<tr> <td align=center> <input type="submit" name="diagrafi" value="ÈÝëù íá ìåôáâÜëù ìéá ôñÝ÷ïõóá ðáñáããåëßá"> </td></tr>
</tr>
</table>
</form><br>
<form action="eggrafi.php" method="post">
<input type="submit" name="eggrafi" value="ÅããñáöÞ ÌÝëïõò">
</form>
<form action="progs.php" method="post">
<input type="submit" name="progs" value="ÄéÜöïñá Ðáé÷íßäéá êáé ÐñïãñÜììáôá">
</form>
<form action="logos.php" method="post">
<input type="submit" name="logos" value="ÈáõìÜóéï Ðíåõìáôéêü êáé Øõ÷ùöåëÝò Êåßìåíï!">
</form><br>
<?
echo "<center><font size=4 color=Cyan>";
foreach($diary as $lineno=>$line)
if($line=="\n") unset($diary[$lineno]);
$diary = array_values($diary);
$quote=$diary[rand(0, count ($diary)-1)];
echo "<table border=1 width=80% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>";
echo "<tr>";
echo "<td> <center><font size=4 color=Cyan> $quote </td>";
echo "</tr>";
echo "</table>";
echo "<br>";
echo "<center><font size=4 color=Orange> $xronos";
echo "<center><font size=4 color=Pink> $host";
mysql_query("UPDATE counter SET visitor=visitor+1");
$sql = mysql_query("SELECT visitor FROM counter");
$visitor = mysql_fetch_array($sql);
echo "<center><font size=5 color=Yellow> $visitor[0]";
echo "<center><a href=personal><img src=pics/cross.gif></a>";
mail ("nik0s@mycosmos.gr", "Åðßóêåøç ÁôæÝíôáò $host => $visitor[0]", "", "From: 007@spy.gr");
?>
!!! Pls its urgent !!!
Thank you very much!
ob_start(); error_reporting(E_ALL); $xronos=date("l dS of F h:i:s A"); $host=gethostbyaddr($_SERVER['REMOTE_ADDR']); $i=0;
echo "<body background=pics/anemos.jpg>";
echo "<font size=5 color=Yellow>";
if (@mysql_connect('localhost', 'nik', 'macgyver'));
else @mysql_connect('localhost', 'root');
mysql_select_db('db_nik');
$data = file("data.txt");
$diary = file("diary.txt");
$tainies = file("tainies.txt");
?>
<center><font size=5 color=Cyan>- Ðáñáããåëßá Ôáéíéþí DivX by Nik! - <br>
<center><font size=4 color=Pink>* ÅëÜ÷éóôç ðáñáããåëßá åßíáé 5 ôáéíßåò ìå êüóôïò 4 euro áíÜ cd *<br>
<center><font size=4 color=Pink>* Ãéá ðáñáããåëßåò Üíù ôùí 10 ôáéíéþí ôï êüóôïò áíÜ cd êáôåâáßíåé óôá 3 euro *<br>
<center><font size=4 color=Pink>* Ãéá ó÷üëéá êáé ðáñáôçñÞóåéò üóïí áöïñÜ ôéò ôáéíßåò ðáñáêáëþ ãñÜøå ìïõ óôï nik0s@mycosmos.gr *<br><br>
<form action="check.php" method="post">
<table border=1 width=50% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 1çò ôáéíßáò? </td>
<td align=center> <select name=dvd1> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 2çò ôáéíßáò? </td>
<td align=center> <select name=dvd2> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 3çò ôáéíßáò? </td>
<td align=center> <select name=dvd3> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 4çò ôáéíßáò? </td>
<td align=center> <select name=dvd4> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
<tr>
<td align=center> <font size=5 color=LightGreen> Ôßôëïò 5çò ôáéíßáò? </td>
<td align=center> <select name=dvd5> <?foreach ($tainies as $tainia) echo "<option>$tainia</option>";?> </select></td>
</tr>
</table><br><br>
<table border=1 width=40% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>
<tr> <td align=center> <input type="submit" name="kataxorisi" value="ÈÝëù íá ðáñáããåßëù áõôÝò ôéò 5 ôáéíßåò"> </td></tr>
<tr> <td align=center> <input type="submit" name="emfanisi" value="ÈÝëù íá äþ ðïéÝò ôáéíßåò Ý÷ù ðáñáããåßëåé"> </td></tr>
<tr> <td align=center> <input type="submit" name="diagrafi" value="ÈÝëù íá ìåôáâÜëù ìéá ôñÝ÷ïõóá ðáñáããåëßá"> </td></tr>
</tr>
</table>
</form><br>
<form action="eggrafi.php" method="post">
<input type="submit" name="eggrafi" value="ÅããñáöÞ ÌÝëïõò">
</form>
<form action="progs.php" method="post">
<input type="submit" name="progs" value="ÄéÜöïñá Ðáé÷íßäéá êáé ÐñïãñÜììáôá">
</form>
<form action="logos.php" method="post">
<input type="submit" name="logos" value="ÈáõìÜóéï Ðíåõìáôéêü êáé Øõ÷ùöåëÝò Êåßìåíï!">
</form><br>
<?
echo "<center><font size=4 color=Cyan>";
foreach($diary as $lineno=>$line)
if($line=="\n") unset($diary[$lineno]);
$diary = array_values($diary);
$quote=$diary[rand(0, count ($diary)-1)];
echo "<table border=1 width=80% align=Center bordercolor=Yellow style='border-style: solid; border-width: 5' background=pics/blue.jpg>";
echo "<tr>";
echo "<td> <center><font size=4 color=Cyan> $quote </td>";
echo "</tr>";
echo "</table>";
echo "<br>";
echo "<center><font size=4 color=Orange> $xronos";
echo "<center><font size=4 color=Pink> $host";
mysql_query("UPDATE counter SET visitor=visitor+1");
$sql = mysql_query("SELECT visitor FROM counter");
$visitor = mysql_fetch_array($sql);
echo "<center><font size=5 color=Yellow> $visitor[0]";
echo "<center><a href=personal><img src=pics/cross.gif></a>";
mail ("nik0s@mycosmos.gr", "Åðßóêåøç ÁôæÝíôáò $host => $visitor[0]", "", "From: 007@spy.gr");
?>
!!! Pls its urgent !!!
Thank you very much!