#!/usr/bin/env perl

use strict;
use lib '/home/awwaiid/projects/perl/vladimirbot';
use VladimirBot;

sub interactive
{
  my $line;
  print "\nawwaiid\@cmd: ";
  while($line = <STDIN>)
  {
    chomp($line);
    if($line eq 'reload')
    {
      print (eval('use VladimirBot'));
      print "Reloaded.";
    } else {
      print VladimirBot::process('awwaiid@cmd', $line);
    }
  print "\nawwaiid\@cmd: ";
  }
}

if($ARGV[0] eq 'interactive')
{
  interactive();
} else {
  print VladimirBot::process('awwaiid@cmd', "@ARGV");
  print "\n";
}