Subversion Repositories ORC

#!/usr/bin/perl

use strict;
use cPanelUserConfig;
use RollerCon;
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)");
        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>;
  @columnlabels = map { s/[^\x00-\x7f]//g; WebDB::trim ($_) } @columnlabels;
    
  my $idtrue = 0;
  if ($columnlabels[0] eq "id") {
    $idtrue = 1;
    shift @columnlabels;
  }
  
  my @AcceptableColumns = qw(dept, role, type, date, location, start_time, end_time, doubletime, note);
  

  my $fields = join ", ", @columnlabels;
  my $values = join ", ", map { '?' } 0..$#columnlabels;
  my $sth = $dbh->prepare ("insert into shift ($fields) values ($values)");
  
  while (<$fh>) {
    chomp;
    my @R = map { s/[^\x00-\x7f]//g; WebDB::trim ($_) } split /,/;
    shift @R if $idtrue;
    push @R, "" if (scalar @R < scalar @columnlabels and eof);
    print "inserting: ", join (" ", @R), $h->br;
    $sth->execute (map { defined $_ ? $_ : undef } @R) or print $sth->errstr;
  }
  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);
}