Update of /cvsroot/fink/fink/perlmod/Fink/Notify
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv14627/perlmod/Fink/Notify
Modified Files:
Growl.pm QuickSilver.pm Say.pm Syslog.pm
Log Message:
notification fixups; allow multiple notifiers
Index: QuickSilver.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Notify/QuickSilver.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- QuickSilver.pm 17 May 2006 21:13:26 -0000 1.8
+++ QuickSilver.pm 8 Dec 2006 12:35:15 -0000 1.9
@@ -22,6 +22,8 @@
#
package Fink::Notify::QuickSilver;
+use warnings;
+use strict;
use Fink::Notify;
use Fink::Config qw($basepath);
Index: Growl.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Notify/Growl.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- Growl.pm 3 Jan 2006 20:14:47 -0000 1.10
+++ Growl.pm 8 Dec 2006 12:35:15 -0000 1.11
@@ -22,6 +22,8 @@
#
package Fink::Notify::Growl;
+use warnings;
+use strict;
use Fink::Notify;
use Fink::Config qw($basepath);
@@ -52,6 +54,7 @@
}
sub initialized {
+ my $self = shift;
if (@_) {
$self->{_initialized} = shift;
}
@@ -62,6 +65,7 @@
my $self = shift;
my %args = @_;
+ my @events = $self->events;
if (not $self->initialized()) {
Mac::Growl::RegisterNotifications("Fink", [EMAIL PROTECTED],
[EMAIL PROTECTED]);
$self->initialized(1);
Index: Say.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Notify/Say.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Say.pm 17 May 2006 21:13:26 -0000 1.8
+++ Say.pm 8 Dec 2006 12:35:15 -0000 1.9
@@ -22,6 +22,8 @@
#
package Fink::Notify::Say;
+use warnings;
+use strict;
use Fink::Notify;
use Fink::Config qw($basepath);
Index: Syslog.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Notify/Syslog.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Syslog.pm 3 Jan 2006 20:14:47 -0000 1.8
+++ Syslog.pm 8 Dec 2006 12:35:15 -0000 1.9
@@ -22,6 +22,8 @@
#
package Fink::Notify::Syslog;
+use warnings;
+use strict;
use Fink::Notify;
use Fink::Config qw($basepath);
@@ -58,7 +60,7 @@
my $errors = 0;
for my $line (split(/\s*\n+/, $args{'description'})) {
- my $return = system($command, '-t', 'Fink',
$args{'description'});
+ my $return = system($command, '-t', 'Fink', $line);
if ($return >> 8) {
$errors++;
}
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
