PAL.C.T MINI SHELL
#!/usr/bin/perl
# list_who.cgi
# Display logged-in users
require './user-lib.pl';
$access{'logins'} || &error($text{'who_ecannot'});
if (&foreign_check("mailboxes")) {
&foreign_require("mailboxes");
}
&ui_print_header(undef, $text{'who_title'}, "");
# Build table of users
@whos = &logged_in_users();
@table = ( );
foreach $w (@whos) {
$tm = defined(&mailboxes::parse_mail_date) ?
&mailboxes::parse_mail_date($w->{'when'}) : undef;
push(@table, [
&ui_link("list_logins.cgi?username=".&urlize($w->{'user'}),
&html_escape($w->{'user'}) ),
&html_escape($w->{'tty'}),
&html_escape($tm ? &make_date($tm) : $w->{'when'}),
$w->{'from'} ? &html_escape($w->{'from'})
: $text{'logins_local'},
]);
}
# Show it
print &ui_columns_table(
[ $text{'who_user'}, $text{'who_tty'}, $text{'who_when'},
$text{'who_from'} ],
100,
\@table,
undef,
0,
undef,
$text{'who_none'},
);
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`