diff options
author | Yorhel <git@yorhel.nl> | 2019-12-30 09:49:13 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2019-12-30 09:49:13 +0100 |
commit | d79c982ee876502db2e1a12752667c6a198c2ddc (patch) | |
tree | ccd4a4e72e5b0d3dd412bed6aee58044e93893f0 /util/vndb-dev-server.pl | |
parent | e146ed7bda12d369532e485ca0c2e3d823811854 (diff) |
Actually, let's get rid of v3 now that it doesn't work anymore anyway
Diffstat (limited to 'util/vndb-dev-server.pl')
-rwxr-xr-x | util/vndb-dev-server.pl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/util/vndb-dev-server.pl b/util/vndb-dev-server.pl index d1d051a8..a7571e10 100755 --- a/util/vndb-dev-server.pl +++ b/util/vndb-dev-server.pl @@ -15,8 +15,6 @@ use Cwd 'abs_path'; my $listen_port = $ENV{TUWF_HTTP_SERVER_PORT} || 3000; $ENV{TUWF_HTTP_SERVER_PORT} = $listen_port+1; -my $script = $ARGV[0] && $ARGV[0] eq '3' ? 'vndb3.pl' : 'vndb.pl'; - my($pid, $prog, $killed); sub prog_start { @@ -30,7 +28,7 @@ sub prog_start { } print $d; }; - $prog = run_cmd "$ROOT/util/$script", + $prog = run_cmd "$ROOT/util/vndb.pl", '$$' => \$pid, '>' => $output, '2>' => $output; @@ -104,7 +102,6 @@ sub checkmod { chdir $ROOT; $check->($_) for (qw{ util/vndb.pl - util/vndb3.pl data/conf.pl }); @@ -152,6 +149,6 @@ while(1) { my $prog_conn = AE::cv; tcp_connect '127.0.0.1', $ENV{TUWF_HTTP_SERVER_PORT}, sub { $prog_conn->send(shift); }; - my $prog_fh = $prog_conn->recv || die "Unable to connect to $script? $!"; + my $prog_fh = $prog_conn->recv || die "Unable to connect to vndb.pl? $!"; pipe_fhs($serv_fh, $prog_fh); } |