#!/usr/bin/perl
#------------------------------------------------------------------------------
# Copyright (C) 2001 Thomax Kaulmann
#
# 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, 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., 675 Mass Ave, Cambridge, MA 02139, USA.




use lib '/opt/oma/oma-bin';
use DBI;
use OMA;
use PARSE;

if($ARGV[0]) {
	OMA::index_node($ARGV[0]);
}
else {
	$db = OMA::opendb();
	$st = $db->prepare("select * from node where node <> 'Homepage'");
	$st->execute();
	while(@row=$st->fetchrow()) {
		OMA::index_node($row[0]);
		print "#";
	}
	$st->finish();
	print "\n";
}
print "done.\n";

