swat_save.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# swat_save.cgi
# Save the entered SWAT username and password

require './samba-lib.pl';
&ReadParse();
$whatfailed = "Failed to save username";
$in{'user'} || &error("Missing SWAT username");
&write_file("$module_config_directory/swat", { 'user' => $in{'user'},
					       'pass' => $in{'pass'} });
chmod(0600, "$module_config_directory/swat");
&redirect("swat.cgi");