1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
#!/usr/bin/perl
#
# Chain multiple redirectors together.
# - Cameron Simpson <cs@zip.com.au>
#
use strict vars;
use IO::File;
use IPC::Open2;
die "Usage: $0 redirectors...\n" if ! @ARGV;
## Note that the ZAP_CHAINING variable is obsolete these days.
## - Cameron Simpson <cs@zip.com.au> 17jul2001
##
##$::Chaining = ( length $ENV{ZAP_CHAINING}
## ? $ENV{ZAP_CHAINING} eq 'FULL'
## ? 2
## : 1
## : 0
## );
$::Chaining = 0;
my @sub=();
my $nsubs=0;
for my $sub (@ARGV)
{
++$nsubs;
my $rd = "RD$nsubs";
my $wr = "WR$nsubs";
my $pid = open2($rd, $wr, $sub);
die "$0: can't open2($sub): $!\n" if ! defined $pid;
autoflush $wr 1;
push(@sub,[$sub,$pid,$rd,$wr]);
}
autoflush STDOUT 1;
my @words;
my $o_;
my $redir;
my($sub,$pid,$rd,$wr);
while (defined($_=<STDIN>))
{ chomp;
@words = split;
$o_ = $_;
# pass through every redirector
for my $s (@sub)
{ ($sub,$pid,$rd,$wr)=@$s;
print $wr $_, "\n";
$redir=<$rd>;
die "$0: unexpected EOF from [$sub]" if ! defined $redir;
chomp($redir);
if (length($redir))
# redirected
{ my @nwords=split(/\s+/,$redir);
if (@nwords == 1)
# plain URL
{ $words[0]=$nwords[0];
}
else
# full redirector input line
{
if (@nwords != 4)
{ warn "$0: @words -> @nwords";
}
@words=@nwords;
}
$_="@words";
}
}
if ($::Chaining == 0)
# pure redirector
{ print STDOUT (($_ eq $o_) ? '' : $words[0]), "\n";
}
elsif ($::Chaining == 1)
# print new URL;
{ print STDOUT $words[0], "\n";
}
else
{ print STDOUT $_, "\n";
}
}
exit 0;
|
