| Line 4... |
Line 4... |
| 4 |
my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";
|
4 |
my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";
|
| 5 |
close STDERR;
|
5 |
close STDERR;
|
| 6 |
open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";
|
6 |
open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";
|
| 7 |
#warn "Redirecting errors to ${error_log_path}vorc_error.log";
|
7 |
#warn "Redirecting errors to ${error_log_path}vorc_error.log";
|
| Line 8... |
Line -... |
| 8 |
|
- |
|
| 9 |
# Redirect error messages to a log of my choosing. (it's annoying to filter for errors in the shared env)
|
- |
|
| 10 |
my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";
|
- |
|
| 11 |
close STDERR;
|
- |
|
| 12 |
open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";
|
- |
|
| 13 |
#warn "Redirecting errors to ${error_log_path}vorc_error.log";
|
- |
|
| 14 |
|
8 |
|
| Line 15... |
Line 9... |
| 15 |
#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }
|
9 |
#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }
|
| 16 |
|
10 |
|
| 17 |
use strict;
|
11 |
use strict;
|
| Line 144... |
Line 138... |
| 144 |
my $filename = $FORM{excel} ? exportExcel (\@ProductList) : "";
|
138 |
my $filename = $FORM{excel} ? exportExcel (\@ProductList) : "";
|
| 145 |
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
|
139 |
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
|
| 146 |
my $xlsLink = $filename ? " ".$h->a ({ href=>$filename }, "[Download Now]") : "";
|
140 |
my $xlsLink = $filename ? " ".$h->a ({ href=>$filename }, "[Download Now]") : "";
|
| Line 147... |
Line 141... |
| 147 |
|
141 |
|
| 148 |
# Set some cookie stuff...
|
142 |
# Set some cookie stuff...
|
| 149 |
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
|
143 |
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
|
| 150 |
my $queryCookie = cookie(-NAME=>$prefscookie,
|
144 |
my $queryCookie = cookie(-NAME=>$prefscookie,
|
| 151 |
-VALUE=>"$QUERY_STRING",
|
145 |
-VALUE=>"$QUERY_STRING",
|
| 152 |
-PATH=>"$path",
|
146 |
-PATH=>"$path",
|
| Line 321... |
Line 315... |
| 321 |
$h->br,
|
315 |
$h->br,
|
| 322 |
$h->a ({ href=>"", onClick=>"window.document.Req.excel.value=1; window.document.Req.submit(); return false;" }, "[Export Displayed Data as an Excel Document.]")." ".$xlsLink,
|
316 |
$h->a ({ href=>"", onClick=>"window.document.Req.excel.value=1; window.document.Req.submit(); return false;" }, "[Export Displayed Data as an Excel Document.]")." ".$xlsLink,
|
| 323 |
$h->br,
|
317 |
$h->br,
|
| 324 |
"This page was displayed on ", currentTime (),
|
318 |
"This page was displayed on ", currentTime (),
|
| 325 |
$h->br,
|
319 |
$h->br,
|
| 326 |
"Please direct questions, problems, and concerns to Officials.RollerCon.Schedule\@gmail.com"
|
320 |
"Please direct questions, problems, and concerns to $SYSTEM_EMAIL"
|
| 327 |
])
|
321 |
])
|
| 328 |
]),
|
322 |
]),
|
| 329 |
$h->div ({ class=>"spRight" }, [
|
323 |
$h->div ({ class=>"spRight" }, [
|
| 330 |
$h->h5 ([
|
324 |
$h->h5 ([
|
| 331 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|
325 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|