#!/usr/local/bin/perl

use CGI ;

print "Content-type: text/html\nPragma: no-cache\n\n
         <head><title>Seminars archive</title>
<body background=/patterns/grey.jpg>
<center><h1>All-Moscow Seminar of Astrophysicists<br>(ASA)</h1>
<h4>Archive</h4><hr>
<img align=right border=0 width=274 height=253 src=../images/osa1.gif>";

local( @dirlist );
opendir DIR, "./";
while( $item = readdir DIR ){
   next if( $item =~ /^\./ );
   next unless( -d $item );
   push @dirlist, $item;
}
closedir DIR;

if( @dirlist ){
   print '<ul>';
   foreach $key (sort {$a <=> $b} @dirlist){
      print "<li> <a href=\"$key/eindex.html\">Seminar #$key</a>";
   }
   print '</ul>';
}else{
   print p(),p(),h2
('This part of the archive is empty yet');
}

print
  '<br clear="all">',
  hr(),
  qq'
    <center>
    <IMG vspace=5 WIDTH=0 HEIGHT=0 SRC="/icons/blank.gif" alt=""><br>
    <A href="http://xray.sai.msu.su/"><IMG SRC="/images/back.jpg" BORDER=0 alt=""><br>
    <IMG vspace=1 WIDTH=0 HEIGHT=0 SRC="/icons/blank.gif" alt="" BORDER=0><br>
    Back to HOME</A><br>
    <IMG vspace=3 WIDTH=0 HEIGHT=0 SRC="/icons/blank.gif" alt=""><br>
    </center>

    <IMG vspace=5 WIDTH=1 HEIGHT=1 SRC="/icons/blank.gif" alt=""><br>
    <IMG SRC="/lines/line1.gif" ALT=""><br>
    <ADDRESS>
    <IMG vspace=10 WIDTH=1 HEIGHT=1 SRC="/icons/blank.gif" alt=""><br>
    This page was designed by <A HREF="/~leng/">Sergey Nazin</A>.<br>
    Send questions and comments to
    <A href="mailto:leng\@sai.msu.su">leng\@sai.msu.su</A>
    </ADDRESS>
  ';
  end_html();


