#!/usr/local/bin/perl
$|=1;

$dir="/AS/Data";

$_=<stdin>;
($vars,@r)=split(' ',$_);
(@params)=split('&',$vars);
while($s=pop(@params)){
 ($t,$v)=split('=',$s);
 if($t eq "date")     {$date=$v;}
 if($t eq "datatype") {$datatype=$v};
 if($t eq "fkey")     {$fkey=$v};
 if($t eq "as1")      {$as1=$v;}
 if($t eq "as2")      {$as2=$v;}
 if($t eq "as3")      {$as3=$v;}
}

if($datatype eq "text"){
 opendir(dir,"$dir");
 while (($dfile = readdir(dir)) ne ""){
  ($name,$dstamp,$sec)=split('\.',$dfile);
  if($name eq $fkey){
   $da{$dstamp}++;
   if($dstamp == $date){
    $fname="$dir/$fkey.$dstamp.$sec";
    if($fkey eq "ASmap"){
     open(infile,"$fname.gz") || die("no such file: $fname.gz");
     printf"Content-type: application/octet-stream\n";
     printf"Content-encoding: gzip\n\n";
     while($a=(read(infile,$record,512))){ 
      syswrite(STDOUT,$record,$a)
     }
     exit(0);
    }
    printf"Content-type: text/html\n\n";
    printf"<title>Autonomous Systems summary text output</title>\n";
    printf"<h4>displaying file: <i>$dfile</i></h4><hr>\n";
    printf"<pre>\n";
    open(infile,"$fname") || die("no such file: $fname");
    while(<infile>) {
     printf"$_";
    }
    close(infile);
    exit(0);
   }
  }
 }
 printf"Content-type: text/html\n\n";
 printf"<title>Autonomous Systems summary text output</title>\n";
 printf"Sorry, the selected date ('<b>$date</b>') is unavailable. Likely available dates:\n<ul>\n";

 foreach $key ( sort numerically ( keys %da)) {
  printf" <li>$key\n";
 }
 printf"</ul><hr>\n";
}

if($datatype eq "vrml"){
 opendir(dir,"$dir");
 while (($dfile = readdir(dir)) ne ""){
  if($dfile =~ $fkey){
   ($name,$dstamp,$sec)=split('\.',$dfile);
   $da{$dstamp}++;
   if($dstamp == $date){
    $fname="$dstamp.$sec";
    system("/var/Web/cgi-bin/ASprocVRML.pl $fname $as1 $as2 $as3");
    exit(0);
   }
  }
 }
 printf"Content-type: text/html\n\n";
 printf"Sorry, the selected date ('<b>$date</b>') is unavailable. Likely available dates:\n<ul>\n";
 
 foreach $key ( sort numerically ( keys %da)) {
  printf" <li>$key\n";
 }
 printf"</ul><hr>\n";
}

sub numerically  { $b <=> $a;}