#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw/fatalsToBrowser /;
use CGI ':standard';

my $megabyte = 1024 * 1024;  # bytes
my $max_mb   = 1;     # max no. of MB we will allow

$CGI::DISABLE_UPLOADS = 0;
# CGI module variable for en/disabling uploads (non-zero to disable)
$CGI::POST_MAX = $megabyte * $max_mb;
# CGI module variable for maximum upload size (bytes)

my $q = CGI->new();

my $base_dir = 'D:\\Inetpub\\thissite.org\\';
my $target_dir = "\\alerts\\images\\";
my $base_dom = "http://www.thissite.org/alerts";
my $image_folder="/images/";

##</code><code>##

sub file_up {
	local $| = 1;
	my ($bytesread,$buffer,$file);
	my $directory = $base_dir . $target_dir;
	my $fh = $q->upload('upload_file');
	binmode $fh;
	my $filename = $q->param('upload_file');
	$filename =~ s/[^A-Za-z0-9\.\_]//g;

	open(OUTF, '>' . $directory . $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;
	}


	$image_link = $base_dom . $image_folder . $filename;
	$image_link;
}