← Back
Editing: list_who.cgi
#!/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'});
Save File
Cancel