← Back
Editing: record-login.pl
#!/usr/bin/perl # Write an actions log for a login BEGIN { push(@INC, "."); }; use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; use WebminCore; our ($remote_user); &init_config(); my ($username, $sid, $remoteip, $localip) = @ARGV; if ($username && $sid && $remoteip) { $ENV{'REMOTE_USER'} = $WebminCore::remote_user = $remote_user = $username; $main::session_id = $sid; $0 = "miniserv.pl"; &webmin_log("login", undef, undef, undef, "global", undef, undef, $remoteip); }
Save File
Cancel