#!/usr/local/bin/perl
##############################################################################
#
# galaxies_preprints.cgi (see also galaxies_papers.cgi)
# php 06-03-1997
# PERL program, part of CRAL-publi
# extract the list of publication for the team GALAXIES
# php 2000/01/20: revise for portability to Perl5 and Linux
#                 the new version do not call sh functions.
# 
##############################################################################

$mime="Content-Type: text/html\r\n\r\n\n";
$index   = "index/OL.dat";
$file    = "/tmp/".$$; 
$fileout = $file."article.tmp";

print "$mime $body \n";


$autho = "HERAUDEAU|PRUGNIEL|SIMIEN|MAUBON";

open(S,"<$index"); local(@tmp)=<S>; close(S);
open(F,">$fileout"); 
foreach(@tmp) {
  if( $_ =~ m#^(.{7}).AUTHU.(.*)#) {
    $icod=$1;
    if ("\U$2" =~ $autho){print F grep(/^$icod/,@tmp);}
  }
}
close(F);

open(F,"<./galaxies_papers-b.html");  print <F>; close(F);
print `./publi P`;
open(F,"<./galaxies_papers-e.html");  print <F>; close(F);

unlink $fileout;

exit;