mirror of
https://github.com/irssi/irssi.git
synced 2026-08-10 20:33:46 +02:00
0d26146cf6
can give the level like a file handle, eg. "print CRAP 'text';". You can also give the window/server/target with $fh = $window->create_handle([level]) and $server->create_handle(target, [level]). Patch by juerd@juerd.nl git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2644 dbcabf3a-b0e7-0310-adc4-f8d773084564
29 lines
434 B
Perl
29 lines
434 B
Perl
#
|
|
# Perl interface to irssi functions.
|
|
#
|
|
|
|
package Irssi::UI;
|
|
|
|
use strict;
|
|
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
|
|
|
$VERSION = "0.9";
|
|
|
|
require Exporter;
|
|
require DynaLoader;
|
|
|
|
sub Irssi::UI::Window::create_handle {
|
|
goto &Irssi::create_window_handle;
|
|
}
|
|
|
|
@ISA = qw(Exporter DynaLoader);
|
|
@EXPORT = qw();
|
|
@EXPORT_OK = qw();
|
|
|
|
bootstrap Irssi::UI $VERSION if (!Irssi::Core::is_static());
|
|
|
|
Irssi::UI::init();
|
|
|
|
Irssi::EXPORT_ALL();
|
|
|
|
1;
|