#!/usr/bin/perl # Copyright 2001-2023 Leslie Richardson # This file is part of Open Admin for Schools. # Open Admin for Schools is free software; you can redistribute it # and/or modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. my %lex = ('Main' => 'Main', 'Export' => 'Export', 'Error' => 'Error', 'Add' => 'Add', 'Logo' => 'Logo', 'File' => 'File', 'Only' => 'Only', 'Cannot open file' => 'Cannot open file', 'Maximum File Upload size exceeded!' => 'Maximum File Upload size exceeded!', 'Uploaded' => 'Uploaded', 'Continue' => 'Continue', 'Alternate' => 'Alternate', 'Division' => 'Division', 'Report Card' => 'Report Card', 'Small' => 'Small', 'School' => 'School', 'Type' => 'Type', 'Name' => 'Name', 'Mistake' => 'Mistake', ); use CGI; use DBI; my $self = 'logoadd.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 $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); print qq{$doctype\n$lex{Add} $lex{Logo} $chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{Eoy ]\n}; print qq{

$lex{Add} $lex{Logo}

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; getFileUpload(); } #---------------- sub showStartPage { #---------------- print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$lex{File} $lex{Name}
$lex{File} $lex{Type}\n}; print qq{
}; print qq{\n}; print qq{
\n}; exit; } #---------------- sub getFileUpload { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Passed: filename and filetype (numeric 1-4) if ( not $arr{filename} or not $arr{filetype} ) { print qq{

No File or type Specified!

\n}; print qq{\n}; exit; } my $type = $arr{filetype}; my $file = $q->param("filename"); my ($name, $ext); # this stuff is confused below, but it works. I'll leave for now. 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 'gif'){ print "$lex{File} - jpg,gif $lex{Only}!"; print "\n"; exit; } pop(@name); # pull off extension. foreach $n (@name){ $name .= "$n.";} # assemble name chop; # remove trailing dot # print "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 "

". $lex{'Maximum File Upload size exceeded!'}; print "($maxbufcount K)

\n"; print "\n"; die $lex{'Maximum File Upload size exceeded!'}. "\n"; } } close (OUTFILE); } # my ($dud, $type) = split(/\(/, $arr{filetype}); # chop $type; # print "Type:$type
\n"; # Process File if ( $ext eq 'gif' ) { # move and link into admin/images my $imagedir = $downloaddir; $imagedir =~ s/download$/images/; # print qq{Imagedir: $imagedir
\n}; system("mv -f $filename $imagedir"); chdir $imagedir; if ( $type == 1 ) { # full logo if ( $filename ne 'logo.gif' ) { unlink 'logo.gif'; symlink $filename, 'logo.gif'; } } elsif ( $type == 2 ) { # thumbnail logo if ( $filename ne 'logotn.gif' ) { unlink 'logotn.gif'; symlink $filename, 'logotn.gif'; } } else { # mistake unlink $filename; print qq{$lex{Error}: $lex{File} $lex{Type} $lex{Mistake}: $filename
\n}; print qq{\n}; exit; } } elsif ($ext eq 'jpg') { # move and link with etc/schoollogo.jpg my $imagedir = '../../etc'; system("mv -f $filename $imagedir"); chdir $imagedir; if ( $type == 3 ) { # logo for report card if ( $filename ne 'schoollogo.jpg' ) { unlink 'schoollogo.jpg'; # remove existing file/link symlink $filename, 'schoollogo.jpg'; } } elsif ( $type == 4 ) { # division logo for report card if ( $filename ne 'divisionlogo.jpg' ) { unlink 'divisionlogo.jpg'; symlink $filename, 'divisionlogo.jpg'; } } else { # mistake unlink $filename; print qq{$lex{Error}: $lex{File} $lex{Type} $lex{Mistake}: $filename
\n}; print qq{\n}; exit; } } else { print qq{$lex{Error}: $lex{'Cannot open file'}: $ext\n}; print qq{\n}; exit; } print qq{

$filename $lex{Uploaded}

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