### Filename: file_upload_sys.data
## subs in file:
#hook

$| = 1;
$q = new CGI (\&hook, $sess_ref); # CGI->new(\&hook, $sess_ref); ##  Tried it with both of these, neither worked
# Also  tried both of these:
#$q = new CGI (\&hook, $sess_ref, $use_tempfile); # CGI->new(\&hook, $sess_ref, $use_tempfile); # Neither worked

$_sloc = '/tmp/s';
# This is the file upload hook, where we can update our session
# file with the dirty details of how the upload is going.
sub hook {
	my ($filename,$buffer,$bytes_read,$file) = @_;

	my ($sessid) = $ENV{QUERY_STRING};

	my $length = $ENV{'CONTENT_LENGTH'};
	my $percent = 0;
	if ($length > 0) { # Don't divide by zero.
		$percent = sprintf("%.1f",
			(( $bytes_read / $length ) * 100)
		);
	}
	if($file) {
		$file->attr("_uploadUpdateStatus_",join(':',$bytes_read,$length,$percent));
	}
	# Write this data to the session file.
	open (SES, ">$_sloc/$sessid.session");
	print SES "$bytes_read:$length:$percent";
	close (SES);
}

	my $action = $q->param("view");
	if ($action eq "upl") {
		# Make a file upload hook.
		# They are first submitting the file. This code doesn't really run much
		# until AFTER the file is completely uploaded.
		my $sessid   = $q->param("sessid") || $ENV{QUERY_STRING};
		
		open (SES,">$_sloc/$sessid.session") or die "Could not locate file: $! $_sloc/$sessid.session;";
		print SES "1:1:1";
		close (SES);
		my $filename = $q->param("incoming");
		my $handle   = $q->upload("incoming");
		$filename =~ s/(?:\\|\/)([^\\\/]+)$/$1/g;
	
		# Copy the file to its final location.
		open (FILE, ">/home$_website_username/www/Videos/$filename") or die "Can't create file: $!";
		my $buffer;
		while (read($handle,$buffer,2048)) {
			print FILE $buffer;
		}
		close (FILE);
	
		# Delete the session file.
		unlink("$_sloc/$sessid.session");
	
		# Done.
		$_tfile = "/home$_website_username/www/Videos/" . $filename;
		$type = uploadInfo($filename)->{'Content-Type'};
		($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($_tfile);
		if(-e "/home$_website_username/www/Videos/$filename") {
			$sess_ref->attr("show_message","success|I have successfully uploaded $filename to: http://www.domain.com/Videos/$filename<br />File type: $type<br />File size: $size bytes<br />$_page_content<br />");
			window_redirect("$_url?page=$in{page}&do=$in{do}$sess_id");
		} else {
			$sess_ref->attr("show_message","error|I could not upload the file: $filename to: http://www.domain.com/Videos/$filename<br />File type: $type<br />File size: $size bytes<br />$_page_content");
			window_redirect("$_url?page=$in{page}&do=$in{do}$sess_id");
		}
	} elsif ($action eq "ping") {
		# Now the meat of the CGI script.
		print "Content-Type: text/html\n\n";
		# Checking up on the status of the upload.
		my $sessid = $q->param("sessid");
			# Exists?
		if (open(OUTF, "$_sloc/$sessid.session")) {
			my $data = <OUTF>;
			close (OUTF);
			print "$data";
		} elsif($sess_ref) {
			$data = $sess_ref->attr("_uploadUpdateStatus_");
			print "$data";
		} else {
			print "Error reading Upload progress...$sessid $! $_sloc/$sessid.session";
		}
		if($sess_ref) {
			$sess_ref->close();
		}
		if($dbh) {
			$dbh->disconnect();
		}
		exit;
	} else {
		my @chars = ( "A" .. "Z", "a" .. "z", 0 .. 9 );
		$_newSessId = $_un . join("", @chars[ map { rand @chars } ( 1 .. 10 ) ]);
		$_page_content .= qq~
			<div id="webform">
				<fieldset id="upload_form">
					<legend>Approved Upload System</legend><br />
					<br />
					
					Hello, you have been verified as allowed to upload files to the Videos
					directory for the .com website...<br />
					<br />
					Please use the system below to upload files to this directory.<br />
					<br />
					~ . start_multipart_form(-name=>"uploadFile", -action=>url() . '?' . $_newSessId, -method=>"POST", -onSubmit=>"return startUpload();", id=>"theform") . 
					hidden(-name=>"page") . 
					hidden(-name=>"do") . 
					hidden(-name=>"sessid", -value=>$_newSessId, -override=>1) . 
					hidden(-name=>"view", -value=>"upl", -override=>1) . 
					$hidden_sess_id . 
					filefield(-name=>'incoming',
	                            -class=>'formfield',
	                            -size=>50,
	                            -maxlength=>80) . qq~<br />
	        <br />
	        ~ . submit(-name=>"choice", -value=>"Upload The File", -class=>"submit") . qq~<br />
	        <br />~ . end_form() . qq~
	       </fieldset>
					<div id="progress-div" style="display: none; width: 600px; margin: auto">
		        <fieldset style="width: 600px;">
		                <legend>Upload Progress</legend><br />
		                <br />
		                <div id="trough">
		                        <div id="bar" style="width: 0%"></div>
		                </div>
		                Received <span id="received">0</span>/<span id="total">0</span> (<span id="percent">0</span>%)<br />
		                <div id="debug">Uploading</div>
		        </fieldset><br />
		        <br />
					</div>
	       <br />
	       <br />
	      </div><br />
	      <br />
	      ~ . q~
		<script type="text/javascript">
		// a jquery-like function, a shortcut to document.getElementById
		function $(o) {
			return document.getElementById(o);
		}
		
		// This function is called when submitting the form.
		function startUpload() {
			// Hide the form.
			document.getElementById('upload_form').style.display = "none";
		
			// Show the progress div.
			document.getElementById('progress-div').style.display = "block";
		
			// Begin making ajax requests.
			setTimeout("ping()", 1000);
		
			// Allow the form to continue submitting.
			return true;
		}
		
		// Make an ajax request to check up on the status of the upload
		function ping() {
			var ajax = new XMLHttpRequest();
			
			ajax.open("GET", "index.cgi?page=~.$in{page}.q~&do=~.$in{do}.q~&view=ping&sessid=~.$_newSessId.q~&" + "rand=" + Math.floor(Math.random()*99999) + "~.$sess_id.q~", true);
			ajax.onreadystatechange = function () { if (ajax.readyState == 4) { parse(ajax.responseText);}};
			ajax.send(null);
		}
		
		// React to the returned value of our ping test
		function parse(txt) {
			var parts = txt.split(":");
			document.getElementById("debug").innerHTML = document.getElementById("debug").innerHTML + "." + parts[0] + ';' + parts[1] + ';' + parts[2] + ';';
			if (parts.length == 3) {
				document.getElementById("received").innerHTML = parts[0];
				document.getElementById("total").innerHTML = parts[1];
				document.getElementById("percent").innerHTML = parts[2];
				document.getElementById("bar").style.width = parts[2] + "%";
			}
		
			// Ping again!
			setTimeout("ping()", 1000);
		}
		</script>~;
	}
1;