Tfe

Old stuff/Perl/backup_irc/Ircvar.pm

#!/usr/bin/perl -w

package	Ircvar;
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw($bot_nick $nick $texte $action $server $port $bot_nick register_irc $chan join_chan $fullpower $fichiers_a_charger $bigfont_char);


our ($bot_nick,$nick,$texte,$action,$server,$port,$fullpower);

print "Config:\n";
do "config" or die("Config Error: $!");



#$server="localhost";
#$port=6667;
#$bot_nick="tfe_b";
#$chan = "#perl";
#$fullpower=" tfe ciel "; # Importance de l espace au debut et a la fin ...


sub register_irc
{
	print STDOUT "**** Logging\n";
	print "USER tfe_b 0 0 :un_bot\n";
	print "NICK $bot_nick\n";
}


sub join_chan
{
	print STDOUT "**** Joining\n";
	print "JOIN $chan\n";
}


return 1;