samba/save_popts.cgi

   1 #!/usr/local/bin/perl
   2 # save_popts.cgi
   3 # Save printer options
   4
   5 require './samba-lib.pl';
   6 &ReadParse();
   7 &lock_file($config{'smb_conf'});
   8 &get_share($in{'old_name'});
   9
  10 # check acls
  11
  12 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
  13 &error("$text{'eacl_np'} $text{'eacl_pupopt'}")
  14                 unless &can('rwoO', \%access, $in{old_name});
  15 # save
  16 &error_setup($text{'savepopts_fail'});
  17 # printer options
  18 $in{min_print_space} =~ /^\d+$/ ||
  19         &error($text{'savepopts_number'});
  20 &setval("min print space", $in{min_print_space});
  21 &setval("postscript", $in{postscript});
  22 &setval("print command", $in{print_command_def} ? "" : $in{print_command});
  23 &setval("lpq command", $in{lpq_command_def} ? "" : $in{lpq_command});
  24 &setval("lprm command", $in{lprm_command_def} ? "" : $in{lprm_command});
  25 &setval("lppause command",
  26         $in{lppause_command_def} ? "" : $in{lppause_command});
  27 &setval("lpresume command",
  28         $in{lpresume_command_def} ? "" : $in{lpresume_command});
  29 &setval("printer driver",
  30         $in{printer_driver_def} ? "" : $in{printer_driver});
  31
  32 # Update config file
  33 &modify_share($in{old_name}, $in{old_name});
  34 &unlock_file($config{'smb_conf'});
  35 &webmin_log("save", "popts", $in{old_name}, \%in);
  36 &redirect("edit_pshare.cgi?share=".&urlize($in{old_name}));
  37