#!/usr/bin/perl
# UCW Gallery: Extract image list from GQview collection
# (c) 2004--2012 Martin Mares <mj@ucw.cz>

use strict;
use warnings;

while (<>) {
	chomp;
	/^#/ && next;
	/^$/ && next;
	if (/^"(.*)"$/) {
		print "$1\n";
	} else {
		die "Error parsing collection: $_";
	}
}