Subversion Repositories VORC

#!/usr/bin/perl

# Redirect error messages to a log of my choosing. (it's annoying to filter for errors in the shared env)
my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";
close STDERR;
open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";
#warn "Redirecting errors to ${error_log_path}vorc_error.log";

#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }

use strict;
use cPanelUserConfig;
use CGI qw/param cookie header start_html url/;
use HTML::Tiny;
use tableViewer;
use RollerCon;
our $h = HTML::Tiny->new( mode => 'html' );

my $cookie_string = authenticate (RollerCon::USER) || die;
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");

if (!$ORCUSER->{MVPid} and $LVL < RollerCon::ADMIN and $ORCUSER->{department}->{MVP} < RollerCon::USER and $ORCUSER->{department}->{COA} < RollerCon::USER) {
  print header(-cookie=>$RCAUTH_cookie);
  printRCHeader("Unauthorized Page");
  print $h->div ({ class=>"error" }, "No Access");
  print $h->div ("Your user account is not registered to sign up for MVP Classes, so you can't see this page.  It's possible that your access is still being reviewed.  Please be patient.");
  print $h->a ({ href=>"/schedule/" }, "[Go Home]");
  print $h->close ("body");
  print $h->close ("html");
  exit; 
}

my $YEAR = 1900 + (localtime)[5];
my $pageTitle = "$YEAR MVP Class Coaches";
our $DBTABLE = 'v_class_coaches_current';
my %COLUMNS = (
# colname   =>  [qw(DisplayName       N    type     status)],   status ->  static | default | <blank>
  derby_name  => [qw(DerbyName     5    select      static )],
  class_count => [qw(Count        10    text        static )],
  classes     => [qw(Classes      15    text        static )],
);

# Set any custom "where" DB filters here...
my @whereClause;

# If we need to modify line item values, create a subroutine named "modify_$columnname"
#    It will receive a hashref to the object lineitem

# If we need to modify how a filter works, create a subroutine named "filter_$columnname"
#    It will receive two fields, the field name and the current filter value (if any)

# Uncomment and update if we want to enable clicking on a row to open a new page.
#
sub addRowClick {
  my $t = shift;
  return "location.href='view_coach.pl?RCid=$t->{RCid}&choice=View'";
}

# Call the function to print the table view page (with available options)
printTablePage ({ Title   => $pageTitle,
#                  Prefs   => $prefscookie,
                  Table   => $DBTABLE,
                  Columns => \%COLUMNS,
                  RCAuth  => $RCAUTH_cookie,
                  Where   => join (" and ", @whereClause),
                  DisplayYearSelect  => 0,
                  ShowMyShifts       => 0,
                  PersonalTimeButton => 0,
                  HighlightShifts    => 0,
#                  HeaderButton       => { field  => "id",
#                                          button => $h->input ({ type=>"button", value=>"Add", onClick=>"window.location.href='view_game.pl'" }) }
               });