apps/irssi/src/perl/common/Irssi.pm

   1 #
   2 # Perl interface to irssi functions.
   3 #
   4
   5 package Irssi;
   6
   7 use strict;
   8 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
   9
  10 sub VERSION {
  11   my $version = $_[1];
  12   die "This script requires irssi version $version or later"
  13     if ($version > version());
  14 }
  15
  16 sub EXPORT_ALL () {
  17   no strict 'refs';
  18   @EXPORT_OK = grep { /[a-z]/ && defined *{$_}{CODE} } keys %Irssi::;
  19 }
  20
  21 $VERSION = "0.9";
  22
  23 require Exporter;
  24 require DynaLoader;
  25
  26 @ISA = qw(Exporter DynaLoader);
  27 @EXPORT = qw(INPUT_READ INPUT_WRITE
  28         MSGLEVEL_CRAP MSGLEVEL_MSGS MSGLEVEL_PUBLIC MSGLEVEL_NOTICES
  29         MSGLEVEL_SNOTES MSGLEVEL_CTCPS MSGLEVEL_ACTIONS MSGLEVEL_JOINS
  30         MSGLEVEL_PARTS MSGLEVEL_QUITS MSGLEVEL_KICKS MSGLEVEL_MODES
  31         MSGLEVEL_TOPICS MSGLEVEL_WALLOPS MSGLEVEL_INVITES MSGLEVEL_NICKS
  32         MSGLEVEL_DCC MSGLEVEL_DCCMSGS MSGLEVEL_CLIENTNOTICE MSGLEVEL_CLIENTCRAP
  33         MSGLEVEL_CLIENTERROR MSGLEVEL_HILIGHT MSGLEVEL_ALL MSGLEVEL_NOHILIGHT
  34         MSGLEVEL_NO_ACT MSGLEVEL_NEVER MSGLEVEL_LASTLOG
  35 );
  36 @EXPORT_OK = qw();
  37
  38 bootstrap Irssi $VERSION if (!Irssi::Core::is_static());
  39
  40 @Irssi::Channel::ISA = qw(Irssi::Windowitem);
  41 @Irssi::Query::ISA = qw(Irssi::Windowitem);
  42
  43 Irssi::init();
  44
  45 Irssi::EXPORT_ALL();
  46
  47 1;
  48