#!/usr/bin/perl
# sbot.cgi is now a class, created to begin to add some support
# for asynchronous messaging. 
# 
# so now, basically, the right helper methods for the class handle all the work

use strict;
use lib '/home/paul/sbot';
use sbot;

my $debug=0;
if($ARGV[0] =~ /-d/){
 shift;
 if($ARGV[0] =~ /[0-9]/){
  $debug+=$ARGV[0];
  shift;
 }else{
  $debug++;
 }
}
#my $bot = sbot->new( web=>1 );
my $bot = sbot->new( 'debug' => $debug );
$bot->have_conversation();