0d60dade |
1 | #----- Licensing notice ----------------------------------------------------- |
2 | # |
3 | # This file is part of sw-tools. |
4 | # |
5 | # sw-tools is free software; you can redistribute it and/or modify |
6 | # it under the terms of the GNU General Public License as published by |
7 | # the Free Software Foundation; either version 2 of the License, or |
8 | # (at your option) any later version. |
9 | # |
10 | # sw-tools is distributed in the hope that it will be useful, |
11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 | # GNU General Public License for more details. |
14 | # |
15 | # You should have received a copy of the GNU General Public License |
16 | # along with sw-tools; if not, write to the Free Software Foundation, |
17 | # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
18 | |
0d60dade |
19 | use lib "@pkgdatadir@"; |
20 | use SWConfig; |
21 | use SW; |
22 | |
23 | ($me = $0) =~ s:^.*/::; |
24 | |
25 | sub barf($) { |
26 | my ($err) = @_; |
27 | print STDERR "$me: $err\n"; |
28 | exit(1); |
29 | } |
30 | |
31 | $sw = SW->new(); |
32 | $sw->write() or barf("couldn't write new index file: $!"); |
33 | exit(0); |
34 | |
35 | #----- That's all, folks ---------------------------------------------------- |