Subversion Repositories VORC

Rev

Rev 222 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 222 Rev 226
Line 8... Line 8...
8 
 
 8 
 
9 
use strict;
 9 
use strict;
10 
use cPanelUserConfig;
 10 
use cPanelUserConfig;
11 
use RollerCon;
 11 
use RollerCon;
12 
use tableViewer qw/inArray/;
 12 
use tableViewer qw/inArray/;
13 
use CGI qw/param cookie header start_html url/;
 13 
use CGI qw/param cookie header start_html url url_param/;
14 
use Email::Valid;
 14 
use Email::Valid;
15 
use WebDB;
 15 
use WebDB;
16 
use HTML::Tiny;
 16 
use HTML::Tiny;
Line 32... Line 32...
32 
 
 32 
 
33 
# The page's form might be submitted as a POST or a GET (or both?)
 33 
# The page's form might be submitted as a POST or a GET (or both?)
34 
#  The initial _view_ likely comes as a GET request (making it easier to embed in an HREF as a URL)
 34 
#  The initial _view_ likely comes as a GET request (making it easier to embed in an HREF as a URL)
35 
#  Unpack any values sent in the GET and add them to the FORM hash
 35 
#  Unpack any values sent in the GET and add them to the FORM hash
36 
$FORM->{'SUB'} = param ('submit') // '';
 36 
$FORM->{'SUB'} = param ('submit') // '';
37 
$FORM->{'RCid'} = param ('RCid') // '';
 37 
$FORM->{'RCid'} = param ('RCid'); $FORM->{'RCid'} //= url_param ('RCid');
38 
$FORM->{referer} = param ("referer") // "";
 38 
$FORM->{referer} = param ("referer") // "";
39 
if ($FORM->{'SUB'} eq '') {
 39 
if ($FORM->{'SUB'} eq '') {
40 
  if ($ENV{'REQUEST_URI'}) {
 40 
  if ($ENV{'REQUEST_URI'}) {
41 
    my ($g, $keep) = split /\?/, $ENV{'REQUEST_URI'};
 41 
    my ($g, $keep) = split /\?/, $ENV{'REQUEST_URI'};