#!/usr/bin/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 {
  my $line = <>;
  chomp $line;
  open(OUT, ">>/home/awwaiid/projects/perl/vladimirbot/logs/log.txt");
  print OUT "awwaiid\@email: $line\n";
  print OUT "Vladimir: ";
  print OUT VladimirBot::process('awwaiid@email', $line);
  print OUT "\n";
}