edit_mods.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_mods.cgi
# Form for installing and removing modules

require './webmin-lib.pl';
&header($text{'mods_title'}, "");
print "<hr>\n";
&get_miniserv_config(\%miniserv);

opendir(DIR, "..");
foreach $m (readdir(DIR)) {
	local %minfo;
	if ((%minfo = &get_module_info($m)) && &check_os_support(\%minfo)) {
		push(@mlist, \%minfo);
		}
	}
closedir(DIR);
@mlist = sort { $a->{'desc'} cmp $b->{'desc'} } @mlist;

# Display installation form
print "<table width=100%><tr><td valign=top>\n";
print "$text{'mods_desc1'}</td><td valign=top>";

print "<form action=install_mod.cgi enctype=multipart/form-data>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'mods_install'}</b></td> </tr>\n";
print "<tr $cb> <td>\n";
print "<input type=radio name=source value=0 checked> $text{'mods_local'}\n";
print "<input name=file size=40>\n";
print &file_chooser_button("file", 0),"<br>\n";
print "<input type=radio name=source value=1> $text{'mods_uploaded'}\n";
print "<input name=upload type=file size=30><br>\n";
print "<input type=radio name=source value=2> $text{'mods_ftp'}\n";
print "<input name=url size=40><br>\n";
print "</td></tr></table><br>\n";
print "<input type=submit value=\"$text{'mods_installok'}\">\n";
print "</form></td></tr></table> <hr>\n";


# Display cloning form
print "<table width=100%><tr><td valign=top>\n";
print "$text{'mods_desc2'}</td> <td valign=top>";

print "<form action=clone_mod.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'mods_clone'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
print "<tr> <td><b>$text{'mods_cname'}</b></td>\n";
print "<td><select name=mod>\n";
foreach $m (@mlist) {
	if ($m->{'dir'} ne 'webmin' && !$m->{'clone'}) {
		printf "<option value='%s'>%s\n",
			$m->{'dir'}, $m->{'desc'};
		}
	}
closedir(DIR);
print "</select></td> </tr>\n";
print "<tr> <td><b>$text{'mods_cnew'}</b></td>\n";
print "<td><input name=desc size=30></td> </tr>\n";
print "</table></td></tr> </table><br>\n";
print "<input type=submit value=\"$text{'mods_cloneok'}\">\n";
print "</form></td></tr></table> <hr>\n";


# Display deletion form
print $text{'mods_desc3'},"<br>\n";
print "<form action=delete_mod.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'mods_delete'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
foreach $m (@mlist) {
	if ($m->{'dir'} ne 'webmin' && &check_os_support($m)) {
		print "<tr>\n" if ($count %3 == 0);
		printf "<td><input type=checkbox name=mod value='%s'>%s</td>\n",
			$m->{'dir'}, $m->{'desc'};
		print "</tr>\n" if (++$count %3 == 0);
		}
	}
print "</table></td></tr></table><br>\n";
print "<input type=submit value=\"$text{'mods_deleteok'}\">\n";
print "</form></td></tr></table>\n";

print "<hr>\n";
&footer("", $text{'index_return'});