From: Martin Mares Date: Wed, 26 Dec 2012 18:31:06 +0000 (+0100) Subject: Gallery2: Rename auxiliary script X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=515adf113b16d84f39250a4dc011d11e702eeed0;p=gallery.git Gallery2: Rename auxiliary script --- diff --git a/gal2/gal-cat-gqview b/gal2/gal-cat-gqview deleted file mode 100755 index 138af5a..0000000 --- a/gal2/gal-cat-gqview +++ /dev/null @@ -1,17 +0,0 @@ -#!/usr/bin/perl -# UCW Gallery: Extract image list from GQview collection -# (c) 2004--2012 Martin Mares - -use strict; -use warnings; - -while (<>) { - chomp; - /^#/ && next; - /^$/ && next; - if (/^"(.*)"$/) { - print "$1\n"; - } else { - die "Error parsing collection: $_"; - } -} diff --git a/gal2/gal-from-gqview b/gal2/gal-from-gqview new file mode 100755 index 0000000..138af5a --- /dev/null +++ b/gal2/gal-from-gqview @@ -0,0 +1,17 @@ +#!/usr/bin/perl +# UCW Gallery: Extract image list from GQview collection +# (c) 2004--2012 Martin Mares + +use strict; +use warnings; + +while (<>) { + chomp; + /^#/ && next; + /^$/ && next; + if (/^"(.*)"$/) { + print "$1\n"; + } else { + die "Error parsing collection: $_"; + } +}