ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexandr Drugov                      2:5031/12.62   14 Jan 2002  18:53:07
 To : All
 Subject : Почему не работает?
 -------------------------------------------------------------------------------- 
 

 
 #!/usr/bin/perl
 
 $script_url = "http://fips.r2.ru/cgi-bin/ebase.cgi";
 # The url of this script.
 $data_file = "emailbase.txt";
 # File where email entries are stored.
 $my_email = 'fips@r2.ru';   
 # Your email.
 
 if ($FORM{'what'} =~ /\b(submit)\b/i){&submit}
 
 sub submit
 {
    # Write a new entry to the emailbase file.
   open (FILE, ">>$data_file");
   flock(FILE, 2);
   seek(FILE, 0, 2);
   print FILE "$FORM{'name'}|$FORM{'email'}";
   close (FILE);
   flock(FILE, 8);
 }
 
 ...bye_All...
 --- alexandr d. drugov [ russian f.i.p.s. developing group ]
  * Origin: drum'n'bass | f.i.p.s. | forfips@mail.ru | fips.r2.ru (2:5031/12.62)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор