From 2fc398950857994dc2947e450203acb8b3713427 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Thu, 11 May 2023 16:10:16 +0200
Subject: [PATCH] added more commands for standalone mode
---
modules/util/Net/fanout.pm | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/modules/util/Net/fanout.pm b/modules/util/Net/fanout.pm
index 6ba2595..57d0e4b 100644
--- a/modules/util/Net/fanout.pm
+++ b/modules/util/Net/fanout.pm
@@ -249,14 +249,16 @@ sub main
print join(' ', scalar localtime(time()), $channel, $msg), "\n";
}
- if ($stdin->can_read(0.5))
+ if ($stdin->can_read(0.2))
{
my $l= <STDIN>; chop($l);
my ($cmd, $channel, $msg)= split(' ', $l, 3);
- if ($cmd eq 'announce')
- {
- $fanout->announce($channel, $msg);
- }
+ if ($cmd eq 'announce') { $fanout->announce($channel, $msg); }
+ elsif ($cmd eq 'ping') { $fanout->send("ping\n"); }
+ elsif ($cmd eq 'info') { $fanout->send("info\n"); }
+ elsif ($cmd eq 'subscribe') { $fanout->subscribe($channel); }
+ elsif ($cmd eq 'unsubscribe') { $fanout->unsubscribe($channel); }
+ else { print "unknown command '$cmd'\n"; }
}
}
--
GitLab