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

Код


#! perl -w

use strict;
use CGI qw/:standard/;
use CGI::Carp qw( fatalsToBrowser );
use Fcntl qw/:flock/;

#скрипт гостевой книги
sub bail{                          
    my $error = "@_";
    print p(h4("Error:"), $error);
    print end_html;
    die $error;
}

my( 
    $message_file,
    $title,
    $obj,
    $mes,
    @arr,
    $name);

$message_file = "tmp/guestbook";
$title = "Гостевая книга";
$obj = CGI->new();

print header(
    -type => 'text/html',
    -charset => 'windows-1251'),
    start_html($title), h3($title);

    if (param("message")) {
        $obj->param("date", scalar localtime);
        $obj->param("addr", $ENV{REMOTE_ADDR});
            if (!param("name")) {
                $name = "Анонимно";
                $obj->param("name", $name);
            }
        @arr = ($obj)
}

open (FILE_BOOK, "+< $message_file") or bail("cannot open $message_file: $!");
flock(FILE_BOOK, LOCK_EX) or bail("cannot flock $message_file: $!");
    
    while (!eof(FILE_BOOK)) {
        $mes = CGI->new(\*FILE_BOOK);
        push @arr, $mes;
    }

seek(FILE_BOOK, 0, 0) or bail ("cannot rewind $message_file: $!");
    foreach $mes (@arr) {
        $mes->save(\*FILE_BOOK);
    };
close(FILE_BOOK);

print hr(), start_form(),
    p("Ваше имя:", $obj->textfield(
    -NAME => "name",
    -OVERRIDE => 1)),
    p("Ваше сообщение:"), 
    $obj->textarea(
    -NAME => "message",
    -OVERRIDE => 1,
    -ROWS => 10,
    -COLUMNS => 40,
    -MAXLENGTH => 10),
    p(submit(
    -NAME =>"Отправить",
    -onClick =>), reset("Очистить")),
    end_form();
print hr(), h4("Предыдущие сообщения:");
    foreach $mes (@arr) {
        printf "%s\t[%s]:\t%s", $mes->param("date"), $mes->param("name"), $mes->param("message");
        print br();
    }
print end_html();

Цитата(Leshik @ 6.9.2007, 21:48

)

но всё же может быть есть ещё какой-нибудь способ?

Цитата(StealtH @ 6.9.2007, 23:11

)

Как вариант, попробуй в базу писать md5 хеш поста

Цитата(Leshik @ 6.9.2007, 23:27)

Цитата(StealtH @ 6.9.2007, 23:11

)

Как вариант, попробуй в базу писать md5 хеш поста

А не могли бы вы обьяснить как это сделать или где про это можно почитать.
Спасибо

Код



#!/usr/bin/perl

use strict;

..................................

my $hash = md5_hex($FORM{'post'});
open FILE, 'hashes';
chomp(my @hashes = <FILE>);
my $flag = 0;
for(0..$#hashes)}{

    if($hash eq $hashes[$_]){
         $flag = 1;
         last;
    }
}

if (!$flag){
    open FILE, ">>hashes";
    print FILE $hash, "\n";
} else {
    &message('Duplicate of record');
}

Код


print qq(Location: $ENV{HTTP_REFERER}&ok=1\n\n);

Код


if($ENV{ok})
{
print "<h2 class='ok'>Ваше сообщение добавлено</h2>";
}