02-15-2008
Quote:
Originally Posted by
sb008
If I would be your boss I would fire you on the stop when I would find out you are trying this.
There is a good reason why your company blocked these ports.
Actually I work in IS, just I haven't figured out how to to this with a shell and I know you can, there is no1 to catch me, besides myself and I'm not rattin myself out lol....
I can do this with my home PC as the middleman but I want to figure out how to do it with a shell...
7 More Discussions You Might Find Interesting
1. Post Here to Contact Site Administrators and Moderators
hi there everybody..
i just noticed that there is no forum dedicated to internet relay chat (IRC)... although there are several threads focused on this, i think it is quite better if there is a forum where questions on IRC are tackled head-on in a purely academic level...
anyway, this is just... (4 Replies)
Discussion started by: cable21
4 Replies
2. Shell Programming and Scripting
plz help me, i need to configure my firewall with using shell script, i am using unix fedora 9. thanks ppl. replys would be great. (1 Reply)
Discussion started by: king_jon85
1 Replies
3. Shell Programming and Scripting
I am starting to code a few ideas of customization and tasks improvements on the office UNIX machine. My first script (see below) only contains ALIAS commands. But for some reason, when I execute it, the alias are not executed. I suspect it is because of the "#!/bin/ksh" not being recognized or... (4 Replies)
Discussion started by: Browser_ice
4 Replies
4. AIX
I know that IBM's official stance is that NIM does not work on etherchannel environment, but has anyone able to get around it?
I'm working on a p5-590 LPAR system, and the NIM master and clients are all on the same frame.
Any help is appreciated. (1 Reply)
Discussion started by: pdtak
1 Replies
5. Cybersecurity
HI all,
I have setup IPTables firewall/Router and my home network, with address space 192.168.10.XXX
Form my private network hosts, i can ping the gateway ( 192.168.10.101 ) , but the reverse is not happening.
Can someone help me as of what i need to do, so that i can ping my private... (1 Reply)
Discussion started by: chandan_m
1 Replies
6. Shell Programming and Scripting
Hi,
We have Oracle Connection parameters set up in file name "TESTDB" at location /abc/etc.When I try to run my shell script it does not connect to Oracle database. Please let me know how "TESTDB" file can be called inside script.
####################### Setting the directories... (2 Replies)
Discussion started by: sandy162
2 Replies
7. SCO
does anyone know of a port of irc like irssi for unixware?
thanks (3 Replies)
Discussion started by: deus-programmer
3 Replies
LEARN ABOUT DEBIAN
poe::component::irc::cookbook::basicbot
POE::Component::IRC::Cookbook::BasicBot(3pm) User Contributed Perl Documentation POE::Component::IRC::Cookbook::BasicBot(3pm)
NAME
POE::Component::IRC::Cookbook::BasicBot - A basic IRC bot
SYNOPSIS
This a very basic bot that connects to IRC, joins a few channels, and announces its arrival.
DESCRIPTION
We start off quite simply:
#!/usr/bin/env perl
use strict;
use warnings;
Then we "use" the stuff we're going to...well, use. "::State" is a subclass which keeps track of state information related to channels and
nicknames. It is needed by the "AutoJoin" plugin which takes care of keeping us on our channels.
use POE;
use POE::Component::IRC::State;
use POE::Component::IRC::Plugin::AutoJoin;
Next up is our POE session. We create it and list our event handlers. We then start the POE kernel.
POE::Session->create(
package_states => [
main => [ qw(_start irc_join) ]
]
);
$poe_kernel->run();
Now all we have to do is write the handlers for "_start" and "irc_join". In "_start", we create our IRC component, add an "AutoJoin"
plugin, register for the "irc_join" event, and connect to the IRC server.
sub _start {
my $irc = POE::Component::IRC::State->spawn(
Nick => 'basic_bot',
Server => 'irc.freenode.net',
);
$irc->plugin_add('AutoJoin', POE::Component::IRC::Plugin::AutoJoin->new(
Channels => [ '#test_channel1', '#test_channel2' ]
));
$irc->yield(register => 'join');
$irc->yield('connect');
}
Now comes our "irc_join" event handler. We send a message to the channel once we've joined it.
sub irc_join {
my $nick = (split /!/, $_[ARG0])[0];
my $channel = $_[ARG1];
my $irc = $_[SENDER]->get_heap();
# only send the message if we were the one joining
if ($nick eq $irc->nick_name()) {
$irc->yield(privmsg => $channel, 'Hi everybody!');
}
}
That's it!
AUTHOR
Hinrik Oern Sigur`sson, hinrik.sig@gmail.com
perl v5.14.2 2011-12-07 POE::Component::IRC::Cookbook::BasicBot(3pm)