swat_save.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 14 行

#!/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");