7 our @EXPORT = qw(&sendXmpp &flushXmpp);
12 my( $to, $subject, $body ) = @_;
13 push @pending, [ $to, $subject, $body ];
17 return unless @pending;
18 open JELNET, "|$config{xmpp_pipe} > /dev/null" or die "Could not start XMPP sender\n";
20 my( $to, $subject, $body ) = @{$_};
21 $subject =~ s/&/&/g;
22 $subject =~ s/'/'/g;
23 $subject =~ s/"/"/g;
27 print JELNET "<message to='$to'><subject>$subject</subject><body>$body</body></message>";
32 checkConf( [ "xmpp_pipe" ] );