aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Updates to perl documentation. Moved Rawlog->{lines} to Rawlog::get_lines()

Browse Source 
instead.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1601 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-06-30 09:49:59 +00:00 committed by cras
parent bf0e9f163a
commit f1ecfca8a7
3 changed files with 28 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
docs/perl.txt
View File

@ -485,6 +485,7 @@ Server->{}
usermode_away - Are we marked as away? 1|0
away_reason - Away reason message
banned - Were we banned from this server? 1|0
lag - Current lag to server in milliseconds
Server
Connect::connect()
@ -601,8 +602,8 @@ Windowitem->{}
name - Name of the item
createtime - Time the window item was created
new_data - 0=no new data, 1=text, 2=msg, 3=highlighted text
last_color - Color of the last highlighted text
data_level - 0=no new data, 1=text, 2=msg, 3=highlighted text
hilight_color - Color of the last highlighted text
*** Channels
@ -613,7 +614,9 @@ Channel->{}
(..contains all the same data as Windowitem above..)
topic - Chanenl topic
topic - Channel topic
topic_by - Nick who set the topic
topic_time - Timestamp when the topic was set
no_modes - Channel is modeless
mode - Channel mode
@ -747,6 +750,10 @@ Server::masks_match(masks, nick, address)
*** Rawlog
Rawlog->{}
logging - The rawlog is being written to file currently
nlines - Number of lines in rawlog
Rawlog
rawlog_create()
Create a new rawlog.
@ -754,6 +761,9 @@ rawlog_create()
Rawlog::destroy()
Destroy the rawlog.
Rawlog::get_lines()
Returns all lines in rawlog.
rawlog_set_size(lines)
Set the default rawlog size for new rawlogs.
@ -780,6 +790,7 @@ Rawlog::redirect(str)
Log->{}
fname - Log file name
real_fname - The actual opened log file (after %d.%m.Y etc. are expanded)
opened - Log file is open
level - Log only these levels
last - Timestamp when last message was written
@ -833,8 +844,8 @@ Ignore->{}
pattern - Ignore text pattern
level - Ignore level
except_level - Ignore exception levels
exception - This is an exception ignore
regexp - Regexp pattern matching
fullword - Pattern matches only full words

9
src/perl/common/Rawlog.xs
View File

@ -11,6 +11,15 @@ rawlog_create()
MODULE = Irssi PACKAGE = Irssi::Rawlog PREFIX = rawlog_
#*******************************
void rawlog_get_lines(rawlog)
Irssi::Rawlog rawlog
PREINIT:
GSList *tmp;
PPCODE:
for (tmp = rawlog->lines; tmp != NULL; tmp = tmp->next) {
XPUSHs(sv_2mortal(new_pv(tmp->data)));
}
void
rawlog_destroy(rawlog)
Irssi::Rawlog rawlog

15
src/perl/perl-common.c
View File

@ -294,7 +294,7 @@ void perl_nick_fill_hash(HV *hv, NICK_REC *nick)
chat_type = (char *) chat_protocol_find_id(nick->chat_type)->name;
hv_store(hv, "type", 4, new_pv(type), 0);
hv_store(hv, "last_check", 10, newSViv(nick->last_check), 0);
hv_store(hv, "chat_type", 9, new_pv(chat_type), 0);
hv_store(hv, "nick", 4, new_pv(nick->nick), 0);
hv_store(hv, "host", 4, new_pv(nick->host), 0);
@ -304,10 +304,12 @@ void perl_nick_fill_hash(HV *hv, NICK_REC *nick)
hv_store(hv, "gone", 4, newSViv(nick->gone), 0);
hv_store(hv, "serverop", 8, newSViv(nick->serverop), 0);
hv_store(hv, "send_massjoin", 13, newSViv(nick->send_massjoin), 0);
hv_store(hv, "op", 2, newSViv(nick->op), 0);
hv_store(hv, "halfop", 6, newSViv(nick->halfop), 0);
hv_store(hv, "voice", 5, newSViv(nick->voice), 0);
hv_store(hv, "last_check", 10, newSViv(nick->last_check), 0);
hv_store(hv, "send_massjoin", 13, newSViv(nick->send_massjoin), 0);
}
static void perl_command_fill_hash(HV *hv, COMMAND_REC *cmd)
@ -367,17 +369,8 @@ static void perl_log_item_fill_hash(HV *hv, LOG_ITEM_REC *item)
static void perl_rawlog_fill_hash(HV *hv, RAWLOG_REC *rawlog)
{
AV *av;
GSList *tmp;
hv_store(hv, "logging", 7, newSViv(rawlog->logging), 0);
hv_store(hv, "nlines", 6, newSViv(rawlog->nlines), 0);
av = newAV();
for (tmp = rawlog->lines; tmp != NULL; tmp = tmp->next) {
av_push(av, new_pv(tmp->data));
}
hv_store(hv, "lines", 5, newRV_noinc((SV*)av), 0);
}
static void perl_reconnect_fill_hash(HV *hv, RECONNECT_REC *reconnect)