Skip to content

Instantly share code, notes, and snippets.

@sunnyone
sunnyone / AutoFetch.pm
Created May 30, 2011 15:00
Tiarra DCC auto getter
# -----------------------------------------------------------------------------
# $Id$
# -----------------------------------------------------------------------------
# Auto fetch DCC SEND
# -----------------------------------------------------------------------------
package CTCP::DCC::AutoFetch;
use strict;
use warnings;
use base qw(Module);
use Multicast;
@sunnyone
sunnyone / fetch_dcc.rb
Created May 30, 2011 15:02
Tiarra DCC auto getter (child)
#!/usr/bin/ruby -Ku
require 'socket'
require 'logger'
LOG_PATH = '/var/log/fetch_dcc.log'
DCC_DIR = '/mnt/dcc'
(nick, address, port, size, filename) = ARGV
port = port.to_i