Subversion Repositories ORC

Rev

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

Rev 7 Rev 8
Line 1... Line 1...
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
Line 2... Line 2...
2 
 
 2 
 
- 
 
 3 
use strict;
3 
use strict;
 4 
use cPanelUserConfig;
4 
use WebDB;
 5 
use WebDB;
5 
use HTML::Tiny;
 6 
use HTML::Tiny;
6 
use RollerCon;
 7 
use RollerCon;
7 
use CGI qw/param header start_html url/;
 8 
use CGI qw/param header start_html url/;
Line 19... Line 20...
19 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
 20 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
20 
my $YEAR = "2022";
 21 
my $YEAR = "2022";
Line 21... Line 22...
21 
 
 22 
 
22 
 
 23 
 
23 
my $pageTitle = "Block Personal Time";
 24 
my $pageTitle = "Block Personal Time";
24 
my $homeURL = "/";
 25 
my $homeURL = "/schedule/";
25 
my $DBTable = "shift";
 26 
my $DBTable = "shift";
26 
my %FIELDS = (
 27 
my %FIELDS = (
27 
	id          => [qw(ID        5    auto      static )],
 28 
	id          => [qw(ID        5    auto      static )],