Форум программистов [Powered by Invision Power Board]

Код

#!/usr/bin/perl -w
use strict;
use CGI;
use Fcntl qw(:flock);

my $cgi = new CGI();

sub start_lock {
    open(BLOCK, "> locked_file.sem") or die "Can't open lock file: $!";
    flock(BLOCK, LOCK_EX);
}

sub stop_lock {
    close(BLOCK);
}

sub success {
    return $cgi->b({-style => "color: #0000cc"}, "Данные успешно добавлены в гостевую книгу");
}

sub error {
    my $field = shift;
    return $cgi->b({-style => "color: #cc0000"}, "Не верно заполнено поле \"$field\"");
}

sub form {
    my $message = shift || "Все поля обязательны для заполнения";
    print $cgi->div({-style => "width: 450;border-color: #000000;border-style: solid;border-width: 1px"}, $message);
    print $cgi->start_form(-method => "GET");
    print $cgi->b("Ваше имя: ");
    print $cgi->textfield(-name => "name");
    print $cgi->br();
    print $cgi->b("Ваш Email: ");
    print $cgi->textfield(-name => "mail");
    print $cgi->br();
    print $cgi->textarea(-name => "mess",
                         -rows => 5,
                         -columns => 30);
    print $cgi->br(), $cgi->br();
    print $cgi->submit(-name => "send", -value => "Отправить");
    print $cgi->end_form();

    show_content();
}

sub userControl {
    my $name = $cgi->param('name');
    my $mail = $cgi->param('mail');
    my $mess = $cgi->param('mess');

    return error("Ваше имя")  if ($name !~ /^[A-Za-zА-Яа-я ]+$/);
    return error("Ваш Email") if ($mail !~ /^(?:[A-Za-z0-9]+?(?:\.|-|_)?)*(?:[A-Za-z0-9]+)?\@(?:[A-Za-z0-9]+?\.)*?[A-Za-z0-9]{2,4}$/);

    $mess =~ s/\|//g;
    $mess =~ s/\n/<br\/>/g;

    # Сообщение прошло проверку, запишем в базу данных. В нашем случае в файл
    save_message($name, $mail, $mess);
    return success();
}

sub save_message {
    my($name, $mail, $mess) = @_;
    start_lock();  # Начало блокировки

    open my $fh, ">>", "guest.txt" or die "Can't open file 'guest.txt': $!";
    print $fh "$name|$mail|$mess\n";
    close $fh;

    stop_lock();   # Конец блокировки
}

sub show_content {
    my($name,$mail,$mess);
    open my $fh, "<", "guest.txt" or return;
    while (chomp(my $line = <$fh>)) {
          ($name,$mail,$mess) = split(/\|/, $line);
          print $cgi->br(), $cgi->br();
          print $cgi->start_table({-width => 450, -border => 1});
          print $cgi->start_Tr();
          print $cgi->td({-bgcolor => "#cccccc"}, $cgi->a({-href => "mailto:$mail"},$name));
          print $cgi->end_Tr();
          print $cgi->start_Tr();
          print $cgi->td({-bgcolor => "#ffffff"}, $cgi->p($mess));
          print $cgi->end_Tr();
          print $cgi->end_table();
    }
    close $fh;
}

print $cgi->header(-charset => "windows-1251");
if (defined $cgi->param("send")) {
    form(userControl());
} else {
    form();
}