#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
$desc =~ s/^.* version \d[^\n]*\n//s;
$desc =~ s/^From the XScreenSaver.*\n//m;
$desc =~ s@^http://www\.jwz\.org/xscreensaver.*\n@@m;
$desc =~ s/^.* version \d[^\n]*\n//s;
$desc =~ s/^From the XScreenSaver.*\n//m;
$desc =~ s@^http://www\.jwz\.org/xscreensaver.*\n@@m;
$desc =~ s/^\n+//s;
error ("$filename: description contains bad characters")
if ($desc =~ m/([^\t\n -~]|[<>])/);
error ("$filename: can't extract authors")
$desc =~ s/^\n+//s;
error ("$filename: description contains bad characters")
if ($desc =~ m/([^\t\n -~]|[<>])/);
error ("$filename: can't extract authors")
my $cyear = 1900 + ((localtime())[5]);
$year = "$cyear" unless $year;
if ($year && ! ($year =~ m/$cyear/)) {
my $cyear = 1900 + ((localtime())[5]);
$year = "$cyear" unless $year;
if ($year && ! ($year =~ m/$cyear/)) {
$authors = "$1, $2, and $curator";
} else {
$authors .= " and $curator";
$authors = "$1, $2, and $curator";
} else {
$authors .= " and $curator";