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

use HTML::Tiny;

use RollerCon;

use CGI qw/param header start_html url/;

my $h = HTML::Tiny->new( mode => 'html' );

my %F;

my $cookie_string = authenticate (RollerCon::USER) || die;

our ($EML, $PWD, $LVL) = split /&/, $cookie_string;

my $user = getUser ($EML);

$user->{department} = convertDepartments $user->{department};

my $DepartmentNames = getDepartments ();

my $username = $user->{derby_name};

my $RCid = $user->{RCid};

my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");

my $YEAR = 1900 + (localtime)[5];

my $pageTitle = "Manage Shift";

my $homeURL = "/schedule/";

my $DBTable = "shift";

my %FIELDS = (

	id          => [qw(ShiftID        5    auto      static )],

	dept        => [qw(Department    10    select      required )],

	role        => [qw(Role          15    text      required )],

	type        => [qw(Type          20    select      required )],

	date        => [qw(Date          25    date        required )],

	location    => [qw(Location      30    text      required )],

	start_time  => [qw(Start         35    time        required )],

	end_time    => [qw(End           40    time        required )],

	doubletime  => [qw(DoubleHours   42    switch        )],

	assignee_id => [qw(Assignee      50    auto         )],

	mod_time    => [qw(ModTime       45    number         )],

	note        => [qw(Notes         55    textarea       )],

);

my %fieldDisplayName = map  { $_ => $FIELDS{$_}->[0]   } keys %FIELDS;

my %fieldType        = map  { $_ => $FIELDS{$_}->[2]   } keys %FIELDS;

my @requiredFields   = sort fieldOrder grep { defined $FIELDS{$_}->[3] } keys %FIELDS;

my @DBFields   = sort fieldOrder grep { $fieldType{$_} =~ /^(text|select|number|switch|date|time|auto)/ } keys %FIELDS;

my @ROFields   = sort fieldOrder grep { $fieldType{$_} =~ /^(readonly)/ } keys %FIELDS;

my $primary = $DBFields[0];

sub fieldOrder {

	$FIELDS{$a}->[1] <=> $FIELDS{$b}->[1];

}

sub saveForm {

  error ("ERROR: Only SysAdmins can change shifts.") unless $LVL >= RollerCon::ADMIN;

  my $FTS = shift;

  my $dbh = WebDB::connect ();

  if ($FTS->{$DBFields[0]} eq "NEW") {

    if ($FTS->{mod_time}) {

      $dbh->do (

    	  "INSERT INTO $DBTable

        (dept,role,type,date,location,start_time,end_time,mod_time,doubletime,note)

        VALUES(?,?,?,?,?,?,?,?,?,?)",

    	  undef,

    	  $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{mod_time}, $FTS->{doubletime}, $FTS->{note}

    	);

    } else {

      $dbh->do (

    	  "INSERT INTO $DBTable

        (dept,role,type,date,location,start_time,end_time,doubletime,note)

        VALUES(?,?,?,?,?,?,?,?,?)",

    	  undef,

    	  $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{doubletime}, $FTS->{note}

    	);

    }

  	($FTS->{id}) = $dbh-> selectrow_array ("select max(id) from $DBTable where dept = ? and role = ? and type = ? and date = ? and location = ? and start_time = ? and end_time = ? and note = ?", undef, $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{note});

    logit ($RCid, "$username created new shift ($FTS->{id}, $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{mod_time}, $FTS->{doubletime})");

  } else {

    if ($FTS->{mod_time}) {

      $dbh->do (

        "UPDATE $DBTable

        SET dept=?, role=?, type=?, date=?, location=?, start_time=?, end_time=?, mod_time=?, doubletime=?, note=?

        WHERE id = ?",

        undef,

        $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{mod_time}, $FTS->{doubletime}, $FTS->{note}, $FTS->{id}

      );

    } else {

      $dbh->do (

        "UPDATE $DBTable

        SET dept=?, role=?, type=?, date=?, location=?, start_time=?, end_time=?, mod_time=null, doubletime=?, note=?

        WHERE id = ?",

        undef,

        $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{doubletime}, $FTS->{note}, $FTS->{id}

      );

    }

    logit ($RCid, "$username updated shift ($FTS->{id}, $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time})");

	}

	$dbh->disconnect ();	 # stored into database successfully.

	return $FTS->{id};

}

sub delete_item {

  error ("ERROR: Only SysAdmins can delete shifts.") unless $LVL >= RollerCon::ADMIN;

  my $X = shift;

  my $dbh = WebDB::connect ();

  $dbh->do ("delete from $DBTable where $primary = ?", undef, $X->{$primary});

  $dbh->disconnect ();

  logit ($RCid, "$username deleted shift ($X->{$primary})");

  print "Shift Deleted: $X->{$primary}", $h->br;

  print &formField ("Cancel", "Back", "POSTSAVE");

}

sub select_dept {

	my $selection = shift;

	my @optionList;

  if ($LVL > 4) {

    @optionList = grep { !/^PER$/ } sort keys %{ $DepartmentNames };

  } else {

    @optionList = grep { $user->{department}->{$_} > 2 } keys %{ $user->{department} };

  }

  return $h->select ({ name=>"dept" },

    [ map { $selection eq $_ ?

              $h->option ({ value=>$_, selected=>[] }, $DepartmentNames->{$_}) :

              $h->option ({ value=>$_ }, $DepartmentNames->{$_})

          } "", @optionList ]);

};

sub select_type {

  my $value = shift // "";

  return $h->select ({ name=>"type" },

    [ map { $value eq $_ ?

              $h->option ({ value=>$_, selected=>[] }, $_) :

              $h->option ({ value=>$_ }, $_)

          } "", qw(open lead manager selected)]);

};

print header (-cookie=>$RCAUTH_cookie),

			start_html (-title => $pageTitle, -style => {'src' => "/style.css"} );

print $h->div ({ class => "accent pageheader" }, [

  $h->h1 ($pageTitle),

  $h->div ({ class=>"sp0" }, [

    $h->div ({ class=>"spLeft" }, [

    ]),

    $h->div ({ class=>"spRight" }, [

      $h->input ({ type=>"button", value=>"Home", onClick=>"window.location.href='$homeURL'" }),

    ]),

  ]),

]);

my $choice = param ("choice") // "";

if ($choice eq "Save") {

	process_form ();

} elsif (defined (param ($primary))) {

  my $thing = param ($primary);

  if ($choice eq "Delete") {

    delete_item ({ $primary => $thing });

  } else {

	  display_form ({ $primary => $thing }, $choice);

	}

} else {

	display_form (); # blank form

}

print $h->close ("html");

sub display_form  {

  my $R = shift;

  my $view = shift // "";

	my $actionbutton;

  $view = "View" unless $LVL >= RollerCon::ADMIN;

  if ($view eq "POSTSAVE" and $R->{$primary} eq "NEW") {

      print &formField ("Cancel", "Back", "POSTSAVE");

      return;

  }

  if ($R) {

    # we're dealing with an existing thing.  Get the current values out of the DB...

    my $dbh = WebDB::connect ();

	  @F{@DBFields} = $dbh->selectrow_array (

                     "SELECT ". join (", ", @DBFields) ." FROM $DBTable WHERE $primary = ?",

                      undef, $R->{$primary});

	  $dbh->disconnect ();

	  # did we find a record?

	  error ("Cannot find a database entry for '$R->{$primary}'") unless defined $F{$DBFields[0]};

    # If the DB returns a null value, HTML::Tiny doesn't like it, so make sure nulls are converted to empty strings.

    map { $F{$_} = "" unless $F{$_} } @DBFields;

    ## Check to make sure the user can actually see the shift

    if ($user->{department}->{$F{dept}} < RollerCon::USER and $LVL < RollerCon::ADMIN) {

  	  error ("You're not a volunteer in the $DepartmentNames->{$F{dept}} department!");

    }

    if ($view eq "Update") {

      # We'd like to update that thing, give the user a form...

      print $h->p ("Updating Shift: $R->{$primary}...");

      foreach (@DBFields) {

        $F{$_} = formField ($_, $F{$_});

      }

      $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>$DBFields[0], value=> $F{$DBFields[0]} });

      $actionbutton = formField ("choice", "Save");

      $actionbutton .= formField ("Cancel");

    } elsif ($view eq "Copy") {

      # We'd like to copy that thing, give the user a form...

      print $h->p ("Copying Shift: $R->{$primary}...");

      foreach (@DBFields) {

        $F{$_} = formField ($_, $F{$_});

      }

      $F{$DBFields[0]} = "COPY".$h->input ({ type=>"hidden", name=>$DBFields[0], value=> "NEW" });

      $actionbutton = formField ("choice", "Save");

      $actionbutton .= formField ("Cancel");

    } else {

      # We're just looking at it...

      print $h->p ("Viewing Shift: $R->{$primary}...");

      $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>$DBFields[0], value=> $F{$DBFields[0]} });

      use DateTime;

      my $now = DateTime->now (time_zone => 'America/Los_Angeles');

     	my ($yyyy, $mm, $dd) = split /\-/, $F{date};

    	my $cutoff = DateTime->new(

            year => $yyyy,

            month => $mm,

            day => $dd,

            hour => 5,

            minute => 0,

            second => 0,

            time_zone => 'America/Los_Angeles'

      );

     	if (!$F{assignee_id}) {

     	  $F{assignee_id} = "OPEN";

     		if (signUpEligible ($ORCUSER, \%F, "vol") and $now < $cutoff) {

     			# SIGN UP

     			$F{assignee_id} .= " | <A HREF='#' onClick=\"event.stopPropagation(); window.open('make_shift_change.pl?change=add&RCid=$RCid&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[SIGN UP]</a>";

     		}

     		if ($user->{department}->{$F{dept}} >= RollerCon::LEAD or $LVL >= RollerCon::ADMIN) {

     			# ADD USER

     			$F{assignee_id} .= " | <A HREF='#' onClick=\"event.stopPropagation(); window.open('make_shift_change.pl?change=lookup&RCid=$RCid&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[ADD USER]</a>";

     		}

     	} elsif (($F{assignee_id} == $RCid and $F{type} ne "selected" and $now < $cutoff) or $user->{department}->{$F{dept}} >= RollerCon::LEAD or $LVL >= RollerCon::ADMIN) {

     	  my $temp = $h->a ({ href=>"/schedule/view_user.pl?RCid=$F{assignee_id}" }, getUserDerbyName ($F{assignee_id}));

     		# DROP

     		$temp .= " | <A HREF='#' onClick=\"event.stopPropagation(); if (confirm('Really? You want to drop this person from the shift?')==true) { window.open('make_shift_change.pl?change=del&RCid=$F{assignee_id}&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false; }\">[DROP]</a>";

     		if ($user->{department}->{$F{dept}} >= RollerCon::LEAD or $LVL >= RollerCon::ADMIN) {

     		  # NO SHOW

     		  $temp .= " | <A HREF='#' onClick=\"event.stopPropagation(); if (confirm('Really? They were a no show?')==true) { window.open('make_shift_change.pl?noshow=true&change=del&RCid=$F{assignee_id}&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false; }\">[NO SHOW]</a>";

     		}

     		$F{assignee_id} = $temp;

     	} else {

     	  $F{assignee_id} = "FILLED";

     	}

      $F{dept} = $DepartmentNames->{$F{dept}};

      $F{doubletime} = $F{doubletime} ? "TRUE" : "FALSE";

      $actionbutton = formField ("choice", "Update") unless $F{dept} eq "Coaching" or $LVL < RollerCon::ADMIN;

      if ($view eq "POSTSAVE" or $choice eq "View") {

        $actionbutton .= formField ("Cancel", "Back", "POSTSAVE");

      } else {

        $actionbutton .= formField ("Cancel", "Back");

      }

    }

  } else {

    error ("No Shift ID provided.") unless $LVL >= RollerCon::ADMIN;

    print $h->p ("Adding a new Shift...");

    foreach (@DBFields) {

      $F{$_} = formField ($_);

    }

		$F{$DBFields[0]} = "NEW".$h->input ({ type=>"hidden", name=>$DBFields[0], value=> "NEW" });

    $actionbutton = formField ("choice", "Save");

    $actionbutton .= formField ("Cancel");

  }

	print $h->open ("form", { action => url (), name=>"Req", method=>"POST" });

	print $h->div ({ class=>"sp0" },

	  $h->div ({ class=>"rTable" }, [ map ({

      $h->div ({ class=>"rTableRow" }, [

        $h->div ({ class=>"rTableCell right top" }, "$fieldDisplayName{$_}: "),

        $h->div ({ class=>"rTableCell" }, $F{$_})

      ])

#      } @DBFields),

       } sort fieldOrder keys %FIELDS),

   ])

  );

  print $actionbutton;

  print $h->close ("form");

}

sub process_form  {

  error ("ERROR: Only SysAdmins can change shifts.") unless $LVL >= RollerCon::ADMIN;

  my %FORM;

  foreach (keys %FIELDS) {

  	if ($fieldType{$_} =~ /^text/) {

  		$FORM{$_} = WebDB::trim param ($_) // "";

  	} else {

	  	$FORM{$_} = param ($_) // "";

  	}

  }

  	 # check for required fields

	my @errors = ();

	foreach (@requiredFields) {

		push @errors, "$fieldDisplayName{$_} is missing." if $FORM{$_} eq "";

	}

  if (@errors)	 {

    print $h->div ({ class=>"error" }, [

  	  $h->p ("The following errors occurred:"),

  	  $h->ul ($h->li (@errors)),

  	  $h->p ("Please click your Browser's Back button to\n"

  	  	   . "return to the previous page and correct the problem.")

  	]);

  	return;

  }	 # Form was okay.

  $FORM{id} = saveForm (\%FORM);

	print $h->p ({ class=>"success" }, "Shift successfully saved.");

  display_form ({ $primary=>$FORM{id} }, "POSTSAVE");

}

sub error {

	my $msg = shift;

	print $h->p ({ class=>"error" }, "Error: $msg");

  print $h->close("html");

	exit (0);

}

sub formField {

	my $name  = shift;

	my $value = shift // '';

	my $context = shift // '';

	my $type = $fieldType{$name} // "button";

  if ($type eq "button") {

		if ($name eq "Cancel") {

		  if ($context eq "POSTSAVE") {

		    return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"window.location.href = \"shifts.pl\"; return false;" });

		  } else {

		    return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"history.back(); return false;" });

		  }

		} else {

			return $h->input ({ type=>"submit", value => $value, name=>$name })

		}

	} elsif ($type eq "textarea") {

	  return $h->tag ("textarea", {

	    name => $name,

	    override => 1,

			cols => 30,

			rows => 4

	  }, $value);

  } elsif ($type eq "select") {

    no strict;

    return &{"select_".$name} ($value);

	}	elsif ($type eq "auto") {

	  return $name eq "assignee_id" ? getUserDerbyName ($value) : $value;

  }	elsif ($type eq "time") {

	  return $h->input ({

	    name => $name,

	    type => $type,

	    value => $value,

	    step => 900,

	    required => [],

	    override => 1,

	    size => 30

	  });

  }	elsif ($type eq "number") {

    return $h->input ({ name=>$name, type=>"number", value=>$value, step=>.25 });

  }	elsif ($type eq "switch") {

    if ($value) {

      return $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>$name, value=>1, checked=>[] }), $h->span ({ class=>"slider round" })]);

    } else {

      return $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>$name, value=>1 }), $h->span ({ class=>"slider round" })]);

    }

# $F->{department}->{$_} = $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>"DEPT-$_", value=>0, checked=>[] }), $h->span ({ class=>"slider round" })]);

	}	else {

	  use tableViewer;

	  if (inArray ($name, \@requiredFields)) {

  	  return $h->input ({

  	    name => $name,

  	    type => $type,

  	    value => $value,

  	    required => [],

  	    override => 1,

  	    size => 30

  	  });

	  } else {

  	  return $h->input ({

  	    name => $name,

  	    type => $type,

  	    value => $value,

  	    override => 1,

  	    size => 30

  	  });

  	}

	}

}