#!/usr/bin/perl -w # i-scream libstatgrab # http://www.i-scream.org # Copyright (C) 2000-2004 i-scream # # This program 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. # # This program 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 this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # $Id: statgrab-make-mrtg-index.in,v 1.7 2004/04/06 14:53:00 tdb Exp $ use strict; use Getopt::Long; my $progname = "statgrab-make-mrtg-config"; my $package_version = '@PACKAGE_VERSION@'; my $package_bugreport = '@PACKAGE_BUGREPORT@'; my $help_text = < \$pagetitle, 'help' => \my $help) or die $help_text; if ($help) { print "$help_text"; exit 0; } my %pages = (); while (<>) { /^Title\[([^\]]+)\]: (.*)$/ or next; $pages{$2} = $1; } print < $pagetitle

$pagetitle

EOF foreach my $title (sort keys %pages) { my $page = $pages{$title}; print "

$title

\n"; print "

$\"$page\"$

\n"; } print <Generated by libstatgrab version $package_version.

EOF } main();