#!/usr/bin/perl


# rawirc sub.. called like &rawirc('PRIVMSG #room101 :hi');

sub rawirc {
$out = $_[0];
$first = "$out\n\r";
syswrite(SH, $first, length($first));
	
}


# Privmsg sub.. called like &privmsg('#room101','hi');

sub privmsg {
$nick = $_[0];
$msg = $_[1];
$first = "PRIVMSG $nick :$msg\n\r";
syswrite(SH, $first, length($first));        

}


# notice sub.. called like &notice('user', 'hi');

sub notice {
$nick = $_[0];
$msg = $_[1];
$first = "NOTICE $nick :$msg\n\r";
syswrite(SH, $first, length($first));
}


1;