#!/usr/local/bin/perl -w
use strict;

use CGI::Carp qw/fatalsToBrowser /;

use CGI qw/:standard /;

my $q = CGI->new();

my $user_pass = $q->param('pass');

my $target_directory = "c:\\rediculousIIsServer\\yata";

if ($user_pass eq 'somePass') {
	file_up();
} else {
	print $q->header, start_html, h2('Bad Password=', $user_pass);
	exit;
}




sub file_up {
	my $corrected_filename = $q->param('temp_filename');
	$corrected_filename =~ s/ /_/g;
	local $| = 1;
	my ($bytesread,$buffer,$file);
	my $fh = $q->upload('temp_filename');
	open(OUTF, '>' . $target_directory . $corrected_filename);
	while ($bytesread = read($fh, $buffer, 1024)) {
    	print(OUTF $buffer);
	}
	close(OUTF);
	if (!$file && $q->cgi_error) {
	    print($q->header(-status=>$q->cgi_error));
	    exit 0;
	}
	my $redir = "http://www.thesite.com/done.htm";
	print $q->redirect("$redir");

}