#!/usr/bin/perl
use strict;
use TextIndex;
use PageFetch;

if($#ARGV == -1)
{
  exit(-1);
}

# if(1)
{
$SIG{CHLD} = 'IGNORE';
my $pid = fork;
if($pid)
{
  exit(0);
}
defined($pid) or exit(-2);

sleep 1+int(rand(5));
}

InitTextIndex('textindexdb');

my $page = join(' ', @ARGV);
IndexText($page . ' ' . FetchPageText('data', $page), $page);