| Sivka ( @ 2009-06-15 17:50:00 |
Глубина всей пропасти: файл css.cgi
#!/usr/local/bin/perl
use POSIX;
use CGI qw/:standard/;
$userid = param(userid);
($cherniy, $ttseriy, $tseriy, $t2seriy, $seriy, $sseriy, $beliy) = ("#000000", "#707070", "#e0e0e0", "#e7e7e7", "#f0f0f0", "#f7f7f7", "#ffffff");
#!/usr/local/bin/perl
use POSIX;
use CGI qw/:standard/;
$userid = param(userid);
($cherniy, $ttseriy, $tseriy, $t2seriy, $seriy, $sseriy, $beliy) = ("#000000", "#707070", "#e0e0e0", "#e7e7e7", "#f0f0f0", "#f7f7f7", "#ffffff");