Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea.iki.rssi.ru/integral06/perl-bin/confirmation2.pl_old
Дата изменения: Wed Mar 21 23:31:55 2007
Дата индексирования: Mon Oct 1 23:19:45 2012
Кодировка:
Поисковые слова: m 80
#!/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 "The 6th INTEGRAL Workshop \"The Obscured Universe\"";

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 "";
exit 0;
}

exit 0 unless &bib'open($bibfile);
$totrecs = 0;

$is_valid=0;
$print="";
while ($record = &bib'read($bibfile) ) {
%entry = &bib'explode($record);
if($entry{email} eq $field{email}){
$is_valid=1;
$pfirst_name="$entry{first_name}";
$plast_name="$entry{last_name}";
$ptitle="$entry{title}";
$pabstract="$entry{abstract}";
$paddress="$entry{address}";
$pemail="$entry{email}";
$pdate="$entry{date}";
$ptype="$entry{type}";
$ppersons_number="$entry{persons_number}";
$paffiliation="$entry{affiliation}";

$name="$entry{first_name} $entry{last_name}";
$print.="";
foreach $k (sort keys %entry){
next if($k eq "CITEKEY");
next if($k eq "TYPE");
next if($k eq "date");
next if($k eq "comments" && $entry{'comments'} eq "");
next if($k eq "under35" && $entry{'under35'} eq "no");
$print.="\n";
}
$print.="
$k$entry{$k}
";
$print.="

Record $entry{date}

";
}
}
&bib'close($bibfile);

if($is_valid == 0){
print "ERROR: Entry not found.
";
&print_form;
}else{

print "

Dear Dr. $name,

Please find below the information you have entered during pre-registration,

check and correct it (if necessary) and confirm (or no) your participation.

The scientific programme of the Workshop can be found here.

";

print "





   First Name:   

 Last Name:










































 

Affiliation:



Address:


Presentation: $ptype


Title:


Abstract:


Number
 of accompanying persons:


Date of  
pre-registration: $pdate

  
This final registration means the agreement to pay the workshop fee of 8500 Rbls

(equivalent of 250 Euro) in cash to the LOC at the registration desk at IKI after
arrival to the workshop
(see however Note on support)
  

  




";
}

print "\n";

sub urldecode{
local($val)=@_;
#$val =~ s/\+/ /g;
$val =~ s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
return $val;
}


sub print_form{
print "Please enter e-mail which you have typed in pre-registration:
";
print "
";
}