From: Victor Wagner Date: Fri, 24 Feb 2006 18:46:17 +0000 (+0000) Subject: Initial release X-Git-Url: http://wagner.pp.ru/gitweb/?a=commitdiff_plain;h=c32d5aaa4789c7b9c91277e27ec90a8944e6852d;p=oss%2Fimgwww.git Initial release --- c32d5aaa4789c7b9c91277e27ec90a8944e6852d diff --git a/archivedir b/archivedir new file mode 100755 index 0000000..54b48d9 --- /dev/null +++ b/archivedir @@ -0,0 +1,55 @@ +#!/usr/bin/tclsh + +array set monName { +01 "ñÎ×ÁÒÑ" +02 "æÅ×ÒÁÌÑ" +03 "íÁÒÔÁ" +04 "áÐÒÅÌÑ" +05 "íÁÑ" +06 "éÀÎÑ" +07 "éÀÌÑ" +08 "á×ÇÕÓÔÁ" +09 "óÅÎÔÑÂÒÑ" +10 "ïËÔÑÂÒÑ" +11 "îÏÑÂÒÑ" +12 "äÅËÁÂÒÑ" +} + +proc year_header {year items} { + return "

$year ÇÏÄ

$year ÇÏÄ

$day $monName($month) $place

$day $monName($month)
$place

áÒÈÉ× ÆÏÔÏÇÒÁÆÉÊ

] + +=head1 DESCRIPTION + +Generates two hidden subdirs under current directory - B<.thumbs> and +B<.inlines> with smaller copies of the images and generates +B<index.html> with small (fit in the square 150x150) copies of the +images as table. + +Each image is a link to generated HTML page with bigger (fit into +600x600) copy of the image and (unless supressed) link to full sized +image. If image contain JPEG or GIF comment, comment is inserted into +HTML. + +=head1 OPTIONS + +=over 4 + +=item B<-f> + + Don't use filenames as headers of individual picture page + +=item B<-l> + +Supress link to fullsized images + +=item B<-n> + +If specified, all links in B<index.html> would have target="_blank" +attribute. + +=item B<-t> I<string> + +Title. If none given, directory name is used. + +=back + +=cut + +use vars qw($opt_t $opt_n $opt_l $opt_f); +getopts("t:lnf"); + +my $dir = $opt_t || (split ("/",cwd()))[-1]; +mkdir THUMBDIR if (! -d THUMBDIR); +mkdir INLINEDIR if (! -d INLINEDIR); +my $i=0; +open OUT,">index.html"; +print OUT "<HTML><HEAD><TITLE>$dir

$dir

back

$comment

$dir:$imgfile

$dir

$imgfile

Time: $info->{'DateTime'}

$comment

+",($prev?"<<":" "), +"

\n", +,($next?">>":" "), +"

$imgfile ($w x $h)

{.preview.next invoke} +bind .info.comment {.preview.prev invoke} +bind .info.comment {eval [wm protocol . WM_DELETE_WINDOW]} +option add [winfo class .].imageSize 400 widgetDefault + +if {[llength $argv]>1} { + puts stderr "Usage $argv0 [image-file]" +} +set filelist [lsort -dictionary [concat [glob -nocomplain *.jpg] [glob -nocomplain *.JPG]]] + +set filecount [llength $filelist] +if {!$filecount} { + puts stderr "No image files in the current directory!" + exit 1 +} +if {[llength $argv]} { + set current [lsearch $filelist [lindex $argv 0]] + if {$current == -1} { + puts stderr "File $argv not found in the current dir\n" + exit 1 + } +} else { + set current 0 +} +set_file $current