record-login.pl

   1 #!/usr/local/bin/perl
   2 # Write an actions log for a login
   3
   4 BEGIN { push(@INC, ".."); };
   5 use WebminCore;
   6
   7 &init_config();
   8 ($username, $sid, $remoteip) = @ARGV;
   9 if ($username && $sid && $remoteip) {
  10         $WebminCore::remote_user = $remote_user = $username;
  11         $main::session_id = $sid;
  12         $0 = "miniserv.pl";
  13         &webmin_log("login", undef, undef, undef, "global", undef,
  14                     undef, $remoteip);
  15         }