#!/usr/bin/perl
##################

use strict;

$| = 1;
my $bindir = '/usr/bin';
opendir(my $dh, $bindir) || die "can't open $bindir";
my @phps = grep { /^php5?\d+-cli$/ && -x "$bindir/$_" } readdir($dh);
closedir $dh;
print "Content-type:text/plain\n\n";
unless (@phps){ print "no php interpreters found"; exit; }
for my $php (sort @phps){
        my $modules = `$bindir/$php -q -m`;
        if (!$modules){
                print "/$php ERROR";
        } else {
                print "/$php " . scalar split /\n/ for $modules;
                }
        }
print '/';
exit 0;