diff options
| author | Thorsten Leemhuis | 2014-11-25 19:34:33 +0100 |
|---|---|---|
| committer | Serge van Ginderachter | 2014-11-25 21:30:05 +0100 |
| commit | c0c61225213f664d4840fac08288a260a6e1f843 (patch) | |
| tree | 7a6c11374edbbdeb404edf053079ed14a3ab444f /scripts | |
| parent | fd702973e5512d22a63dccf9246dc67ec3365899 (diff) | |
| download | scripts.irssi.org-c0c61225213f664d4840fac08288a260a6e1f843.tar.bz2 | |
fnotify.pl: import v0.0.3
Source: http://www.leemhuis.info/files/fnotify/fnotify
Signed-off-by: Serge van Ginderachter <serge@vanginderachter.be>
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/fnotify.pl | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/scripts/fnotify.pl b/scripts/fnotify.pl new file mode 100644 index 0000000..983a262 --- /dev/null +++ b/scripts/fnotify.pl @@ -0,0 +1,68 @@ +# todo: grap topic changes + +use strict; +use vars qw($VERSION %IRSSI); + +use Irssi; +$VERSION = '0.0.3'; +%IRSSI = ( + authors => 'Thorsten Leemhuis', + contact => 'fedora@leemhuis.info', + name => 'fnotify', + description => 'Write a notification to a file that shows who is talking to you in which channel.', + url => 'http://www.leemhuis.info/files/fnotify/', + license => 'GNU General Public License', + changed => '$Date: 2007-01-13 12:00:00 +0100 (Sat, 13 Jan 2007) $' +); + +#-------------------------------------------------------------------- +# In parts based on knotify.pl 0.1.1 by Hugo Haas +# http://larve.net/people/hugo/2005/01/knotify.pl +# which is based on osd.pl 0.3.3 by Jeroen Coekaerts, Koenraad Heijlen +# http://www.irssi.org/scripts/scripts/osd.pl +# +# Other parts based on notify.pl from Luke Macken +# http://fedora.feedjack.org/user/918/ +# +#-------------------------------------------------------------------- + +#-------------------------------------------------------------------- +# Private message parsing +#-------------------------------------------------------------------- + +sub priv_msg { + my ($server,$msg,$nick,$address,$target) = @_; + filewrite($nick." " .$msg ); +} + +#-------------------------------------------------------------------- +# Printing hilight's +#-------------------------------------------------------------------- + +sub hilight { + my ($dest, $text, $stripped) = @_; + if ($dest->{level} & MSGLEVEL_HILIGHT) { + filewrite($dest->{target}. " " .$stripped ); + } +} + +#-------------------------------------------------------------------- +# The actual printing +#-------------------------------------------------------------------- + +sub filewrite { + my ($text) = @_; + # FIXME: there is probably a better way to get the irssi-dir... + open(FILE,">>$ENV{HOME}/.irssi/fnotify"); + print FILE $text . "\n"; + close (FILE); +} + +#-------------------------------------------------------------------- +# Irssi::signal_add_last / Irssi::command_bind +#-------------------------------------------------------------------- + +Irssi::signal_add_last("message private", "priv_msg"); +Irssi::signal_add_last("print text", "hilight"); + +#- end |