no more pSReply

[infobot.git] / src / IRC / Irc.pl

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index cf2d86b59c32329aea0beadd4870393688512d2b..6a419674f428ea4ac32cd60c431180cb562a06dd 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -19,8 +19,8 @@ use vars qw($notcount $nottime $notsize $msgcount $msgtime $msgsize
 use vars qw($b_blue $ob);
 use vars qw(@ircServers);
 
-use open ':utf8';
-use open ':std';
+#use open ':utf8';
+#use open ':std';
 
 $nickserv      = 0;
 my $maxlinelen = 400;
@@ -175,7 +175,9 @@ sub irc {
 
     $ircstats{'Server'}        = "$server:$port";
 
-    $irc->addfh(STDIN, \&on_stdin, "r");
+    # works? needs to actually do something
+    # should likely listen on a tcp port instead
+    #$irc->addfh(STDIN, \&on_stdin, "r");
 
     &status("starting main loop");
 
@@ -397,10 +399,6 @@ sub performAddressedReply {
     &performReply(@_);
 }
 
-sub pSReply {
-    &performStrictReply(@_);
-}
-
 # Usage: &performStrictReply($reply);
 sub performStrictReply {
     my ($reply) = @_;
@@ -469,7 +467,7 @@ sub joinchan {
        &status("joining $b_blue$chan $key$ob");
 
        return if ($conn->join($chan, $key));
-       return if (&validChan($chan));
+       return if (&validChan($chan));
 
        &DEBUG("joinchan: join failed. trying connect!");
        &clearIRCVars();