contrib/rpbatch.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl
#
# Copyright (C) 2003 Shawn Betts
# Execute a sequence of commands read from stdin.

$ratpoison = $ENV{RATPOISON} or die "Where is ratpoison?";

while (<>) {
    chomp;
    push @accum, "-c";
    push @accum, "\"$_\"";
}

system ("$ratpoison @accum");