hpuxexports/save_export.cgi

   1 #!/usr/local/bin/perl
   2 # save_export.cgi
   3 # Save, create or delete an export
   4
   5 require './exports-lib.pl';
   6 &ReadParse();
   7 &lock_file($config{'exports_file'});
   8 @exps = &list_exports();
   9
  10 if ($in{'delete'}) {
  11         # Deleting some export
  12         $exp = $exps[$in{'idx'}];
  13         &delete_export($exp);
  14         }
  15 else {
  16         if (!$in{'new'}) {
  17                 # Get old export
  18                 $oldexp = $exps[$in{'idx'}];
  19                 %opts = %{$oldexp->{'options'}};
  20                 }
  21
  22         # check dir and active
  23         &error_setup($text{'save_err'});
  24         -d $in{'dir'} || &error(&text('save_edir', $in{'dir'}));
  25         $exp{'dir'} = $in{'dir'};
  26         $exp{'active'} = $in{'active'};
  27
  28         # check inputs
  29         &check_inputs();
  30
  31         # validate and parse options
  32         &set_options();
  33
  34         $exp{'options'} = \%opts;
  35         if ($in{'new'}) {
  36                 &create_export(\%exp);
  37                 }
  38         else {
  39                 &modify_export(\%exp, $oldexp);
  40                 }
  41         }
  42 &unlock_file($config{'exports_file'});
  43 if ($in{'delete'}) {
  44         &webmin_log("delete", "export", $exp->{'dir'}, $exp);
  45         }
  46 elsif ($in{'new'}) {
  47         &webmin_log("create", "export", $exp{'dir'}, \%exp);
  48         }
  49 else {
  50         &webmin_log("modify", "export", $exp{'dir'}, \%exp);
  51         }
  52 &redirect("");
  53