Update of /cvsroot/fink/fink/perlmod/Fink/Notify
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv13164/perlmod/Fink/Notify
Modified Files:
QuickSilver.pm Say.pm
Log Message:
fix quicksilver and clean up say
Index: QuickSilver.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Notify/QuickSilver.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- QuickSilver.pm 3 Jan 2006 20:14:47 -0000 1.7
+++ QuickSilver.pm 17 May 2006 21:13:26 -0000 1.8
@@ -57,11 +57,9 @@
my $text = $args{'description'};
$text =~ s/\"/\\\"/gs;
- $text = sprintf('tell application "QuickSilver" to show notification
"%s" text "%s" image "com.apple.Terminal"', $title, $text);
+ $text = sprintf('tell application "QuickSilver" to show notification
"%s" image name "com.apple.Terminal" text "%s"', $title, $text);
- open(COMMAND, "| $command") or return undef;
- print COMMAND $text;
- close(COMMAND) or return undef;
+ system($command, "-e", $text) == 0 or return undef;
return 1;
}
Index: Say.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Notify/Say.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Say.pm 3 Jan 2006 20:14:47 -0000 1.7
+++ Say.pm 17 May 2006 21:13:26 -0000 1.8
@@ -56,9 +56,7 @@
$text = sprintf('say "%s"', $text);
- open(COMMAND, "| $command") or return undef;
- print COMMAND $text;
- close(COMMAND) or return undef;
+ system($command, "-e", $text) == 0 or return undef;
return 1;
}
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
