Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea.iki.rssi.ru/conf/hea2007/list.pl~ Дата изменения: Sun Nov 11 16:12:51 2007 Дата индексирования: Mon Oct 1 22:15:52 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="/export/web/data/hea2007/default.bib";

$form="form";

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





%prelist=();

print "";

$oral=1;

start:
$totrecs=0;
$cdinner=0;
$calive=0;
%prelist=();
foreach $file ($bib_file){

next unless &bib'open($file);
while ($record = &bib'read($file)){
%entry = &bib'explode($record);
next if(defined $entry{'unable'});
next if(defined $entry{'hide'});
#next if(defined $entry{'noreport'});


print "$entry{'title'}\n";
}

&bib'close($file);



print "

(Titles are given only for confirmed posters. If you don't find yours, please confirm it to z90info\@hea.iki.rssi.ru)

";


print "";
#print "";

foreach $i (sort keys %prelist){
print "$prelist{$i}";
}
print "

Participant	P (\%)	Title		From...

";



print "";

}

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