#!/usr/bin/perl
if ($ARGV[0] eq "-notext") {
shift @ARGV;
$notext=1;
} else {
$notext=0;
}
foreach $file (@ARGV){
open(MS, $file . ".htm") || die "Cant open infile $file" . ".htm $!";
$psfile = (-e $file . ".prn") ? $file . ".prn": $file . ".ps";
system("gs", "-q", "-r90", "-sDEVICE=ppmraw",
"-sOutputFile=" . $file . ".%02d.ppm",
"-dNOPAUSE", $psfile, "quit.ps");
open(OUT, '>' . $file . ".shtml") ||
die "Cant open outfile $file" . ".shtml $!";
select OUT;
print '';
print '', $file, '', "\n";
print '', "\n";
print "Luento: $file
\n
\n";
printf 'Kalvot 4 kappaletta sivulla.', $file
if -e $file . "-x4.pdf";
printf 'Kalvot 6 kappaletta sivulla.', $file
if -e $file . "-x6.pdf";
print "\n";
$count = 0;
while(){
s/]*>//gi;
s---gi;
if (m//){
if ($count == 0){
print "| ";
$count++;
} else {
$bytes += print_img($file, $count);
print " |
| ";
$count++;
}
}
print $_
if (($count > 0) && ($notext == 0));
}
$bytes += print_img($file, $count);
print " |
\n
\n";
print '', "\n";
print "\n";
close OUT;
printf STDOUT "Kuvat: %d tavua, %f kiloa, %f megaa\n", $bytes, $bytes/1024, $bytes/(1024 * 1024);
$bytes += (stat $file . ".shtml")[7];
printf STDOUT "Yhteensä: %d tavua, %f kiloa, %f megaa\n", $bytes, $bytes/1024, $bytes/(1024 * 1024);
system ("ln", "-s", $file . ".shtml", "index.shtml");
}
sub print_img {
local ($file, $count) = @_;
local ($ppm, $thumb, $img, $_);
$ppm = sprintf("%s.%02d.ppm", $file, $count);
$thumb = sprintf("t-%s.%02d.gif", $file, $count);
$img = sprintf("%s.%02d.gif", $file, $count);
print STDOUT $ppm, "=> ", $img, "\n";
system(sprintf("pnmflip -r270 %s | ppmtogif > %s",
$ppm, $img));
print STDOUT "\t=> ", $thumb, "\n";
system(sprintf("pnmscale 0.25 %s | ppmquant 16 | pnmflip -r270 | ppmtogif > %s",
$ppm, $thumb));
unlink $ppm;
print "\n" if ($notext == 0);
$width = -1; $height = -1;
if (open(INFO, sprintf("file %s|", $thumb))) {
while() {
if (m/GIF.*\D(\d+) x (\d+)/) {
$width = $1; $height = $2;
}
}
close INFO;
}
die "GEE not size" if ($width < 0 || $height < 0);
printf ' ',
$img, $thumb, $count, $width, $height;
print " | \n";
return (stat ($thumb))[7];
}