cluster-software/openall.cgi

   1 #!/usr/local/bin/perl
   2 # openall.cgi
   3 # Add all classes to the open list
   4
   5 require './cluster-software-lib.pl';
   6 &ReadParse();
   7 ($host) = grep { $_->{'id'} eq $in{'id'} } &list_software_hosts();
   8 foreach $p (@{$host->{'packages'}}) {
   9         @w = split(/\//, $p->{'class'});
  10         for($j=0; $j<@w; $j++) {
  11                 push(@list, join('/', @w[0..$j]));
  12                 }
  13         }
  14 @list = &unique(@list);
  15 &save_heiropen(\@list, $in{'id'});
  16 &redirect("edit_host.cgi?id=$in{'id'}");
  17