#!/usr/bin/perl -Tw -I. -I/usr/local/positive/Perl

#
# This software is copyright (c) 2001-2002 Positive Networks, Inc.  All rights reserved.
#
# This software is the proprietary and confidential property of Positive Networks, Inc.
# Possession, transmission, publication, or use of this software is prohibited except by prior written consent.
#

use strict;
use Pos::Webtop::Web::ModuleLoader;
use Pos::Webtop::Web::Client;

my $tb = Pos::Webtop::Toolbox->new();
my $db = $tb->getWebtopDbWriter();

my $cleaner = Pos::Webtop::Web::Client->new(db => $db);
#$db->do( sql=> " delete from w_web_sessions where touch < sysdate-(1/24) " );