Hey There!

This little perl script acts as a very simple gallery. Just place any images and this script in a directory and access it through your web server and you'll see the thumbnails and through them you can view the original size of the pictures. You can upload any type of pictures, the script will convert them to jpeg. Developement is still underway.

The code's site. 

#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use File::Type;
use File::stat;
use Image::Magick;


my $DIR = "."; #where to look for the files
my $percent = 10; #size of the thumbnails
my $author = 'gabri.mate@modernbiztonsag.org'; #page author

#convert and create thumbnail
sub create_thumbnail {
    my $file = $_[0];
    my $image = Image::Magick->new();
    $image->Read("$file");
    if ( $_[1] ) { #convert section
        my $oldfile = $file;
        my @file = split(/\./,$file);
        $file = $file[0] . ".jpg";
        open(IMAGE, ">$file") || die "Can't open $file!";
        $image->Write(file=>\*IMAGE, filename=>$file);
        close(IMAGE);
        $image = Image::Magick->new();
        $image->Read("$file");
        unlink($oldfile) || die "Can't unlink $oldfile!";
    }
    my ($width, $height) = $image->Get('width', 'height');
    $width = $width * $percent / 100;
    $height = $height * $percent / 100;
    $image->Scale(width=>"$width", height=>"$height");
    $image->Write("thumbs/$file");
}

#check if source file is updated since last thumbnail creation
sub check_mtime {
    my $file = $_[0];
    if ( ! -d "$DIR/thumbs/$file") { return(1); }
    my $filetime = stat($file)->mtime;
    my $thumbtime = stat("$DIR/thumbs/$file")->mtime;
    if ( $filetime > $thumbtime ) { return(1); }
    else { return(0); }
}

#check is file is an image and if it has a thumbnail or not
sub check_mime_type {
    my $file = $_[0];
    my $ft = File::Type->new();
    my $type = $ft->mime_type($file);
    if ( $type =~ /image/ and $type !~ /jpeg/ ) { &create_thumbnail($f
+ile,1); } #if image is not jpeg then convert before creating thumbnai
+l
    elsif ( $type =~ /image\/jpeg/ and &check_mtime($file) ) { &create
+_thumbnail($file); } #if image is jpeg and hasn't got a thumbnail, or
+ thumbnail is out of date compared to the source image, then create o
+ne
}

#look for files in $DIR
sub collect_files {
    if ( ! -d "$DIR/thumbs" ) { mkdir("$DIR/thumbs") || die "Can't cre
+ate $DIR/thumbs"; } #create thumbs subdir to pleace thumbnails there 
+serving as cache
    opendir(DIR, "$DIR") || die "Can't open $DIR!";
    while (defined(my $file = readdir(DIR))) {
        if ( ! -d $file ) { &check_mime_type($file); }
    }
    closedir(DIR);
}

#collect files, create thumbnails and pass list of images back to cgi 
+output
sub collect_thumbs {
    &collect_files;
    my @thumbs;
    opendir(DIR, "$DIR/thumbs") || die "Can't open $DIR/thumbs!";
    while (defined(my $file = readdir(DIR))) {
        if ( ! -d "$DIR/thumbs/$file" ) { push(@thumbs, $file); }
    }
    closedir(DIR);
    return @thumbs;
}

#cgi output
sub index {
    print header;
    print start_html(
        -title=>'Thumbnail index',
        -author=>"$author",
        );
    my @thumbs = &collect_thumbs;
    foreach (@thumbs) {
        print "<a href='$_' target='_blank'><img src='thumbs/$_'></a>\
+n";
    }
    print end_html();
}

&index;

[download]

In reply to Thumbnail autoindex by ScOut3R

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.