archive support

1 files changed, 25 insertions, 3 deletions

diff --git a/bin/gen-xhtml-thumbnails b/bin/gen-xhtml-thumbnails
index d93ac3e..c037b16 100755
--- a/bin/gen-xhtml-thumbnails
+++ b/bin/gen-xhtml-thumbnails
@@ -3,12 +3,17 @@
 # License: WTFPL <http://sam.zoy.org/wtfpl>
 use strict;
 use warnings;
-use Image::Imlib2;
-use Getopt::Long;
+
 use constant {
 	DEFAULT_FILEMODE => oct(644),
 };
 
+use Archive::Tar;
+use Cwd;
+use Getopt::Long;
+use Image::Imlib2;
+
+
 my $directory = '.';
 my $thumbdir  = "$directory/.thumbs";
 my $indexfile = "$directory/index.xhtml";
@@ -22,6 +27,8 @@ my $css_source;
 my ($dx, $dy);
 my @files;
 my $number = 0;
+my $create_archive = 0;
+my $tar = Archive::Tar->new();
 local $| = 1;
 
 sub print_progress {
@@ -43,6 +50,7 @@ GetOptions(
 	'n|show-name' => \$thumb_show_names,
 	't|title=s'   => \$title,
 	'q|quality=i' => \$thumb_quality,
+	'x|archive'   => \$create_archive,
 );
 
 if (@ARGV > 0) {
@@ -81,9 +89,16 @@ foreach my $file (readdir($dirhandle)) {
 
 closedir($dirhandle);
 
+@files = sort { lc($a) cmp lc($b) } @files;
+
+if ($create_archive) {
+	print "Adding files to tar archive\n";
+	$tar->add_files(@files);
+}
+
 print "Generating thumbnails [ - cached | + generated ]\n";
 
-foreach my $file (sort { lc($a) cmp lc($b) } @files) {
+foreach my $file (@files) {
 	my $thumb;
 
 	if (defined($css_source)) {
@@ -151,6 +166,13 @@ foreach my $file (sort { lc($a) cmp lc($b) } @files) {
 }
 print "\n";
 
+if ($create_archive) {
+	print "Writing tar archive to disk\n";
+	$tar->write('images.tar', undef, (split(qr{/}, getcwd))[-1]);
+
+	print $index "</div><div style=\"clear: left;\"><a href=\"images.tar\">archive</a>\n";
+}
+
 print $index <<'EOD';
 </div></body>
 </html>