save_popts.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_popts.cgi
# Save printer options

require './samba-lib.pl';
$whatfailed = "Failed to save printer options";
&ReadParse();
&get_share($in{old_name});

# printer options
$in{min_print_space} =~ /^\d+$/ ||
	&error("Minimum free space must be a number");
&setval("min print space", $in{min_print_space});
&setval("postscript", $in{postscript});
&setval("print command", $in{print_command_def} ? "" : $in{print_command});
&setval("lpq command", $in{lpq_command_def} ? "" : $in{lpq_command});
&setval("lprm command", $in{lprm_command_def} ? "" : $in{lprm_command});
&setval("lppause command",
	$in{lppause_command_def} ? "" : $in{lppause_command});
&setval("lpresume command",
	$in{lpresume_command_def} ? "" : $in{lpresume_command});
&setval("printer driver",
	$in{printer_driver_def} ? "" : $in{printer_driver});

# Update config file
&modify_share($in{old_name}, $in{old_name});
&redirect("edit_pshare.cgi?share=".&urlize($in{old_name}));