home *** CD-ROM | disk | FTP | other *** search
/ ftp.vvm.com / 2014.06.ftp.vvm.com.tar / ftp.vvm.com / pub / update < prev    next >
Text File  |  1998-03-24  |  1KB  |  43 lines
  1. #!/usr/bin/perl
  2.  
  3. @dirarray = `tree -dfi`;
  4. #$insert = "<tr><td width=\"30\%\"> <a href=\"ftp://ftp.vvm.com/pub/FILEPATH\">\n<img src=\"http://www.vvm.com/images/ggi.gif\"width=\"72\"height=\"22\"alt=\"ggi.gif (1281 bytes)\"></a></td>\n<td width=\"70\%\">FILENAME</td></tr>\n";
  5. #$dirins = "<tr><td width=\"30\%\"> <a href=\"ftp://ftp.vvm.com/pub/FILEPATH\">\n<img src=\"http://www.vvm.com/images/gt.gif\"width=\"72\"height=\"22\"alt=\"gt.gif (1281 bytes)\"></a></td>\n<td width=\"70\%\">DIRNAME</TD></TR>\n";
  6. $insert = "<a href=\"ftp://ftp.vvm.com/pub/FILEPATH\"><img src=\"http://www.vvm.com/images/gt.gif\"><\\a>FILENAME<BR>";
  7. open (TEMPLATE, "html.tmpl");
  8. $template = <TEMPLATE>;
  9. foreach $d (@dirarray){
  10.     $d=~s/\.\///g;
  11.     chomp $d;
  12.     if (chdir $d){
  13.         #do stuff
  14.         print "$d\n";
  15.         open (INDEX, "<index");
  16.         open (HTML, ">index.html");
  17.         @index ="";
  18.         @index = <INDEX>;
  19.         foreach $id (@index){
  20.             #print "$id\n";
  21.             $fp = $d.$id;
  22.             chomp $id;
  23.             #if (-f $id){ 
  24.                 #print "Found file\n";
  25.                 $insert=~s/FILEPATH/$fp/g;
  26.                 $insert=~s/FILENAME/$id/g;        
  27.                 #print $insert;
  28.                 push(@update,$insert);    
  29.             #} else {    
  30.             #    print "ELSE\n";
  31.             #    $dirins=~s/FILEPATH/$fp/g;
  32.             #    $dirins=~s/DIRNAME/$id/g;
  33.             #    push(@update,$insert);
  34.             #}
  35.             chdir "/home/ftp/pub";
  36.         }    
  37.     } else {
  38.         #print "FOOBAR\n";
  39.     }
  40. print HTML @update; 
  41. }
  42. #print HTML @update;
  43.