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 HTML::Tiny;
use CGI qw/param header start_html url uploadInfo/;
my $h = HTML::Tiny->new( mode => 'html' );

my $cookie_string = authenticate (5) || die;
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
my $ID = getUser ($EML);
my $RCAUTH_cookie = cookie (-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");

my $tmpdir = "/tmp/";


print header (-cookie=>$RCAUTH_cookie),
                        start_html (-title => "Bulk Upload vORC Data", -style => {'src' => "/style.css"} );

if (defined (param ("uploadedfile"))) {
        process_form ();
} else {
        display_upload_form ();
}

print end_html ();

use CGI qw(:standard escape escapeHTML);

sub display_upload_form  {
  print $h->div ("Upload a CSV File of department shifts...");
  print $h->div ("These should be the columns: (dept, role, type, date, location, start_time, end_time, doubletime, note, assignee_id)");
        print start_multipart_form (-action => url ()),
#                   "Upload File: ", br (),
      $h->input ({
        name => "uploadedfile",
        class => "inputfile",
        type => "file",
        id   => "file",
        size => 60
      }) . $h->label ({ for=>"file", class=>"top" }, $h->span ("Choose File...")),
        br (), br (),
                    submit (-name => "choice", -value => "Submit"), $h->input ({ type=>"button", value => "Cancel" , onClick=>"history.back(); return false;" }),
                    end_form ();
                    printJavascript ();
}

sub printJavascript {
    print<<JSCRIPT;
  
<SCRIPT language="JavaScript">
<!--

var inputs = document.querySelectorAll( '.inputfile' );
Array.prototype.forEach.call( inputs, function( input )
{
        var label        = input.nextElementSibling,
                labelVal = label.innerHTML;

        input.addEventListener( 'change', function( e )
        {
                var fileName = e.target.value.split( '\\\\' ).pop();
                if( fileName )
                        label.querySelector( 'span' ).innerHTML = fileName;
                else
                        label.innerHTML = labelVal;
        });
});

//-->
</SCRIPT>


JSCRIPT
}

sub process_form  {
  use WebDB;
  my $dbh = WebDB::connect ();
  
        my $uploadedfile = param ("uploadedfile");
        my @errors = ();
  my $mime_type;
  my $serve_url;
  
  logit ($ID->{RCid}, "Bulk Uploaded shifts from file $uploadedfile");

  push (@errors, "Please specify a file") if $uploadedfile eq "";
  $mime_type = uploadInfo ($uploadedfile)->{'Content-Type'};
  if ($mime_type ne "text/csv") {
    push @errors, "Expecting a CSV file, but received a '$mime_type'.";
  }
  if (@errors)   {
        print p ("The following errors occurred:");
        print ul (li (\@errors));
        print p ("Please click your Browser's Back button to\n"
                                   . "return to the previous page and correct the problem.");
        return;
  }      # Form was okay;
  
  print $h->div ("Processing file...");
  my $fh = upload ('uploadedfile');

#  my @columnlabels = split /,/, <$fh>;
  my @columnlabels = map { s/[^\x00-\x7f]//g; WebDB::trim ($_) } split /,/, chomp <$fh>;
    
  if ($columnlabels[0] eq "id") {
    error "'id' is no longer allowed as a column!";
  }
  
  my @AcceptableColumns = map { $_->[0] } @{ $dbh->selectall_arrayref("show columns from shift") };
  shift @AcceptableColumns; #Remove 'id' from the acceptable column list
  
  foreach (@columnlabels) {
    if (notInArray($_, @AcceptableColumns)) {
      error "$_ isn't a valid column!";
    }
  }

  my $fields = join ", ", @columnlabels;
  my $values = join ", ", map { '?' } 0..$#columnlabels;
  my $sth = $dbh->prepare ("insert into shift ($fields) values ($values)");
  
  my $validDepartment = getDepartments ();
  
  while (<$fh>) {
    my %shift;
    @shift{@columnlabels} = map { s/[^\x00-\x7f]//g; WebDB::trim ($_) } split /,/, chomp $_;
    
    error "$shift{dept} isn't a valid Department!" unless inArray ($shift{dept}, keys %{$validDepartment});
    $shift{type} = lc $shift{type};
    $shift{doubletime} //= 0;
    $shift{assignee_id} //= undef;
    
    print "inserting: ", join (" ", @shift{@columnlabels}), $h->br;
    $sth->execute (map { $_ eq '' ? undef : $_ } map { defined $_ ? $_ : undef } @shift{@columnlabels}) or print "ERROR: ".$sth->errstr.$h->br;
  }
  print "DONE!", $h->br, $h->br;
  
        $dbh->disconnect ();     # Image was stored into database successfully.  Present confirmation
        
        # Display link to main page so user can upload another image
        print $h->hr, $h->a ({ href => url }, "[Upload another file]"), $h->a ({ href => "/schedule/" }, "[Home]");
}


sub error {
        my $msg = shift;
        print p (escapeHTML ("Error: $msg")), end_html ();
        exit (0);
}