Stagehand.pm

package Stagehand::Stagehand;

use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT);

$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw(model fillinform upload_file combine_errors parameter);

use Dancer ':syntax';
use Dancer::Plugin::DBIC 'schema';
use Data::Dumper;

sub model {
   return schema->resultset( shift );
}

# ===== Helper Functions =====
sub fillinform {
   my $template = shift;
   my $fifvalues = shift;
   my $aux = shift;
   my $form = shift;
   my $html = template $template, $fifvalues, $aux;
   if ( $form ) {
      return HTML::FillInForm->fill( \$html, $fifvalues, target => $form );
   } else {
      return HTML::FillInForm->fill( \$html, $fifvalues );
   }
}

sub upload_file {
   $| = 1;

   my ($upload, $max, $upload_dir, $sub_dir, $filename, $overwrite) = @_; #upload is the $query->param

   $upload_dir = setting('appdir')."/".$upload_dir;

   if (not defined $overwrite) { # Set default to 0
      $overwrite = 1;
   }
                                                              #upload_is the main path, $sub_dir is an option new directory that will 
                                                              # that will be created below and appended to $updir                                                            
   $filename =~ s/ /_/g;
   $filename =~ s/^.*[\/ | \\](.*)$/$1/; #strip off path

   if (! -e $upload_dir) { return( undef, "$upload_dir does not exist", undef) };

   #my $upload_filehandle = $self->query->upload($upload);
   if (!$upload) { return ($filename,'Bad file handle. Check form enctype.',$upload); }

   if ($upload->size > $max) {
      return ($filename,'File is too large to upload.',$upload->size);
   }

   if( $sub_dir && ! -e "$upload_dir/$sub_dir") {
      mkdir ("$upload_dir/$sub_dir") or return ($sub_dir, $!, undef);
      my $mode = 0770;   chmod $mode, "$upload_dir/$sub_dir";
      chown 33, 1001, "$upload_dir/$sub_dir";
   }

   $upload_dir = ( $sub_dir ) ? $upload_dir .'/'.$sub_dir : $upload_dir;

   if ( ( not $overwrite ) and -e "$upload_dir/$filename") {
      return ($filename,'File already exists. Rename and try again.',$upload->size);
   } elsif ($overwrite and -e "$upload_dir/$filename") {  #delete file first if one by same name exists
      unlink "$upload_dir/$filename";
   }

   if (not $upload->copy_to($upload_dir."/".$filename)) {
      return ($filename, 'File failed to copy to '.$upload_dir, $upload->size);
   }

   #my $mode = ($upload_dir =~ /client_documents|client_images/) ? 0770 : 0777;   
   #chmod 0770, "$upload_dir/$filename" or return ($filename, 'chmod failed', $upload->size);
   #chown 33, 1001, "$upload_dir/$sub_dir" or return ($filename, 'chown failed', $upload->size);

   return ($filename, '', $upload->size);
}

# Function for combining error returns
sub combine_errors {
   my $msg1 = shift;
   my $msg2 = shift;

   my $msg;
   
   if ((ref $msg1 ne 'ARRAY' and $msg1->{errors}) and (ref $msg2 ne 'ARRAY' and $msg2->{errors})) {
      my @errors = ( @{$msg1->{errors}}, @{$msg2->{errors}} );
      $msg->{errors} = \@errors;
   } elsif (ref $msg1 ne 'ARRAY' and $msg1->{errors}) {
      $msg = $msg1;
   } elsif (ref $msg2 ne 'ARRAY' and $msg2->{errors}) {
      $msg = $msg2;
   } else {
      $msg = {};
   }
   return $msg;

}

# Parameter
# Returns the first parameter value retrieved for a given parameter name
sub parameter {
   my $param_name = shift;
   my %params_route = params('route');
   my %params_body = params('body');
   my %params_query = params('query');

   if ($params_route{$param_name}) {
      return $params_route{$param_name};
   } elsif ($params_body{$param_name}) {
      return $params_body{$param_name};
   } else {
      return $params_query{$param_name};
   }
}

 1;