#!/usr/bin/perl # Copyright 2001-2025 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Main' => 'Main', 'Export' => 'Export', 'Error' => 'Error', 'Add Student Pictures' => 'Add Student Pictures', 'File Processing' => 'File Processing', 'Cannot open file' => 'Cannot open file', 'Resizing and Adding to picture folders Complete' => 'Resizing and Adding to picture folders Complete', 'Maximum File Upload size exceeded!' => 'Maximum File Upload size exceeded!', 'Uploaded' => 'Uploaded', 'Library type not recognized' => 'Library type not recognized', 'Continue' => 'Continue', 'No Files Found' => 'No Files Found', 'Files Found' => 'Files Found', 'Move' => 'Move', 'Not Found' => 'Not Found', ); use CGI; use DBI; use File::Find; use Cwd; my $self = 'imageadd.pl'; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } eval require "../../etc/image.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; my %arr= $q->Vars; print $q->header( -charset, $charset ); my $currdir = getcwd(); my (@dirs, %options); $options{wanted} = \&processFiles; my $checkfile; # file to check for. my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $title = $lex{'Add Student Pictures'}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Export} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; uploadPics(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; doProcessing(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; confirmDelete(); } elsif ( $arr{page} == 4 ) { delete $arr{page}; deletePictures(); } #----------------- sub deletePictures { #----------------- my $path = qq{$currdir/../../admin}; # Remove the files from admin big pic and thumbnail my $res = system("rm -fr $path/pic-big/*"); if ($res) { print qq{
$lex{Error} removing Large Pictures $!
\n}; } my $res = system("rm -fr $path/pic-sm/*"); if ($res) { print qq{
$lex{Error} removing Small Thumbnail Pictures $!
\n}; } print qq{

Picture Files Removed

\n}; # remove any pic field values in the student records. my $sth = $dbh->prepare("update student set pic = NULL"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} print qq{

Picture Field in student table cleared

\n}; # Starting Page print qq{
\n}; print qq{\n}; print qq{
\n}; exit; } #---------------- sub confirmDelete { #---------------- print qq{

This will remove all student/staff pictures! Are you sure?

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; exit; } #---------------- sub showStartPage { #---------------- print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{
\n}; print qq{
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; exit; } #-------------- sub uploadPics { #-------------- my $file = $q->param("filename"); my $name; my $ext; if ( $file ) { $filename = $file; # filename is output filename, file is input. $filename =~ s!^.*(\\|\/)!!; $filename =~ s/\s*//g; # strip any spaces. $filename = lc($filename); @name = split(/\./, $filename); # split on dots. $ext = $name[$#name]; # last element is the extension. unless ( $ext eq 'jpg' or $ext eq 'zip' or $ext eq 'tgz' ) { print qq{

The file must be a jpg, zip, or tgz file!

}; print qq{\n}; exit; } pop(@name); # pull off extension. foreach $n (@name){ $name .= "$n.";} # assemble name chop; # remove trailing dot # print qq{Name: $name Extension: $ext
\n}; open (OUTFILE, ">$filename") || die $lex{'Cannot open file'}. " $filename\n"; my $bufcount = 0; while (my $bytesread = read($file, my $buffer, 1024)) { print OUTFILE $buffer; $bufcount++; if ($bufcount > $maxbufcount){ print qq{

$lex{'Maximum File Upload size exceeded!'}\n}; print qq{($maxbufcount K)

\n}; print qq{\n}; exit; } } close (OUTFILE); } # Uncompress Library Files if ( $ext eq 'zip' or $ext eq 'tgz' ) { doLibrary($ext, $filename); # put any jpg's in compressed library into working dir. } elsif ($ext eq 'jpg') { # move single jpg into working. system("mv $filename ./working"); } else { print qq{$lex{Error} $lex{'Cannot open file'}: $ext\n}; print qq{\n}; exit; } print qq{

$filename $lex{Uploaded}

\n}; print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{

\n}; exit; } # end of uploadPics #--------------- sub processFiles { # convert and put into working. #--------------- my $file = $_; my $path = $File::Find::dir; # skip any non jpg files if ( $file !~ m/\.jpg/i ) { # print qq{
No Match:$file
\n}; return; } my $originalfile = $file; # Strip trailing .jpg extension $file =~ s/\.jpg$//; my $name = $file; # to avoid confusion. # Rename file if it has any single quotes if ( $name =~ m/\'/ ) { $name =~ s/\'//; # remove the quote or dot $file = $name . q{.jpg}; # put the extension back on my $fullnew = qq{$currdir/$path/$file}; my $fullorig = qq{$currdir/$path/$originalfile}; rename( $fullorig, $fullnew); if ( $! ) { print qq{
Rename Error: $! - \n}; print qq{NAME:$name NEW:$fullnew ORIG:$fullorig
\n}; exit; } } else { # just put the ending back on $file = $name . q{.jpg}; } my $fullpath = qq{$currdir/$path/$file}; # Copy file into working my $res = system("cp $fullpath $currdir/working"); if ($res){ print qq{
Error:$!
\n}; exit; } print qq{
$file Imported
\n}; return; }; #------------ sub doLibrary { # uncompress lib and place any .jpg files into working folder. #------------ my ($extension, $filename ) = @_; # Create a folder to do the zip in. my $tempdir = "templib$$"; mkdir $tempdir; if ( $extension eq 'zip' ){ system("unzip $filename -d $tempdir >/dev/null"); } elsif ($extension eq 'tgz'){ system("tar xvz -C $tempdir -f $filename >/dev/null"); } else { print qq{$lex{Error}: $lex{'Library type not recognized'}\n}; print qq{\n}; exit; } # All files/folders now put into tempdir. find(\%options, $tempdir); # get all the files and put into working (with process files) # All jpg files should now be in working directory # Remove temporary directory my $res = system("rm -fr $tempdir/*"); if ($res) { print qq{$lex{Error} removing $tempdir
\n}; } rmdir $tempdir; unlink $filename; # uploaded file removed return; } #-------- sub doTgz { # uncompress tgz and replace jpg's into working dir. #-------- # Create a folder to do the zip in. my $tempdir = "temptgz$$"; mkdir $tempdir; # Count the number of .jpg files... my $filecount; opendir(DH,"$tempdir") or die "Cannot open dir $tempdir!: $!"; while ( defined ($filename = readdir(DH))){ if ($filename =~ m/\.jpg/){ $filecount++;} } closedir(DH); print qq{$filecount jpg files found.
\n}; system("cp $tempdir/*.jpg ./working"); system("rm -f $tempdir/*"); rmdir $tempdir; unlink $filename; } #--------------- sub doProcessing { # Process any images in the working directory #--------------- my $tempimage = "temp$$.jpg"; print qq{

$lex{'File Processing'}

\n}; if ( not -e $convertprog ) { print qq{

$convertprog $lex{'Not Found'}

\n}; print qq{\n}; exit; } # Read Files in working folder (skip dot files) opendir (DH,"working") || die $lex{'Cannot open file'}. " $!\n"; my @files = grep !/^\./, readdir DH; close DH; print qq{

Pictures resized and added to Picture Directories

\n}; foreach my $file ( sort @files){ # Do files one after another. # print qq{$file
}; # Process image my $res = system("$convertprog ./working/$file -resize x$imageheight ./working/$tempimage"); if ($res){ print qq{$lex{Error}: Convert Image: $!
\n};} $res = system("mv ./working/$tempimage $picdir/$file"); if ($res){ print qq{$lex{Error}: $lex{Move} $res
\n};} # Now process thumbnail system("$convertprog ./working/$file -resize x$thumbheight ./working/$tempimage"); $res = system("mv ./working/$tempimage $tndir/$file"); if ($res){ print qq{Error in Thumbnail Move: $!
\n};} print qq{
\n}; print qq{
$file
\n}; unlink("./working/$file"); } print qq{

$lex{'Resizing and Adding to picture folders Complete'}\n};; print qq{

\n}; exit; }