aboutsummaryrefslogtreecommitdiffstats
path: root/config-model/src/main/perl/vespa-replicate-log-stream
diff options
context:
space:
mode:
Diffstat (limited to 'config-model/src/main/perl/vespa-replicate-log-stream')
-rwxr-xr-xconfig-model/src/main/perl/vespa-replicate-log-stream38
1 files changed, 0 insertions, 38 deletions
diff --git a/config-model/src/main/perl/vespa-replicate-log-stream b/config-model/src/main/perl/vespa-replicate-log-stream
deleted file mode 100755
index 70f5786867a..00000000000
--- a/config-model/src/main/perl/vespa-replicate-log-stream
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/env perl
-# Copyright 2017 Yahoo Holdings. Licensed under the terms of the Apache 2.0 license. See LICENSE in the project root.
-
-use IO::Socket::IP;
-
-my $cmd = "vespa-model-inspect -t logtp -t telnet -t replicator filter:ports";
-
-print STDERR "Looking for logserver port ($cmd)\n";
-
-my $vmiout = `$cmd`;
-my $host = "";
-my $port = "";
-
-if ( $vmiout =~ m{^\s*tcp/(\S+):(\d+)\s*$/} ) {
- $host = $1;
- $port = $2;
- print STDERR "following logserver at '${host}:${port}'\n";
-} else {
- die "FAILED finding host and port for logserver replication\n";
-}
-
-my $net = new IO::Socket::IP(PeerAddr => "${host}:${port}",
- Proto => 'tcp',
- Timeout => 10);
-if (!$net) {
- die "could not contact logserver at ${host}:${port}\n";
-}
-
-print $net "use system.all\r\n";
-
-while (<$net>) {
- if (m/^#/) {
- print STDERR;
- } else {
- print;
- }
-}
-exit(0);