----------------------------------------------------------- #!/usr/bin/perl -w use lib './'; use CGI; use File::Basename; use CGI::Carp qw(fatalsToBrowser); use DBI; require './config.pl'; my $query=new CGI; print $query->header(); print $css_style; If $query->upload('fullimage_file') || $query->upload('thumbnail_file') { my $img_name = $query->param('item'); my $full_pic = $query->upload('fullimage_file'); my $thumb_pic = $query->upload('thumbnail_file'); my $fullname = basename($full_pic); my $thumbname = basename($thumb_pic); my ($F_name, $f_ext) = split /\./, $fullname,2; my ($T_name, $t_ext) = split /\./, $thumbname,2; my $short_name="$img_name\.$f_ext"; my $short_tname="$img_name\_t\.$t_ext"; my $new_name = "$doc_root$img_folder/$short_name"; my $new_tname = "$doc_root$img_folder/$short_tname"; if ($full_pic ne ''){ open (OUTFILE,">$new_name"); binmode OUTFILE; while ($bytesread=read($full_pic,$buffer,1024)) { print OUTFILE $buffer; } } if ($thumb_pic ne ''){ open (FILE,">$new_tname"); binmode FILE; while ($bytesread=read($thumb_pic,$buffer,1024)) { print FILE $buffer; } } } my $dbh = DBI->connect('DBI:mysql:*********', '*****', '*****' , {RaiseError => 1 , AutoCommit => 1}) || die "Can't Connect: $!"; my $sth = $dbh->prepare("UPDATE inventory SET img=\"$short_name\", thumb=\"$short_tname\" WHERE partno=\"$img_name\";" ); $sth->execute; print "

$menu_code
"; print '
'; print $query->start_multipart_form(); print $query->hidden(-name=>"item", -value=>"$img_name"); print 'This will replace any existing images for this product.

'; print '

Full Sized Image:
'; print $query->filefield('fullimage_file','',50,80); print '

Thumbnail Image:
'; print $query->filefield('thumbnail_file','',50,80); print '

', $query->submit(-name=>'', -value=>'Add Pics') . '
'; print '

Back to add parts
'; print "

$admin_links
"; print $query->end_html;