Files
webmin/record-logout.pl
2009-09-10 21:57:58 -07:00

16 lines
388 B
Perl
Executable File

#!/usr/local/bin/perl
# Write an actions log for a logout
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
($username, $sid, $remoteip) = @ARGV;
if ($username && $sid && $remoteip) {
$WebminCore::remote_user = $remote_user = $username;
$main::session_id = $sid;
$0 = "miniserv.pl";
&webmin_log("logout", undef, undef, undef, "global", undef,
undef, $remoteip);
}