michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 16:50:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Added CGI args parser

Browse Source
This commit is contained in:
Jamie Cameron
2009-06-10 17:46:36 +00:00
parent e083b2bcc0
commit d788b741b0
2 changed files with 22 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
mailboxes/cgi_args.pl Normal file
View File

@@ -0,0 +1,21 @@
do 'mailboxes-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
my @users = &list_mail_users(1, \&can_user);
if ($cgi eq 'list_mail.cgi') {
# First allowed user
return @users ? 'user='.&urlize($users[0]->[0]) : 'none';
}
elsif ($cgi eq 'view_mail.cgi') {
# First mail, if any
return 'none' if (!@users);
my @folders = &list_user_folders(@{$users[0]});
my ($f) = grep { &mailbox_folder_size($_, 1) } @folders;
return $f ? 'user='.&urlize($users[0]->[0]).
'&idx=0&folder='.$f->{'index'} : 'none';
}
return undef;
}

2
webmin-search-lib.pl
View File

@@ -275,7 +275,7 @@ if ($data =~ /(ui_print_header|ui_print_unbuffered_header)\([^,]+,[^,]*(\$text{'
local %mtext = &load_language($m);
$rv = $mtext{$msg};
}
elsif ($data =~ /(^|\s)header\(\s*(\$text{'([^']+)'|\$text{"([^"]+)"|\&text\('([^']+)'|\&text\("([^"]+)")/) {
elsif ($data =~ /(^|\s|mail_page_)header\(\s*(\$text{'([^']+)'|\$text{"([^"]+)"|\&text\('([^']+)'|\&text\("([^"]+)")/) {
# Old header function
local $msg = $3 || $4 || $5 || $6;
local %mtext = &load_language($m);