view_users.cgi

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

#!/usr/local/bin/perl
# view_users.cgi
# Display users connected to a share

require './samba-lib.pl';
&ReadParse();
&header("Current Users", "");
print "<hr>\n";

if ($in{share}) {
	print "<h3>Current users of <i>$in{share}</i></h3>\n";
	@cons = &list_connections($in{share});
	}
else { @cons = &list_connections(); }
if (@cons) {
	print "<table border width=100%>\n";
	print "<tr $tb>\n";
	if (!$in{share}) { print "<td><b>Share</b></td>\n"; }
	print "<td><b>User</b></td> <td><b>Group</b></td>\n";
	print "<td><b>Connected from</b></td>\n";
	print "<td><b>Connected at</b></td> <td><b>Process ID</b></td> </tr>\n";
	foreach $c (@cons) {
		print "<tr $cb>\n";
		if (!$in{share}) { print "<td>$c->[0]</td>\n"; }
		print "<td>$c->[1]</td> <td>$c->[2]</td>\n";
		print "<td>$c->[4]</td> <td>$c->[5]</td>\n";
		print "<td><a href=\"kill_user.cgi?share=$in{share}&pid=$c->[3]\">$c->[3]</a></td>\n";
		print "</tr>\n";
		}
	print "</table><p>\n";
	print "Click on a process ID from the list above to disconnect\n";
	print "that user. <br>\n";
	}
else {
	print "<b>There are no currently connected users</b>.\n";
	}
print "<p>\n";

print "<hr>\n";
if ($in{share}) {
	&footer($in{printer} ? "edit_pshare.cgi?$in{share}"
			     : "edit_fshare.cgi?$in{share}",
		"share configuration");
	}
else { &footer("", "share list"); }