#!/usr/bin/perl

require "config.idx";

use CGI;
my $query = new CGI;
my $action = $query->param('action');
my $name = $query->param('name');
my $prospectingid = $query->param('prospectingid');

my($file_query, $file_name, $size, $buff, $time, $bytes_count);
$size = $bytes_count = 0;

$_ = $file_query = $query->param('FILE1');

	s/\w://;
	s/([^\/\\]+)$//;
	$_ = $1;
	s/\.\.+//g;
	s/\s+//g;
	$file_name = $_;


$file_name =~ m/\.([^.]+)$/;
$file_ext = $1;
$file_ext = lc($file_ext);

use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;

$sql_query = qq~insert into trans_boardprospecting_documents values ('',?,?,?,now(),?)~;
@variables = ("$name","$file_name","$file_ext","$prospectingid");

my $gasth = $dbh->do($sql_query, undef, @variables);

my $vasth = $dbh->prepare("select last_insert_id()");
$vasth->execute;

$last_insert = $vasth->fetchrow_array();

open(FILE,">/home/muncieml/public_html/connect/documents/prospecting/$last_insert\.$file_ext") || print "Error opening file $last_insert\.$file_ext for writing, error: $!";
    binmode FILE;
    $time=time();

    while ($bytes_count = read($file_query,$buff,2096)) {
    	$size += $bytes_count;
        print FILE $buff;
    }

    close(FILE);


print qq~Location: http://connect.eaglesold.com/prospecting.idx?view=overview_documents&prospectingid=$prospectingid\n\n~;