mailboxes/cgi_args.pl

   1
   2 do 'mailboxes-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 my @users = &list_mail_users(1, \&can_user);
   8 if ($cgi eq 'list_mail.cgi') {
   9         # First allowed user
  10         return @users ? 'user='.&urlize($users[0]->[0]) : 'none';
  11         }
  12 elsif ($cgi eq 'view_mail.cgi') {
  13         # First mail, if any
  14         return 'none' if (!@users);
  15         my @folders = &list_user_folders(@{$users[0]});
  16         my ($f) = grep { &mailbox_folder_size($_, 1) } @folders;
  17         return $f ? 'user='.&urlize($users[0]->[0]).
  18                     '&idx=0&folder='.$f->{'index'} : 'none';
  19         }
  20 return undef;
  21 }