#!/usr/bin/perl use Captcha::reCAPTCHA; my @known_words = ('Marasan','booYone','oranGe','turIn','Towers','TripTaMine','Perpetuum','Apec','SlafKof','lazzna','synteZa','psyTrance','SemoTamo'); my $chat_history = "guests_pukes_c"; sub parse_form_data { local (*FORM_DATA) = @_; local ( $request_method, $query_string, @key_value_pairs, @key_value, $key, $value ); $request_method = $ENV{'REQUEST_METHOD'}; if (($request_method eq "GET") || ($request_method eq "get")) { $query_string = $ENV{'QUERY_STRING'}; } elsif (($request_method eq "POST") || ($request_method eq "post")) { read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); } else { &return_error (500, "Server Error", "Server method '" . $request_method . "' sux"); } @key_value_pairs = split(/&/, $query_string); foreach $key_value (@key_value_pairs) { ($key, $value) = split (/=/, $key_value); $value =~ tr/+/ /; $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg; if (defined($FORM_DATA{$key})) { $FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value); } else { $FORM_DATA{$key} = $value; } }; } sub return_error { local ($status, $keyword, $message) = @_; print "Content-Type: text/html\n"; print "Status: ", $status, " ", $keyword, "\n\n"; print " ...chyba... "; print "

$keyword

$message
"; exit(1); } sub is_it_in { return 0; local ($look_for) = @_[0]; # print "\nLookFor $look_for.
\n"; foreach (@known_words) { return 1 if $_ eq $look_for; } # print "return 0
\n"; return 0; } &parse_form_data (*form_data); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon = $mon + 1; # $min $mday $mon potrebujou nekdy na zacatku 0 ;-) $min =~ s/^(\d{1})$/0$+/; $mday =~ s/^(\d{1})$/0$+/; $mon =~ s/^(\d{1})$/0$+/; $sec =~ s/^(\d{1})$/0$+/; $year = $year + 1900; my $timestamp = "$year.$mon.$mday $hour:$min:$sec"; my $captcha = Captcha::reCAPTCHA->new; my $nol_to_show = 30; print "Content-Type: text/html\n"; print "Pragma: no-cache\n\n"; print '',"\n"; print <booYone phoroom
nick:
e-mail:
zpráva:
reCaptcha: ENDE print $captcha->get_html( '6LfmpQIAAAAAAMTrOgwwcj8DTxwsm4Qx0UkxD2Jm' ); print <
  Get Firefox  


ENDE my $challenge = $form_data{'recaptcha_challenge_field'}; my $response = $form_data{'recaptcha_response_field'}; # print "\n"; my $result = $captcha->check_answer( '6LfmpQIAAAAAAFDPhd2Cwb4X_dSEzTEUuLP9YN8O', $ENV{'REMOTE_ADDR'}, $challenge, $response ); if (defined($form_data{'odeslat'})) { if ((($form_data{'nick'} eq '') && ($form_data{'email'} !~ /[\d\w.]+\@[\d\w.]+\.[\d\w]+/)) || ($form_data{'zprava'} eq '')) { print "\n"; print "... aspon nick nebo e-mail a zpravu.

"; } elsif ( ($challenge ne "") && ( $response ne "" ) && ( !$result->{is_valid} ) ) { print "chybná reCaptcha.

\n"; # print "\n"; } elsif ( $result->{is_valid} ) { # print "\n"; $radek_out = $timestamp . '||'; $radek_out .= $ENV{'REMOTE_ADDR'} . '||'; $radek_out .= $form_data{'nick'} . '||'; $radek_out .= $form_data{'email'} . '||'; if ($form_data{'email'} =~ /rootsproduction.*/ ) { $form_data{'zprava'} = "..." } $radek_out =~ s/\@/\&\#64;/g ; $form_data{'zprava'} =~ s/\&/\&/g; # $form_data{'zprava'} =~ s/<.*>/<>/g; $form_data{'zprava'} =~ s//\>/g; $form_data{'zprava'} =~ s/\r\n/
/g; $form_data{'zprava'} =~ s/\|/./g; $radek_out .= $form_data{'zprava'}; # print "\n"; open DATAF,">>".$chat_history; print DATAF $radek_out,"\n"; close DATAF; } } #print "\n
now exit\n"; #exit; if (defined($form_data{'go_other'})) { $wieviel = $form_data{'wieviel'}; } else { $wieviel = $nol_to_show; } open DATAF,"tail -n $wieviel $chat_history |"; my $discussion; my $nolts = $nol_to_show; while (($radek = ) && ($nolts-- > 0)) { ($timestamp, $IP, $nick, $email, $zprava) = split (/\|\|/, $radek); $timestamp =~ s: : | : ; $prispevek = ''; $prispevek .= " $timestamp | "; $prispevek .= " $nick | " if $nick ne ''; ##$prispevek .= " $email" if $email =~ /[\d\w.]+\@[\d\w.]+.[\d\w]+/; $prispevek .= " $email" if $email =~ /[\d\w.]+\@[\d\w.]+.[\d\w]+/; $prispevek .= '
' . $zprava . '

' . "\n"; $discussion = $prispevek . $discussion; } close DATAF; print $discussion; open NOL,"cat $chat_history | wc -l|"; $radek = ; close NOL; $nol = $radek; $cnol = $radek; if ($cnol > $nol_to_show) { print '
', '
'; } print "
\n"; # FOOTER open FOOTERF,'footer'; print $radek while $radek = ; close FOOTERF; ######## print '';