41 lines
1.6 KiB
Text
41 lines
1.6 KiB
Text
|
#!/usr/bin/perl -W
|
||
|
|
|
||
|
|
use Cwd;
|
||
|
|
use Expect;
|
||
|
|
|
||
|
|
my $wrkinst = shift;
|
||
|
|
my $prefix = $wrkinst . shift;
|
||
|
|
my $varwww = $wrkinst . '/var/www';
|
||
|
|
my $phpbin = shift;
|
||
|
|
my $spawn = new Expect;
|
||
|
|
|
||
|
|
$spawn = Expect->spawn("$phpbin go-pear.phar");
|
||
|
|
$spawn->log_file("/tmp/go-pear.log.$$");
|
||
|
|
|
||
|
|
my $ret = $spawn->expect(
|
||
|
|
10,
|
||
|
|
'-re', "^1-12, 'all' or Enter", sub { $spawn->send("all\n"); }
|
||
|
|
);
|
||
|
|
|
||
|
|
$ret = $spawn->expect(
|
||
|
|
10,
|
||
|
|
'-re', "^Installation base", sub { $spawn->send("$prefix\n"); exp_continue; },
|
||
|
|
'-re', "^Temporary dir", sub { $spawn->send(cwd."/tmp\n"); exp_continue; },
|
||
|
|
'-re', "^Binaries dir", sub { $spawn->send("\n"); exp_continue; },
|
||
|
|
'-re', "^PHP code dir", sub { $spawn->send("$varwww/pear/lib\n"); exp_continue; },
|
||
|
|
'-re', "^Documentation dir", sub { $spawn->send("$prefix/share/doc/pear\n"); exp_continue; },
|
||
|
|
'-re', "^Data dir", sub { $spawn->send("$varwww/pear/data\n"); exp_continue; },
|
||
|
|
'-re', "^User-modifiable config", sub { $spawn->send("$varwww/pear/cfg\n"); exp_continue; },
|
||
|
|
'-re', "^Public Web Files dir", sub { $spawn->send("$varwww/pear/htdocs\n"); exp_continue; },
|
||
|
|
'-re', "^System manual pages", sub { $spawn->send("$prefix/man\n"); exp_continue; },
|
||
|
|
'-re', "^Tests dir", sub { $spawn->send("$varwww/pear/tests\n"); exp_continue; },
|
||
|
|
'-re', "^Name of config", sub { $spawn->send(cwd."/tmp.pearrc\n"); exp_continue; },
|
||
|
|
'-re', "^1-12, 'all' or Enter", sub { $spawn->send("\n"); exp_continue; },
|
||
|
|
'-re', "^Would you like to alter php.ini", sub { $spawn->send("n\n"); exp_continue; },
|
||
|
|
'-re', "^Press Enter to continue:", sub { $spawn->send("\n"); }
|
||
|
|
);
|
||
|
|
|
||
|
|
print "\n...done...\n";
|
||
|
|
|
||
|
|
exit;
|