#! /usr/bin/perl

###############################################################################
#                                                                              
#                                 cleanup.pl                                    
#                                 ---------                                    
#                     INDIW-2000 / Futurama-prosjektet                         
#                                                                              
###############################################################################
#                                                                              
# This file is not ©                             
#                                                                              
###############################################################################
#
# Cleans up old entries in the database
#                                                                              
###############################################################################

use FindBin;
use lib "$FindBin::Bin/mylib";
  # Get the directory where the program resides, and add the 'mylib'           #
  # subdirectory to the library lookup table.                                  #

#use CGI;
use DBI;
 
require "lib/misc.pl";

$diff= ( 3 * 30 * 24 * 60 * 60 );  #  three months in seconds
$limit = time - $diff;

print the_time($time),"  ",the_time($limit),"\n";	

#my $sth = $dbh->prepare("SELECT uid FROM alternativ
#                           WHERE hid=? AND partnr=?
#                           AND altnr=?")
#        or return 0;
#  $sth -> execute( $story_id, $partnr, $alt_no );