|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sutovsky Vladimir 2:4624/8.5 15 Jan 2002 12:44:54
To : Alexandr Drugov
Subject : Re: Почему не работает?
--------------------------------------------------------------------------------
01 Янв 70 00:00, Alexandr Drugov wrote to All:
AD> ... hi_All....
AD> Господа, почему вот это не работает :(
AD> #!/usr/bin/perl
AD> $script_url = "http://fips.r2.ru/cgi-bin/ebase.cgi";
AD> # The url of this script.
AD> $data_file = "emailbase.txt";
AD> # File where email entries are stored.
AD> $my_email = 'fips@r2.ru';
$my_email = 'fips\@r2.ru';
так, для начала, а вообще он файл у тебя прямо в cgi-bin лежит? или таки путь
пропишешь ради интереса?
AD> # Your email.
AD> if ($FORM{'what'} =~ /\b(submit)\b/i){&submit}
AD> sub submit
AD> {
AD> # Write a new entry to the emailbase file.
AD> open (FILE, ">>$data_file");
AD> flock(FILE, 2);
AD> seek(FILE, 0, 2);
AD> print FILE "$FORM{'name'}|$FORM{'email'}";
AD> close (FILE);
AD> flock(FILE, 8);
AD> }
AD> ...bye_All...
AD> --- alexandr d. drugov [ russian f.i.p.s. developing group ]
AD> * Origin: drum'n'bass | f.i.p.s. | forfips@mail.ru | fips.r2.ru
AD> (2:5031/12.62)
Bye! Sutovsky [Team no Future]
--- Antares | http://antares.km.ua | antares@km.ua | icq #49232492
* Origin: Улыбайся, завтра будет еще хуже... (2:4624/8.5)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
