#!/usr/bin/perl $fakeip = "172.29.2.199"; $fakedate = "Fri Jul 14 21:51:20 EDT 2000"; @org_name = qw(Aaeo Aful Aper Bbur Bsub Cele Cjej Cpn2 Cpne Ctr2 Ctra Dmel Drad Ecol Hinf Hpy2 Hpyl Hsap Lei1 Mgen Mjan Mpne Mthe Mtub Nme2 Nmen Pfa2 Pfa3 Phor Rpro Scer Syne Tmar Tpal); print < External Links HTMLhead my $hvar = `perl /web/genecensus/header/header.cgi genome`; print "$hvar"; print <

External Links:

HTMLend open (DATA, "linkfile"); for($i=0; $i<34; $i++){ $org_c = $org_name[$i]; $fir = 0; open(STARTFILE, "./$org_c/start.html"); while($buffer = ){ if($buffer =~ /External links/ || $buffer =~ /For more information/ || $buffer =~ /\Projects:/ ){ # $buffer = ; while($buffer = ){ if($buffer =~ /(http.*)\"\>([\w ]+)\<\/a/ || $buffer =~ /(ftp.*)\"\>([\w\ ]+)\<\/a/ ){ if($fir == 0){ print "

Resources for $org_c:

\n
    "; $fir =1; } print "
  • $2 added from $fakeip @ $fakedate\n"; } } } } close(STARTFILE); seek DATA, 0, 0; while($buffer = ){ if($buffer =~ /$org_c/){ if($fir == 0){ print "

    Resources for $org_c:

    \n
      "; $fir =1; } ($org, $des, $url, $ipadd, $date) = split(/\|/, $buffer); print "
    • $des added from $ipadd @ $date\n"; } } if($fir == 1){ print "
    \n"; } } close(DATA); print "";