Re: Images display

Here is a simple little script to give you some ideas. It dosn't do exactly what you want, but it will make thumbnails, and some html in frames to display some images. Just run it in a directory of jpgs, then open the index.html

For your purposes, you will want to have a form on your first page to get the number of pictures wanted, then just print out the next page with as many links to thumbnails(or full photos) as requested. Anyways, read ovid's tutorial, then look at the code below, and experiment a bit...you will get the idea.

I am creating "static" pages here, but after reading Ovid's tutorial, you should be able to generate "dynamic pages".

#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;
use Cwd;

#watch the width of your picture names 
#they can widen the table cells if too long 
umask 0022;
my $image = Image::Magick->new;
my $count = 0;
my $dir = cwd;

open(HEADER,">header.html");
print HEADER<<End_Header;
<html>
<BODY Text="#99CCFF"  BGCOLOR="#000000">
<center><h1>Thumbnails for $dir</h1></center>
</body>
</html>
End_Header
close HEADER;

open(INDEX,">index.html");
print INDEX<<End_Index;
<html>
<head>
<TITLE>Thumbnails</TITLE>
<link rel="icon" href="favicon.ico">
</head>
<frameset rows="70,*" border="0">
 <frame name="header" src="header.html" marginwidth="0" marginheight="
+0" scrolling="off" frameborder="0">
  <frameset cols="130,*" border="0">
    <frame name="left" src="left.html" marginwidth="5" marginheight="5
+" scrolling="yes" frameborder="5">
    <frame name="main" src="main.html" marginwidth="5" marginheight="5
+" scrolling="yes" frameborder="5">
  </frameset>
</frameset>
</html>
End_Index
close INDEX;

open(MAIN,">main.html");
print MAIN<<End_Main;
<html>
<BODY TEXT="#FFCCCC" BGCOLOR="#000000">
<center><h1>Click thumbnails at left to view</h1></center>
</body>
</html>
End_Main
close MAIN;


open(OUT,">left.html");
print OUT<<End_Header;
<html>
<body>
<table align=left bgcolor=9999CC border=2 cellpadding=2 cellspacing=2>
<tr>
End_Header

my @pics= <*.jpg>;

   foreach my $pic (@pics){
      $count++;
      my ($picbasename) = $pic =~ /^(.*).jpg$/;
      my $ok;
      $ok = $image->Read($pic) and warn ($ok);
      my ($w,$h)= $image->Get('columns','height');
      my $thumb = $picbasename . '-t.jpg';
      $ok = $image->Scale(geometry => '100x100')and warn ($ok);
      $ok = $image->Write($thumb)and warn ($ok);
      my ($tw,$th)= $image->Get('columns','height');
      my $picoptions= $w.'x'.$h.'x'.$tw.'x'.$th;
      print "$pic\t$picoptions\n";
      undef @$image;

print OUT<<EOTR;
<td align=center><a href="$pic" target=main  HEIGHT=$h WIDTH=$w alt="[
+$pic]"><img alt= [$pic-thumbnail] src=$thumb height=$th width=$tw></a
+><br>$pic</td>
EOTR
if($count == 1){print OUT "</tr><tr>"; $count = 0};
}

print OUT<<EOHTML;
</tr>
</table>
</body>
</html>
EOHTML
close OUT;
[download]

I'm not really a human, but I play one on earth. flash japh

Comment on Re: Images display Download Code

Replies are listed 'Best First'.
Re^2: Images display by Anonymous Monk on Feb 11, 2005 at 21:11 UTC
I think I know what do you want, you can implement this but this seems to be the starting point. #!/perl/bin/perl use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser/; use strict; use CGI; my $got_img=param('myimage'); my $count; print header(); print "test<br>"; print "<form action=check.pl\n"; print "<br><input type=checkbox name=myimage value=1>1<br>\n"; print "<input type=checkbox name=myimage value=2>2<br>\n"; print "<input type=checkbox name=myimage value=3>3<br>\n"; print "<input type=checkbox name=myimage value=4>4<br>\n"; print "<input type=checkbox name=myimage value=5>5<br>\n"; print "<input type=submit value=submit><br>\n"; print " $got_img <br>"; for ($count=0; $count<$got_img; $count++) { print "<b>$got_img</b> \n"; } [download] Good luck!	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Images display
by Anonymous Monk on Feb 11, 2005 at 21:11 UTC

#!/perl/bin/perl

use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;

use strict;
use CGI;


my $got_img=param('myimage');
my $count;

print header();

print "test<br>";

print "<form action=check.pl\n";

print "<br><input type=checkbox name=myimage value=1>1<br>\n";
print "<input type=checkbox name=myimage value=2>2<br>\n";
print "<input type=checkbox name=myimage value=3>3<br>\n";
print "<input type=checkbox name=myimage value=4>4<br>\n";
print "<input type=checkbox name=myimage value=5>5<br>\n";

print "<input type=submit value=submit><br>\n";

print "** $got_img **<br>";

for ($count=0; $count<$got_img; $count++)
{
 print "<b>$got_img</b> \n";
}
[download]

[reply]
[d/l]