mirror of
https://github.com/irssi/irssi.git
synced 2026-08-20 09:02:13 +02:00
a5b32b70a7
perl_scripts_deinit() now destroys all dynamically loaded libraries (Irssi, Irssi::Irc, Irssi::UI too) so /UNLOAD perl should now release more memory, this also makes /unload perl, /load perl work again. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1859 dbcabf3a-b0e7-0310-adc4-f8d773084564
35 lines
851 B
Perl
35 lines
851 B
Perl
#
|
|
# Perl interface to irssi functions.
|
|
#
|
|
|
|
package Irssi;
|
|
|
|
use strict;
|
|
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
|
|
|
$VERSION = "0.8";
|
|
|
|
require Exporter;
|
|
require DynaLoader;
|
|
|
|
@ISA = qw(Exporter DynaLoader);
|
|
@EXPORT = qw(INPUT_READ INPUT_WRITE
|
|
MSGLEVEL_CRAP MSGLEVEL_MSGS MSGLEVEL_PUBLIC MSGLEVEL_NOTICES
|
|
MSGLEVEL_SNOTES MSGLEVEL_CTCPS MSGLEVEL_ACTIONS MSGLEVEL_JOINS
|
|
MSGLEVEL_PARTS MSGLEVEL_QUITS MSGLEVEL_KICKS MSGLEVEL_MODES
|
|
MSGLEVEL_TOPICS MSGLEVEL_WALLOPS MSGLEVEL_INVITES MSGLEVEL_NICKS
|
|
MSGLEVEL_DCC MSGLEVEL_DCCMSGS MSGLEVEL_CLIENTNOTICE MSGLEVEL_CLIENTCRAP
|
|
MSGLEVEL_CLIENTERROR MSGLEVEL_HILIGHT MSGLEVEL_ALL MSGLEVEL_NOHILIGHT
|
|
MSGLEVEL_NO_ACT MSGLEVEL_NEVER MSGLEVEL_LASTLOG
|
|
);
|
|
@EXPORT_OK = qw();
|
|
|
|
bootstrap Irssi $VERSION;
|
|
|
|
@Irssi::Channel::ISA = qw(Irssi::Windowitem);
|
|
@Irssi::Query::ISA = qw(Irssi::Windowitem);
|
|
|
|
Irssi::init();
|
|
|
|
1;
|
|
|