You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@steve.apache.org by gs...@apache.org on 2022/03/22 08:06:58 UTC

[steve] branch trunk updated: toss unused perl script

This is an automated email from the ASF dual-hosted git repository.

gstein pushed a commit to branch trunk
in repository https://gitbox.apache.org/repos/asf/steve.git


The following commit(s) were added to refs/heads/trunk by this push:
     new f3bf261  toss unused perl script
f3bf261 is described below

commit f3bf26193d941c848e4b89b6fd98593a828c19fe
Author: Greg Stein <gs...@gmail.com>
AuthorDate: Mon Mar 21 21:39:31 2022 -0500

    toss unused perl script
---
 args_to_stdin.pl | 42 ------------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/args_to_stdin.pl b/args_to_stdin.pl
deleted file mode 100755
index 4ef8f39..0000000
--- a/args_to_stdin.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl -nal
-
-#####
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements.  See the NOTICE file distributed with
-# this work for additional information regarding copyright ownership.
-# The ASF licenses this file to You under the Apache License, Version 2.0
-# (the "License"); you may not use this file except in compliance with
-# the License.  You may obtain a copy of the License at
-#
-#     http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-#####
-
-# args_to_stdin.pl - prevents vote scripts from exposing
-#                    their arguments to `ps` listings by
-#                    passing them to stdin instead.
-#
-# Usage: args_to_stdin.pl <vote.txt
-
-use warnings;
-
-@F or next;
-
-while ($F[-1] =~ /\\$/) {
-    chop $F[-1];
-    pop @F if $F[-1] eq "";
-    defined($_ = <>) or last;
-    s/^\s+//;
-    push @F, split /\s+/, $_;
-}
-
-my $e = shift @F;
-die "Can't find executable $e" unless -x $e;
-open my $p, "|$e" or die "can't start $e: $!";
-print $p $_ for @F;
-close $p or warn "can't close $e: $?";