Subversion Repositories PEEPS

#!/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 CGI qw/param cookie header start_html url/;
use HTML::Tiny;
use tableViewer;
use PEEPS;
our $h = HTML::Tiny->new( mode => 'html' );
$ENV{HTTPS} = 'ON';

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

my $pageTitle = "Log Viewer";
our $DBTABLE = 'v_log';
my %COLUMNS = (
# colname   =>  [qw(DisplayName       N    type     status)],   status ->  static | default | <blank>
  eventid     => [qw(EventID       5    number      default )],
  timestamp   => [qw(Timestamp    10    date        default )],
  event       => [qw(Event        15    text        default )],
  person_id   => [qw(PEEPSID      20    number      default )],
);

my @leagues = @{ isLeagueAdmin ($ORCUSER->{person_id}) };

$COLUMNS{derby_name} = [qw(DerbyName    25    select      default )] if ($ORCUSER->{SYSADMIN} or scalar @leagues);

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

if (!$ORCUSER->{SYSADMIN}) {
  if (scalar @leagues) {
    push @whereClause, "person_id in (select id from full_person where league_id in (".join (", ", @leagues)."))";
  } else {
    push @whereClause, "person_id = $ORCUSER->{person_id}";
  }
}

# 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)

if ($ORCUSER->{SYSADMIN} or scalar @leagues) {
  *filter_derby_name = sub {
    my $colName = shift;
    my $filter = shift;
    my $dbh = getDBConnection ();
    
    if (defined $filter)  {
      if ($filter eq "<-blank->") {
        return "$colName = \"\" or isnull($colName) = 1";
      } else {
        return "$colName = \"$filter\"";
      }
    } else {
      my $Options = $ORCUSER->{SYSADMIN} ?
           $h->option ("", "<-blank->", @{ $dbh->selectall_arrayref ("select distinct derby_name from $DBTABLE where derby_name <> '' order by derby_name") })
         : $h->option ("", @{ $dbh->selectall_arrayref ("select distinct derby_name from $DBTABLE where person_id in (select id from full_person where league_id in (".join (", ", @leagues).")) order by derby_name") });
      
      my $tmpfilter = getFilterValue ($colName);
      
      $Options =~ s/>($tmpfilter)/ selected>$1/;
      return "<SELECT name=filter-${colName} onChange='page.value = 1; submit();'>$Options</SELECT>";
    }
  };
}


# 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_thing.pl?field=$t->{field}&choice=View'";
#}

# Call the function to print the table view page (with available options)
printTablePage ({ Title   => $pageTitle,
#                  Prefs   => $prefscookie,
                  Table   => $DBTABLE,
                  Columns => \%COLUMNS,
                  RCAuth  => $PEEPSAUTH_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'" }) }
               });