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 $WebminCore::remote_user = $remote_user = $username;
  10 $main::session_id = $sid;
  11 $0 = "miniserv.pl";
  12 &webmin_log("login", undef, undef, undef, "global", undef,
  13             undef, $remoteip);