X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgallery.pl;h=7efd5c4209209b42e03497f7b6ae9ee29e23bad2;hp=2596b9834aafd430a012b5a34c94dab9d7286ba1;hb=c753aab96a7fc45d6d9f751e5b2cf76fc45a402b;hpb=fc80339e3c4b8d62c2138734f8b778bd714aa46b diff --git a/mkgallery.pl b/mkgallery.pl index 2596b98..7efd5c4 100755 --- a/mkgallery.pl +++ b/mkgallery.pl @@ -74,13 +74,14 @@ if ($rssfile && ! $haverssxml) { my $term = new Term::ReadLine "Edit Title"; FsObj->new(getcwd)->iterate; +if ($rssobj) { $rssobj->{'rss'}->save($rssobj->{'file'}); } sub help { print STDERR <<__END__; usage: $0 [options] --help: print help message and exit - --incpath: do not try to find .include diretory upstream, use + --incpath: do not try to find .gallery2 diretory upstream, use specified path (absolute or relavive). Use with causion. --debug: print a lot of debugging info to stdout as you run --asktitle: ask to edit album titles even if there are ".title" files @@ -134,10 +135,10 @@ sub getinc { my $depth=20; # arbitrary max depth if ($incpath) { - return $incpath."/.include"; + return $incpath."/.gallery2"; } - my $inc=".include"; + my $inc=".gallery2"; while ( ! -d $fullpath."/".$inc ) { $inc = "../".$inc; last unless ($depth-- > 0); @@ -673,8 +674,7 @@ sub img_entry { my $w=$self->{$sz}->{'dim'}->[0]; my $h=$self->{$sz}->{'dim'}->[1]; print $IND " ",a({-href=>$src, - -class=>"conceal ". - (($sz == 640)?"slideshowThumbnail":""), + -class=>"conceal", -title=>"Reduced to ".$w."x".$h}, $w."x".$h)," \n"; }