#!/usr/bin/perl
use strict;
opendir (DIR, $ARGV[0]) or
exit "Can't open given directory $ARGV[0]: !$\n";
my (@thefiles) = grep /.*\.jpg$/, readdir DIR;
closedir DIR;
my (@files) = sort (@thefiles);
my (@fname2);
my ($prev) = "00-00"; my ($next) = "";
my ($file); my (@fname) = ();
my ($i, $j); $i = -1, $j = 0;
for $file (@files) {
next if $file =~ /^INDEX/;
$i++; $j = $i;
$next = $files[$j+1];
@fname = split (/\./, $file);
@fname2 = split (/\./, $next);
$next = $fname2[0];
open (FILE, ">" . $ARGV[0] . "/show/" . $fname[0] . ".shtml")
or exit "Can't write to " . $ARGV[0] . "/show/" . $fname[0] . ".shtml : $!\n";
print FILE "\n";
print FILE "\n";
print FILE "\n";
print FILE "Empty\n";
print FILE "\n";
print FILE "\n";
print FILE "\n";
print FILE "\n";
print FILE "\n";
print FILE "" if $prev ne "00-00";
print FILE "Prev";
print FILE "\n" if $prev ne "00-00";
print FILE " - ";
print FILE "" if $next ne "";
print FILE "Next";
print FILE "\n" if $next ne "";
print FILE "
\n";
print FILE "![\"\"](\"../mediums/")
\n";
print FILE "<\!--\#include virtual=\"../txt/" . $fname[0] . ".txt\" --><\/CENTER><\/FONT>\n";
print FILE "
\n";
print FILE "\n";
print FILE "" if $prev ne "00-00";
print FILE "Prev";
print FILE "\n" if $prev ne "00-00";
print FILE " - ";
print FILE "" if $next ne "";
print FILE "Next";
print FILE "\n" if $next ne "";
print FILE "\n";
print FILE "\n";
print FILE "\n";
close FILE;
$prev = $fname[0];
}