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";

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

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

print header (-cookie=>$RCAUTH_cookie);

#foreach (sort keys %ENV) {
#       print "$_: $ENV{$_}\n<br>";
#}
my $change = param ('change');
my $RCid   = param ('RCid') // $user->{RCid};
my $id     = param ('id');
my $role   = param ('role') // "";
my $noshow = param ('noshow');
my $department = ($id =~ /^\d+$/) ? getShiftDepartment ($role ? $id."-".$role : $id) : "CLA";

print start_html (-title => "vORC Make Shift Change", -style => {'src' => "/style.css"}), $h->open ("body");

my $WARNING = getUser ($RCid) ? "" : $h->p ({ class => "error" }, "User [$RCid] Not Found!");

if ($change eq "lookup" or $WARNING) {
        if (($department eq "CLA" and convertDepartments($user->{department})->{MVP} < 2 and $LVL < 5) and (convertDepartments($user->{department})->{$department} < 2 and $LVL < 5 and convertDepartments($user->{department})->{VCI} < 2)) {
#       if (convertDepartments($user->{department})->{$department} < 2 and $LVL < 5 and convertDepartments($user->{department})->{VCI} < 2) {
    print $h->div ({ class=>"error" }, "You're not allowed to change other people's schedules.");
    print $h->close ("body"), $h->close ("html");
          exit;
        }
        
        my $options = fetchDerbyNameWithRCid ({ DATALIST=>1 }, $department);
    
  print $WARNING, $h->form ({ action=>url }, [
    $h->input ({ type=>"hidden", name=>"change", value=>"add" }),
    $h->input ({ type=>"hidden", name=>"id", value=>$id }),
    $h->input ({ type=>"hidden", name=>"role", value=>$role }),
    $department eq "CLA" ? $h->p ("Add User to Class ($id):") : $h->p ("Add User to Shift ($id):"),
    $h->input ({ name => "RCid-picker", id=>"pickname", list => "eligibleusers" }).$h->tag ("datalist", { id => "eligibleusers" }, [$options]),
    $h->input ({ type=>"hidden", name=>"RCid", id=>"pickname-hidden" }),
    $h->input ({ type=>"submit", value=>"Save", onClick=>"if (isInt(document.getElementById('pickname').value)) { return false } else { return isInt(document.getElementById('pickname-hidden').value) };" }),
    $h->button ({ onClick=>"window.close();" }, "Cancel")
  ]);
  print<<JAVASCRIPT;
        <SCRIPT language="JavaScript">
        <!--
        function isInt(value) {
          if (value == '') { return false; }
    return !isNaN(value) && (function(x) { return (x | 0) === x; })(parseFloat(value))
  }
  document.querySelector('input[list]').addEventListener('input', function(e) {
    var input = e.target,
        list = input.getAttribute('list'),
        options = document.querySelectorAll('#' + list + ' option'),
        hiddenInput = document.getElementById(input.getAttribute('id') + '-hidden'),
        inputValue = input.value;

    hiddenInput.value = inputValue;

    for(var i = 0; i < options.length; i++) {
        var option = options[i];

        if(option.innerText === inputValue) {
            hiddenInput.value = option.getAttribute('data-value');
            break;
        }
    }
  });
        //-->
        </SCRIPT>
JAVASCRIPT


} else {
        print $h->p ("Making a shift change...");

  if ($noshow eq "true") {
    logit ($RCid, "NO SHOW: $id");
    logit ($user->{RCid}, "Logged a No Show for ($RCid): $id");
    print $h->p ("Logged a No Show and removing the official from the shift...");
  } elsif ($RCid eq $user->{RCid}) {
    print $h->p ("So, <b>$user->{derby_name}</b>, you'd like to <b>$change</b> a shift: <b>$id</b>...");
  } else {
    my $target = getUserDerbyName ($RCid);
    print $h->p ("So, <b>$user->{derby_name}</b>, you'd like to <b>$change</b> a shift for <b>$target</b>: <b>$id</b>...");
  }
  
  
        my $change_err = changeShift($change, $id, $role, $RCid);
        my $closer;
        if ($change_err) {
          print $change_err;
          if ($change_err =~ /conflict|class is already full/ and (convertDepartments($user->{department})->{VCI} > 2 or $LVL > 4 or convertDepartments($user->{department})->{OFF} > 1 or convertDepartments($user->{department})->{MVP} > 2)) {
                  print $h->form ({ action=>url }, [
                    $h->input ({ type=>"hidden", name=>"change", value=>"override" }),
                $h->input ({ type=>"hidden", name=>"id", value=>$id }),
                $h->input ({ type=>"hidden", name=>"role", value=>$role }),
                $h->input ({ type=>"hidden", name=>"RCid", value=>$RCid }),
                $h->input ({ type=>"submit", value=>"OVERRIDE", onClick=>"if (confirm('Are you sure you want to override the conflict?')==true) { return true } else { return false }" }),
                  ]);
          }
          print $h->br, $h->button ({ onClick=>"window.close();" }, "Close");
        } else {
          print "<br>This window will close automatically in 3 seconds.";
          $closer = 'setTimeout(() => { window.close(); }, 3000);';
        }
  
        print<<tail;
        <SCRIPT language="JavaScript">
        <!--
                        function reloadParent() {
                          if (window.opener.location.href.split("/").slice(-1) == "manage_shift.pl") {
                            window.opener.location.href = window.opener.location.href + "?id=" + window.opener.document.Req.id.value + "&choice=View";
                          } else {
                window.opener.location.reload();
              }
              $closer
                        }
                        
                        reloadParent();
        //-->
        </SCRIPT>
tail
  print $h->close ("body"), $h->close ("html");
}