Tidy up the software index file.

[sw-tools] / perl / sw-tidy.in

diff --git a/perl/sw-tidy.in b/perl/sw-tidy.in
new file mode 100644 (file)
index 0000000..dac7fa5
--- /dev/null
+++ b/perl/sw-tidy.in
@@ -0,0 +1,52 @@
+#! @PERL@
+# -*-perl-*-
+#
+# $Id: sw-tidy.in,v 1.1 1999/07/30 18:48:17 mdw Exp $
+#
+# Tidy the `sw' index file
+#
+# (c) 1999 EBI
+#
+
+#----- Licensing notice -----------------------------------------------------
+#
+# This file is part of sw-tools.
+#
+# sw-tools is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# sw-tools is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with sw-tools; if not, write to the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+#----- Revision history -----------------------------------------------------
+#
+# $Log: sw-tidy.in,v $
+# Revision 1.1  1999/07/30 18:48:17  mdw
+# Tidy up the software index file.
+#
+
+use lib "@pkgdatadir@";
+use SWConfig;
+use SW;
+
+($me = $0) =~ s:^.*/::;
+
+sub barf($) {
+  my ($err) = @_;
+  print STDERR "$me: $err\n";
+  exit(1);
+}
+
+$sw = SW->new();
+$sw->write() or barf("couldn't write new index file: $!");
+exit(0);
+
+#----- That's all, folks ----------------------------------------------------