jaytaph

namespace eval moin {
        bind pubm -|- * moin::moin
}

proc moin::moin { nick host handle chan text } {
        if {[regexp -nocase -- {(^moin|^mornin)} $text]} {
                putserv "PRIVMSG $chan :$nick moin"
        }

        if {[regexp -nocase -- {(^:\)|^:P)} $text]} {

jaytaph

<?php
/**
 * @author Mark van der Velden <mark@dynom.nl>
 */

/*
 *  Given, the following specification:
 * - part 1, 40 bits wide -- a number between 0 - 1099511627775
 * - part 2,  5 bits wide -- a number between 0 - 31
 * - part 3,  9 bits wide -- a number between 0 - 511

jaytaph

class saffire {

  // Returns saffire version (should be tuple major.minor.build)
  public method version();
	
  // Returns the git revision which was used for building this saffire version
  public method git_revision();
	
  // Returns the current run_mode: "fastcgi", "repl", "cli"
  public method run_mode();

jaytaph

package require http
 
namespace eval twitter {
        variable status_url "http://api.twitter.com/1/statuses/user_timeline/"
 
        bind pub        -|- "!twitter" twitter::tweet
}
 
proc twitter::tweet {nick uhost hand chan argv} {
        if {[string length $argv] < 1} {

jaytaph

namespace eval moin {
        bind pubm -|- * moin::moin
}

proc moin::moin { nick host handle chan text } {
        if {[regexp -nocase -- {(^moin|^mornin)} $text]} {
                putserv "PRIVMSG $chan :$nick moin"
        }
}