PAL.C.T MINI SHELL
#!/usr/bin/perl
# Write an actions log for a logout
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("logout", undef, undef, undef, "global", undef,
undef, $remoteip);
}
�
y���~�or�5�J�={��E��e�u磝Qk��ᯘG{�?���+�]������ן�?w�M3X^��歌>{�7پ�K�>�o��n�\����j�y��R���g/�=��f�O��r�o��NV�v��~�Y+��NG�u���Ý����HW��y�w�[eQ�ʨ�S�b��>������>�}G�mx[o[<��{���Ϯ_��qF���vMIEND�B`�