#!/usr/lib/perl5
#############################################################################
# Цитата ver 1.0                                                    	    #
# Написан Юриным Андреем 26.08.98                                           #
# Вы можете направлять свои пожелания и вопросы на webmaster@eliz.ru        #
# или через www.eliz.ru                                                     #
#############################################################################

##################################################
# Определение переменных:
##################################################

$path_file = "/usr2/http/asa/citate/citate.dtb";



$delimiter = "\@\@\@";
open(FILE, "$path_file");
@FILE = <FILE>;
close(FILE);
$phrases = join('<br>',@FILE);
@phrases = split(/$delimiter/,$phrases);
srand(time ^ $$);
$phrase = rand(@phrases);
my $out = $phrases[$phrase];
print "<p align=center><table border=\"0\" cellpadding=\"3\"  cellspacing=\"0\" width=\"200\">\n";
print "<tr>\n";
print "<td bgcolor=\"#BF95FF\" width=\"90%\">╓шЄрЄр</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td bgcolor=white>$out</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td align=\"center\" width=\"20%\" bgcolor=white><font size=\"3\" color=\"#BF95FF\"><b><i>╩юч№ьр ╧ЁєЄъют</i></b><br><font size=1>╤ъЁшяЄ ёючфрэ <a href=\"mailto:webmaster\@eliz.ru\">▐Ёшэ√ь └эфЁххь</a>, <a href=\"http://www.eliz.ru\">http://www.eliz.ru</a></font></td>\n";
print "</tr>\n";
print "</table></p>\n";