the AdminUtil module is unused, remove it
authorTony Cook <tony@develop-help.com>
Wed, 25 Jul 2012 05:59:59 +0000 (15:59 +1000)
committerTony Cook <tony@develop-help.com>
Wed, 25 Jul 2012 05:59:59 +0000 (15:59 +1000)
MANIFEST
site/cgi-bin/modules/AdminUtil.pm [deleted file]

index 44f13cc..7e72131 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -51,7 +51,6 @@ site/cgi-bin/fmail.fcgi
 site/cgi-bin/fmail.pl
 site/cgi-bin/image.pl
 site/cgi-bin/interest.pl
-site/cgi-bin/modules/AdminUtil.pm
 site/cgi-bin/modules/Apache/Session/DBIreal.pm
 site/cgi-bin/modules/Apache/Session/Store/DBIreal.pm
 site/cgi-bin/modules/Article.pm
diff --git a/site/cgi-bin/modules/AdminUtil.pm b/site/cgi-bin/modules/AdminUtil.pm
deleted file mode 100644 (file)
index 9c3cbed..0000000
+++ /dev/null
@@ -1,63 +0,0 @@
-package AdminUtil;
-use strict;
-
-our $VERSION = "1.000";
-
-require Exporter;
-use base qw(Exporter);
-use vars qw/@EXPORT_OK/;
-@EXPORT_OK = qw(save_thumbnail);
-
-sub save_thumbnail {
-  my ($original, $newdata) = @_;
-
-  use CGI qw(param);
-
-  unless ($original) {
-    @$newdata{qw/thumbImage thumbWidth thumbHeight/} = ('', 0, 0);
-  }
-  use Constants '$IMAGEDIR';
-  if (param('remove_thumb') && $original && $original->{thumbImage}) {
-    unlink("$IMAGEDIR/$original->{thumbImage}");
-    @$newdata{qw/thumbImage thumbWidth thumbHeight/} = ('', 0, 0);
-  }
-  my $image = param('thumbnail');
-  if ($image && -s $image) {
-    # where to put it...
-    my $name = '';
-    $image =~ /([\w.-]+)$/ and $name = $1;
-    my $filename = time . "_" . $name;
-
-    use Fcntl;
-    my $counter = "";
-    $filename = time . '_' . $counter . '_' . $name
-      until sysopen( OUTPUT, "$IMAGEDIR/$filename", 
-                     O_WRONLY| O_CREAT| O_EXCL)
-        || ++$counter > 100;
-
-    fileno(OUTPUT) or die "Could not open image file: $!";
-    binmode OUTPUT;
-    my $buffer;
-
-    #no strict 'refs';
-
-    # read the image in from the browser and output it to our 
-    # output filehandle
-    print STDERR "\$image ",ref $image,"\n";
-    seek $image, 0, 0;
-    print OUTPUT $buffer while sysread $image, $buffer, 1024;
-
-    close OUTPUT
-      or die "Could not close image output file: $!";
-
-    use Image::Size;
-
-    if ($original && $original->{thumbImage}) {
-      #unlink("$IMAGEDIR/$original->{thumbImage}");
-    }
-    @$newdata{qw/thumbWidth thumbHeight/} = imgsize("$IMAGEDIR/$filename");
-    $newdata->{thumbImage} = $filename;
-  }
-}
-
-1;