Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea.iki.rssi.ru/Z-90/test.pl~ Дата изменения: Sat May 29 18:31:19 2004 Дата индексирования: Mon Oct 1 19:53:57 2012 Кодировка: Поисковые слова: http astrokuban.info astrokuban

#!/usr/bin/perl

#use Text::BibTeX;


require "bp.pl";

# get current time and data
@TIME = localtime(time);
$DATE = @TIME[3].".".(@TIME[4]+1).".".(@TIME[5]+1900);
$time = @TIME[2].":".@TIME[1].":".@TIME[0];


$bib_file="/tmp/z90-form.bib";
$head="/export/web/www/Z-90/head.html";
$tail="/export/web/www/Z-90/tail.html";
$form="form";

@TIME = localtime(time);
$DATE = @TIME[3].".".(@TIME[4]+1).".".(@TIME[5]+1900);
$time = @TIME[2].":".@TIME[1].":".@TIME[0];
$query;

if($ENV{'REQUEST_METHOD'} eq 'GET'){
$query = $ENV{'QUERY_STRING'};
($l,$lang)=split("=",$query);
$lang="rus" if($lang eq "");
$query="";
}elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});
}
$query=urldecode($query);


$sort='author';

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;
}
$sort=$field{'sort'} if(defined $field{'sort'});
}


print "Content-Type: text/html\n\n";


# my $bibfile = new Text::BibTeX::File "/tmp/foo.bib";
# my $newfile = new Text::BibTeX::File ">/tmp/newfoo.bib";
# while ($entry = new Text::BibTeX::Entry $bibfile)
# {
# next unless $entry->parse_ok;
# print "

---

".$entry->key."
";
# $entry->write ($newfile);
# }
# exit 0;



if(checkf($head)){
open FD,"<$head" ;
while (){
print;
}close FD;
}

&check ($bib_file);

if(checkf($tail)){
open FD,"<$tail" ;
while (){
print;
}close FD;
}


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


sub check{
&bib'format("auto");

print "";
foreach $file ($_[0]) {
next unless &bib'open($file);
$totrecs = 0;
print "";
print "";

while ($record = &bib'read($file) ) {
%entry = &bib'explode($record);
print "";
$totrecs++;
}
print "

Applicant	Attendence probability	Title
"; if ( defined($entry{'author'}) ) { print "$entry{'author'} "; } print "	"; if ( defined($entry{'attendence'}) ) { print "$entry{'attendence'} "; } print "	"; if ( defined($entry{'title'}) ) { print "$entry{'title'} "; } print "

";
&bib'close($file);
}
print "

Total number of pre-registered partisipants is $totrecs.

";

print "";

}

sub checkf{
unless (-f $_[0]){
print "ERROR: Can\'t open file \"$_[0]\"" ;
return false;
}else{
return true;
}
}