Changeset af9de56 for perl/modules


Ignore:
Timestamp:
Feb 20, 2009, 6:30:39 PM (16 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
33db995
Parents:
21882032
Message:
Add an `irc-quote' command to send raw IRC commands.

This should help as a temporary workaround for the lack of /mode and
some other commands.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

    r330c55a raf9de56  
    121121    BarnOwl::new_command('irc-stats'      => mk_irc_command(\&cmd_stats));
    122122    BarnOwl::new_command('irc-topic'      => mk_irc_command(\&cmd_topic, REQUIRE_CHANNEL));
     123    BarnOwl::new_command('irc-quote'      => mk_irc_command(\&cmd_quote));
    123124}
    124125
    … …  
    313314}
    314315
     316sub cmd_quote {
     317    my $cmd = shift;
     318    my $conn = shift;
     319    $conn->conn->sl(join(" ", @_));
     320}
     321
    315322################################################################################
    316323########################### Utilities/Helpers ##################################
Note: See TracChangeset for help on using the changeset viewer.