#!/usr/local/bin/perl
# Home Improvement Application
use strict;
use warnings;
use File::Basename;
use File::Copy;
use CGI qw(:standard);
use CGI::Carp qw ( fatalsToBrowser );
require "settings.pl";
use vars qw( $problem $writeType $bytes $addendumDir $tempdir );
umask(000);
&load;
my $cgi = new CGI;
my $max_size = 250;
$CGI::POST_MAX = 1024 * 1500; # Limit to 1500kb posts...
if (defined(param('files'))) {
my $associate = param('associate');
my @files = param('files');
my @captions = param('caption');
my $fullpath = join("|",@files);
my $desc = join("|",@captions);
uploadMultiple($associate,$fullpath,$desc);
} elsif (!defined(param('files'))) {
my $image = param('uniquecode');
uploadMulti($image);
} else {
print $cgi->header;
print "Accessing this script illegally!";
}
sub uploadMulti {
my ($tempError,$error,$name);
if (scalar(@_) == '1') {
$name = shift;
$error = " ";
} else {
($tempError,$name) = @_;
if ($tempError eq "Bad File Extension") {
$error = &badExt;
} else {
$error = &fileToBig;
}
}
my @images = ("one","two","three","four");
my $uploaded = '1';
my $multi;
for (my $rows = $uploaded; $rows < scalar((@images) + $uploaded); $rows++) {
$multi .= qq(
|
|
|
);
}
print $cgi->header();
print <