sub landingpage_template_upload_graphic {
  my $self = shift;
  my $page = $self->_gen_pgwrapper();
  my $q    = $self->query;
 
  $dir = "/home/finc/www/content/sts/images/campaigns/";

  my $filename;
  my $filehandle;

  if ( $filename = $q->param('image') ) {
    if ( $filename =~ /^([\w-]+\.(jpg|gif|png|jpeg))$/ ) {
      $filehandle = $filename;
      $filename   = $1;

      open( OP, ">$dir/$filename" ) or die "$!";
      chmod 0777, "$dir/$filename";
      binmode OP;

      my $buffer;
      my $bytesread;
      while ( $bytesread = read( $filehandle, $buffer, 1024 ) ) {
        print OP $buffer;
      }
      close $filehandle;
    }
  }

  #}

  $page->param( 'warning' => Dumper($q) . "\nName: $filename\nDirectory: $dir\n" );
  return $page->output();

}