Subversion Repositories VORC

Rev

Rev 222 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 222 Rev 226
Line 9... Line 9...
9
use strict;
9
use strict;
10
use cPanelUserConfig;
10
use cPanelUserConfig;
11
use WebDB;
11
use WebDB;
12
use HTML::Tiny;
12
use HTML::Tiny;
13
use RollerCon;
13
use RollerCon;
14
use CGI qw/param header start_html url/;
14
use CGI qw/param header start_html url url_param/;
15
my $h = HTML::Tiny->new( mode => 'html' );
15
my $h = HTML::Tiny->new( mode => 'html' );
Line 16... Line 16...
16
 
16
 
Line 17... Line 17...
17
my %F;
17
my %F;
Line 53... Line 53...
53
  ]),
53
  ]),
54
]);
54
]);
Line 55... Line 55...
55
 
55
 
56
my %GETFORM = map { split /=/ } split /&/, $ENV{QUERY_STRING};
56
my %GETFORM = map { split /=/ } split /&/, $ENV{QUERY_STRING};
57
my $choice = param ("choice") // $GETFORM{choice} // "";
57
my $choice = param ("choice") // $GETFORM{choice} // "";
Line 58... Line 58...
58
my $thing  = param ($primary) // $GETFORM{$primary} // "";
58
my $thing  = param ($primary) // $GETFORM{$primary} // ""; $thing //= url_param ($primary);
59
 
59
 
60
if ($choice eq "Save") {
60
if ($choice eq "Save") {
61
	process_form ();
61
	process_form ();