#!/usr/bin/perl -w
-# Copyright © 2002-2013 Jamie Zawinski <jwz@jwz.org>
+# Copyright © 2002-2014 Jamie Zawinski <jwz@jwz.org>
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
use Text::Wrap;
my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.4 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
+my ($version) = ('$Revision: 1.7 $' =~ m/\s(\d[.\d]+)\s/s);
my $verbose = 0;
sub xml2man($) {
my ($exe) = @_;
+ $exe =~ s/\.xml$//s;
my $cfgdir = (-d "config" ? "config" : "../config");
my $xml = "$cfgdir/$exe.xml";
my $man = "$exe.man";
} elsif (m@^<_description>\s*(.*)\s*</_description>@) {
$desc = $1;
+ } elsif (m@^<xscreensaver-updater@) {
+ } elsif (m@^<video\b@) {
} else {
print STDERR "$progname: ERROR: UNKNOWN: $_\n";
}