#!/usr/bin/perl

# New imgconvert! Now in Perl, and based on Imlib2
# Get Imlib2::Perl @ http://freshmeat.net/projects/imlib2perl/

# This is a hacked up compatibility version at the request of Trae McCombs
# (http://occy.net/). The changes makes it so I don't have to convert my 
# image viewing stuff either. (Garrett)

# Copyright (c) 1999 - 2002 Garrett LeSage (http://linuxart.com/)
# This script is freely distributable, modifyable, yadda-yadda under the
# artistic license. http://www.perl.com/language/misc/Artistic.html

use File::Basename;
use File::Copy;
use Imlib2;

# Widths requested; first is thumb size, second is default click size.
# These are later sorted for the resolution list display
@imgsizes = ( 100, 640, 800, 1024 );

# Default extension
$ext = ".jpg";

# Wrap at this number
$numwrap = "4";

# Site Title
$stitle = "LinuxArt.com";

# Default page title prefix
$ptitle = "My pictures: ";

# Default page title 
$title = "";

# Loop per image, and scale each to the respective imgsizes

$path = ".";
opendir DIR, $path;
@dlist = readdir DIR;
@flist = grep { !-d "$path/$_" } @dlist;    #no directories
@blist = grep { !-T "$path/$_" } @flist;    #no text files, only binaries
closedir DIR;

# Extract the files that mach the extension only
@imglist = grep { ".*$ext\$" } @blist;

# Test for scaled subdir, and create if not found.
	#if ( !-d "$path/scaled/" ) {
	#print "Scaled directory not found -- creating dir...\n";
	#mkdir("$path/scaled/");
	#}
	
# Change title to dir name if title is not set
if ( $title eq "" ) {
    $title = ( split "/", `pwd` )[-1];
}

foreach $imagename (@imglist) {

    # Load the image and then set the working context to the loaded image
    $image = Imlib2::load_image($imagename);
    Imlib2::set_context($image);

    # Grab the image's width and height info
    $width  = Imlib2::get_width();
    $height = Imlib2::get_height();

    $basename = basename( $imagename, $ext );
    push ( @bnamelist, $basename );

    # Debugging info
    print "\n$basename: ${width}x${height} \n";

    foreach $size (@imgsizes) {

				if ($size == $imgsizes[0]) {
					$revisedsize="thumb";
				} else {
					$revisedsize=$size;
				}

        if ( !-e "$path/$revisedsize/" ) {
					mkdir("$path/$revisedsize/");
				}
        
				if ( !-e "$path/$revisedsize/$basename.$revisedsize$ext" ) {

            # Ensure that we're basing the stuff from the original image
            Imlib2::set_context($image);

            # Set the width to that which is requested, and the height 
            # is a respective ratio
            $width2  = $size;
            $height2 = $height / $width * $width2;

            # Debugging info
            print "${width2}x${height2} ";

            # The actual rescaling Imlib2 call
            $foo =
              Imlib2::create_cropped_scaled_image( 0, 0, $width, $height,
              $width2, $height2 );

            # Change context to the result, and save it.
            Imlib2::set_context($foo);
            Imlib2::save_image("$path/$revisedsize/$basename.$revisedsize$ext");
            Imlib2::free_image();
        }
        else {
            print "$size -- ";
            print "Exists! Skipped.\n";
        }

    }

		if ( !-e "$path/$width/" ) {
					mkdir("$path/$width/");
		}
		symlink("../$imagename","$path/$width/$basename.$width$ext");

    Imlib2::set_context($image);
    Imlib2::free_image();

    push ( @HTML,
"<a href=\"$path/$imgsizes[1]/$basename.$imgsizes[1]$ext\"><img src=\"$path/thumb/$basename.thumb$ext\" alt=\"$basename\"></a>"
    );

}

foreach $htmlsnip ( reverse(@HTML) ) {

    $curpic = $bnamelist[ $#imglist - $i ];

    $i++;

    if ( $i % $numwrap == 1 ) {
        $linestart = '<div align="center"><table cellpadding="5"><tr>' . "\n";
        if ( $i > 1 ) {
            $linestop = '</tr></table></div>' . "\n";
        }
    }
    else {
        $linestart = '';
        $linestop  = '';
    }

    # Start the sizelist with a clean slade
    @sizelist = "";
		# Sort by number, and return the available sizes as links
    foreach $mysize ( sort { $a <=> $b } @imgsizes ) {
        if ( $mysize != @imgsizes[0] ) {
            @picstat = stat("$mysize/$curpic.$mysize$ext");
            $fsize   = int( @picstat[7] / 1024 ) . "k";
            $rsize   = int( $mysize * $height / $width );
            push ( @sizelist,
"<a href=\"$mysize/$curpic.$mysize$ext\">${mysize}x${rsize}</a>&nbsp;($fsize)"
            );
        }
    }
		# Don't forget the original size! (a special case)
            @picstat = stat("$curpic$ext");
            $fsize   = int( @picstat[7] / 1024 ) . "k";
		push ( @sizelist,
"<a href=\"$width/$curpic.$width$ext\">${width}x${height}</a>&nbsp;($fsize)");

# Format the HTML snip
    $htmlsnip =
      "<strong>$i</strong>:&nbsp;$curpic<br>" . $htmlsnip
      . join ( "<br>", @sizelist );

    $page .= "$linestop$linestart<td>$htmlsnip</td>\n";

}
$page .= "</tr></table></div>\n\n";

# Page header
$phead =
	'<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'
  . "<html><head><title>$stitle - $ptitle$title</title>\n" 
	. '<meta http-equiv="Content-Type" content="text/html; charset=utf-8">'
	. "<style type=\"text/css\">\n"
  . "body{background-color:#fff;color:#000;}\n"
  . "a{color:#55a}\n"
  . "a:visited{color:#bbe}\n"
  . "a:hover{color:#f00}\n"
  . "td{font-size:small;text-align:center;font-family:sans-serif;}\n"
  . "</style>\n" . "</head><body>\n";
$phead .=
	"<h1 align=\"center\">$ptitle$title</h1>"
	. "<p>";
# Page footer
$pfoot = "</body></html>";

open( OUTFILE, ">index.html" );
print OUTFILE $phead . $page . $pfoot;
close(OUTFILE);

print "\nDone!\n\n";