software/openall.cgi

   1 #!/usr/local/bin/perl
   2 # openall.cgi
   3 # Add all classes to the open list
   4
   5 require './software-lib.pl';
   6 $n = &list_packages();
   7 for($i=0; $i<$n; $i++) {
   8         @w = split(/\//, $packages{$i,'class'});
   9         for($j=0; $j<@w; $j++) {
  10                 push(@list, join('/', @w[0..$j]));
  11                 }
  12         }
  13 @list = &unique(@list);
  14 &save_heiropen(\@list);
  15 &redirect("tree.cgi");
  16