#!/usr/bin/perl

use Socket;

require "./params.pl";
require "./connect.pl";
require "./dialog.pl";
require "./message.pl";

# Server address, fairly self-explanitory. PLEASE CHANGE!
$server = $Server;

$inl=shift;
if ( $inl )
{
   $LangIn = $inl;
}
$outl=shift;
if ( $outl )
{
   $LangOut = $outl;
}
$Botnick = $LangIn."2".$LangOut;
print "Irc13n : translating from : $LangIn to : $LangOut\n";

# Default channels for the bot to join
# Add more in the same format
$chans[0] = $Channel;

# quit message.. also fairly obvious
$quitmsg = '.......o';

#### Don't Change anything after this point unless you know
#### What you're doing.

$SIG{'INT'} = 'shutdown';

&connect;
&poll;