#!/usr/local/bin/perl

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use File::Basename;

$CGI::POST_MAX = 1024 * 5000;

use lib "/var/www/html/Pm";

use Html qw(pre_html_header);

use Bc_chef qw(cookie_get);

use Redir qw(notice_redir

             error_redir

            );

use Bc_sql qw(

              get_constant

              sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use User qw(isUserSubscriber);

use Security qw(banned);

my $query = new CGI;

my $filename = $query->param("pic");

my $database = $query->param("db");

if (not $database) { $database = "2812.ns.db"; }

my $DEBUG = 0;

if (not user_exists($LOGGEDIN) or banned($LOGGEDIN) or not isUserSubscriber($LOGGEDIN)) {

  my $msg =  "Access Denied";

  if ($DEBUG) { $msg .= " (upload.pl)"; }

  print error_redir("/", $msg);

  exit 1;

}

my $output; # = pre_html_header(); # this is JUST a placeholder

if ($filename) {

  my @bits = split(/\./, $filename);

  my $extension = $bits[$#bits]; # that SHOULD give us the file extension, finally!

  $output .= "file data received, processing...<br>\n";

  $output .= "filename: $filename<br>\n";

  $output .= "extension: $extension<br>\n";

  my $upload_filehandle = $query->upload("pic");

  my $image;

  while (<$upload_filehandle>) { $image .= $_; }

  my $dbh = DBI->connect("dbi:SQLite:dbname=$database", {RaiseError => 1}) or die $DBI::errstr;

  my $stm = $dbh->prepare("insert into images (ID, UID, data, type, dp) values (?, ?, ?, ?, 1)") or die $DBI::errstr;

  $stm->bind_param(1, undef);

  $stm->bind_param(2, $LOGGEDIN);

  $stm->bind_param(3, $image, DBI::SQL_BLOB);

  $stm->bind_param(4, $extension);

  $stm->bind_param(5, '1');

  $stm->execute() or die $DBI::errstr;

  $stm->finish() or die $DBI::errstr;

  $dbh->commit() or die $DBI::errstr;

  $dbh->disconnect();

  # yahoo!  it worked!

  #sleep 8;

  # now, let's display the image we just inserted

  #$output .= "<img src='/getimage.pl?id=" . $ref->{ID} . "'>\n";

  $output = notice_redir("/?" . $QUERY_PAGE . "=" . get_constant("PHOTOS_PAGE"), "image successfully uploaded...");

} else {

  $output = error_redir("/?" . $QUERY_PAGE . "=" . get_constant("PHOTOS_PAGE"), "image did not upload...");

}

print $output;

exit 1;