Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://hea.iki.rssi.ru/integral06/perl-bin/confirmation2_test.pl~
Дата изменения: Wed Mar 21 23:31:55 2007 Дата индексирования: Mon Oct 1 23:20:07 2012 Кодировка: Поисковые слова: universe |
#!/usr/bin/perl
# get current time and data
@TIME = localtime(time);
$DATE = @TIME[3].".".(@TIME[4]+1).".".(@TIME[5]+1900);
$time = @TIME[2].":".@TIME[1].":".@TIME[0];
$bibfile="/export/web/data/integral06/pregistration.bib";
require "bp.pl";
&bib'format("auto");
if($ENV{'REQUEST_METHOD'} eq 'GET'){
$query = $ENV{'QUERY_STRING'};
}elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});
}
$query=urldecode($query);
print "Content-Type: text/html\n\n";
print "
"; Workshop Information: Related Information:
print "
print "";
print "";
print "
print "";
print " ";
";
The 6th INTEGRAL Workshop
The Obscured Universe
Space Research Institute, Moscow, Russia
July 2-8, 2006
print "
print "
";
print "";
if($query ne ''){
@fvalues = split(/&/,$query);
foreach $i (0 .. $#fvalues){
$str=$fvalues[$i];
($name,$val) = split(/=/,$fvalues[$i],2);
$name=&urldecode($name);
$val=&urldecode($val);
$field{$name} = $val;
}
}
if($query eq '' || $field{email} eq ''){
&print_form;
print "