zones/edit_pkg.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for editing a package directory or adding one
   3
   4 require './zones-lib.pl';
   5 do 'forms-lib.pl';
   6 &ReadParse();
   7 $zinfo = &get_zone($in{'zone'});
   8 $zinfo || &error($text{'edit_egone'});
   9
  10 if (!$in{'new'}) {
  11         # Find the package dir object
  12         ($pkg) = grep { $_->{'dir'} eq $in{'old'} }
  13                       @{$zinfo->{'inherit-pkg-dir'}};
  14         $pkg || &error($text{'pkg_egone'});
  15         }
  16 $p = new Webmin::Page(&zone_title($in{'zone'}),
  17                  $in{'new'} ? $text{'pkg_title1'} : $text{'pkg_title2'},
  18                  "pkg");
  19 $p->add_form(&get_pkg_form(\%in, $zinfo, $pkg));
  20 $p->add_footer("edit_zone.cgi?zone=$in{'zone'}", $text{'edit_return'});
  21 $p->print();
  22