Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
SOAPsh.bat	3.35 KB	-rwxrwxrwx
SOAPsh.pl	2.75 KB	-rw-rw-rw-
bdf2gdfont.bat	5.26 KB	-rwxrwxrwx
bdf2gdfont.pl	4.75 KB	-rw-rw-rw-
chartex	5.67 KB	-rw-rw-rw-
chartex.bat	6.47 KB	-rwxrwxrwx
config_data	7.2 KB	-rw-rw-rw-
config_data.bat	7.73 KB	-rwxrwxrwx
corelist	14.63 KB	-rw-rw-rw-
corelist.bat	15.95 KB	-rwxrwxrwx
cpan	8.06 KB	-rw-rw-rw-
cpan-mirrors	4.18 KB	-rw-rw-rw-
cpan-mirrors.bat	5.1 KB	-rwxrwxrwx
cpan-outdated	8.85 KB	-rw-rw-rw-
cpan-outdated.bat	9.67 KB	-rwxrwxrwx
cpan.bat	9.16 KB	-rwxrwxrwx
cpan2dist	21.22 KB	-rw-rw-rw-
cpan2dist.bat	22.39 KB	-rwxrwxrwx
cpandb	6.6 KB	-rw-rw-rw-
cpandb.bat	7.37 KB	-rwxrwxrwx
cpanel_json_xs	9.75 KB	-rw-rw-rw-
cpanel_json_xs.bat	10.58 KB	-rwxrwxrwx
cpanm	295.67 KB	-rw-rw-rw-
cpanm.bat	297.23 KB	-rwxrwxrwx
cpanp	3.22 KB	-rw-rw-rw-
cpanp-run-perl	459 B	-rw-rw-rw-
cpanp-run-perl.bat	990 B	-rwxrwxrwx
cpanp.bat	3.84 KB	-rwxrwxrwx
crc32	1.01 KB	-rw-rw-rw-
crc32.bat	1.57 KB	-rwxrwxrwx
dbicadmin	7 KB	-rw-rw-rw-
dbicadmin.bat	7.87 KB	-rwxrwxrwx
dbilogstrip	1.39 KB	-rw-rw-rw-
dbilogstrip.bat	1.89 KB	-rwxrwxrwx
dbiprof	6.31 KB	-rw-rw-rw-
dbiprof.bat	6.82 KB	-rwxrwxrwx
dbiproxy	5.44 KB	-rw-rw-rw-
dbiproxy.bat	5.95 KB	-rwxrwxrwx
enc2xs	40.68 KB	-rw-rw-rw-
enc2xs.bat	42.87 KB	-rwxrwxrwx
encguess	2.9 KB	-rw-rw-rw-
encguess.bat	3.8 KB	-rwxrwxrwx
exe_update.bat	4.71 KB	-rwxrwxrwx
exe_update.pl	4.05 KB	-rw-rw-rw-
exetype.bat	3.53 KB	-rwxrwxrwx
extract_vba	2.98 KB	-rw-rw-rw-
extract_vba.bat	3.62 KB	-rwxrwxrwx
factor.bat	3.77 KB	-rwxrwxrwx
factor.pl	3.16 KB	-rw-rw-rw-
findrule	3.24 KB	-rw-rw-rw-
findrule.bat	3.88 KB	-rwxrwxrwx
h2ph.bat	30.27 KB	-rwxrwxrwx
h2xs.bat	62.43 KB	-rwxrwxrwx
htmltree	1.28 KB	-rw-rw-rw-
htmltree.bat	1.81 KB	-rwxrwxrwx
hypnotoad	1.03 KB	-rw-rw-rw-
hypnotoad.bat	1.58 KB	-rwxrwxrwx
instmodsh	4.09 KB	-rw-rw-rw-
instmodsh.bat	5.03 KB	-rwxrwxrwx
json_pp	4.77 KB	-rw-rw-rw-
json_pp.bat	5.78 KB	-rwxrwxrwx
json_xs	6.84 KB	-rw-rw-rw-
json_xs.bat	7.6 KB	-rwxrwxrwx
libgcc_s_seh-1.dll	74.5 KB	-rw-rw-rw-
libnetcfg.bat	16.88 KB	-rwxrwxrwx
libstdc++-6.dll	1.36 MB	-rw-rw-rw-
libwinpthread-1.dll	51 KB	-rw-rw-rw-
llw32helper.bat	4.8 KB	-rwxrwxrwx
llw32helper.pl	4.13 KB	-rw-rw-rw-
lwp-download	10.04 KB	-rw-rw-rw-
lwp-download.bat	10.88 KB	-rwxrwxrwx
lwp-dump	2.64 KB	-rw-rw-rw-
lwp-dump.bat	3.26 KB	-rwxrwxrwx
lwp-mirror	2.35 KB	-rw-rw-rw-
lwp-mirror.bat	2.96 KB	-rwxrwxrwx
lwp-request	15.81 KB	-rw-rw-rw-
lwp-request.bat	16.88 KB	-rwxrwxrwx
mech-dump	4.74 KB	-rw-rw-rw-
mech-dump.bat	5.44 KB	-rwxrwxrwx
minicpan	5.36 KB	-rw-rw-rw-
minicpan.bat	6.05 KB	-rwxrwxrwx
module-version	2.06 KB	-rw-rw-rw-
module-version.bat	2.65 KB	-rwxrwxrwx
mojo	408 B	-rw-rw-rw-
mojo.bat	953 B	-rwxrwxrwx
moose-outdated	427 B	-rw-rw-rw-
moose-outdated.bat	977 B	-rwxrwxrwx
morbo	2.15 KB	-rw-rw-rw-
morbo.bat	2.72 KB	-rwxrwxrwx
nssm_32.exe	288 KB	-rwxrwxrwx
nssm_64.exe	323.5 KB	-rwxrwxrwx
package-stash-conflicts	1.02 KB	-rw-rw-rw-
package-stash-conflicts.bat	1.59 KB	-rwxrwxrwx
parinstallppd	3.35 KB	-rw-rw-rw-
parinstallppd.bat	3.99 KB	-rwxrwxrwx
perl.exe	39 KB	-rwxrwxrwx
perl5.32.0.exe	39 KB	-rwxrwxrwx
perl532.dll	3.26 MB	-rw-rw-rw-
perlbug.bat	46.8 KB	-rwxrwxrwx
perldoc.bat	1016 B	-rwxrwxrwx
perlglob.bat	1.95 KB	-rwxrwxrwx
perlglob.exe	17 KB	-rwxrwxrwx
perlivp.bat	11.72 KB	-rwxrwxrwx
perlthanks.bat	46.8 KB	-rwxrwxrwx
perltidy	154.37 KB	-rw-rw-rw-
perltidy.bat	158.88 KB	-rwxrwxrwx
pgplet	10.37 KB	-rw-rw-rw-
pgplet.bat	11.22 KB	-rwxrwxrwx
piconv	8.07 KB	-rw-rw-rw-
piconv.bat	9.13 KB	-rwxrwxrwx
pkg-config	46.96 KB	-rw-rw-rw-
pkg-config.bat	49.22 KB	-rwxrwxrwx
pl2bat.bat	11.49 KB	-rwxrwxrwx
pl2bat.pl	10.4 KB	-rw-rw-rw-
pl2pm.bat	5.56 KB	-rwxrwxrwx
pler	540 B	-rw-rw-rw-
pler.bat	1.07 KB	-rwxrwxrwx
pm-uninstall	820 B	-rw-rw-rw-
pm-uninstall.bat	1.28 KB	-rwxrwxrwx
pod2html.bat	5.03 KB	-rwxrwxrwx
pod2latex	10.39 KB	-rw-rw-rw-
pod2latex.bat	10.92 KB	-rwxrwxrwx
pod2man.bat	15.42 KB	-rwxrwxrwx
pod2text.bat	11.29 KB	-rwxrwxrwx
pod2usage	4.16 KB	-rw-rw-rw-
pod2usage.bat	4.91 KB	-rwxrwxrwx
podchecker.bat	4.45 KB	-rwxrwxrwx
podselect	2.56 KB	-rw-rw-rw-
podselect.bat	3.07 KB	-rwxrwxrwx
ppd2par	4.64 KB	-rw-rw-rw-
ppd2par.bat	5.32 KB	-rwxrwxrwx
ppm.bat	35.53 KB	-rwxrwxrwx
ppm.pl	33.99 KB	-rw-rw-rw-
primes.bat	21.45 KB	-rwxrwxrwx
primes.pl	20.34 KB	-rw-rw-rw-
prove.bat	14.07 KB	-rwxrwxrwx
ptar	3.38 KB	-rw-rw-rw-
ptar.bat	4.28 KB	-rwxrwxrwx
ptardiff	2.48 KB	-rw-rw-rw-
ptardiff.bat	3.35 KB	-rwxrwxrwx
ptargrep	4.19 KB	-rw-rw-rw-
ptargrep.bat	5.14 KB	-rwxrwxrwx
runperl.bat	2.72 KB	-rwxrwxrwx
search.bat	55.83 KB	-rwxrwxrwx
shasum.bat	10.48 KB	-rwxrwxrwx
splain.bat	20.43 KB	-rwxrwxrwx
streamzip	5.45 KB	-rw-rw-rw-
streamzip.bat	6.42 KB	-rwxrwxrwx
stubmaker.bat	4.01 KB	-rwxrwxrwx
stubmaker.pl	3.35 KB	-rw-rw-rw-
test-yaml	1017 B	-rw-rw-rw-
test-yaml.bat	1.56 KB	-rwxrwxrwx
tpage	8.85 KB	-rw-rw-rw-
tpage.bat	9.64 KB	-rwxrwxrwx
ttree	38.21 KB	-rw-rw-rw-
ttree.bat	39.9 KB	-rwxrwxrwx
use-devel-checklib	2.7 KB	-rw-rw-rw-
use-devel-checklib.bat	3.31 KB	-rwxrwxrwx
whirlpoolsum	4.93 KB	-rw-rw-rw-
whirlpoolsum.bat	5.67 KB	-rwxrwxrwx
wperl.exe	39 KB	-rwxrwxrwx
xml_grep	13.32 KB	-rw-rw-rw-
xml_grep.bat	14.3 KB	-rwxrwxrwx
xml_merge	3.89 KB	-rw-rw-rw-
xml_merge.bat	4.55 KB	-rwxrwxrwx
xml_pp	7.82 KB	-rw-rw-rw-
xml_pp.bat	8.61 KB	-rwxrwxrwx
xml_spellcheck	6.34 KB	-rw-rw-rw-
xml_spellcheck.bat	7.1 KB	-rwxrwxrwx
xml_split	21.13 KB	-rw-rw-rw-
xml_split.bat	22.27 KB	-rwxrwxrwx
xsubpp.bat	5.78 KB	-rwxrwxrwx
zipdetails	55.96 KB	-rw-rw-rw-
zipdetails.bat	59.14 KB	-rwxrwxrwx

Code Editor : ppm.pl

#!perl

use Getopt::Long;
use File::Basename;
use Config;
use strict;

use PPM;

$PPM::VERSION = '11.11_04';

my %help;

# mapping of POD sections to command topics
my %topic = (
    'Error Recovery' => 'genconfig',
    'Installing'     => 'install',
    'Querying'       => 'query',
    'Removing'       => 'remove',
    'Searching'      => 'search',
    'Summarizing'    => 'summary',
    'Verifying'      => 'verify',
    'Synopsis'       => 'usage',
    'Options'        => 'set',
);

$help{'help'} = <<'EOT';
Commands:
    exit              - leave the program.
    help [command]    - prints this screen, or help on 'command'.
    install PACKAGES  - installs specified PACKAGES.
    quit              - leave the program.
    query [options]   - query information about installed packages.
    remove PACKAGES   - removes the specified PACKAGES from the system.
    search [options]  - search information about available packages.
    set [options]     - set/display current options.
    verify [options]  - verifies current install is up to date.
    version           - displays PPM version number

EOT

# Build the rest of the online help from the POD
$/ = "\n=";
while (<DATA>) {
    next unless my ($topic,$text) = /^(?:item|head[12]) ([^\n]+)\n\n(.*)=/s;
    next unless $topic{$topic};
    ($help{$topic{$topic}} = "\n$text"); # =~ s/\n *([^\n])/\n    $1/sg;
}
$/ = "\n";

# Need to do this here, because the user's config file is probably
# hosed.
if ($#ARGV == 0 && $ARGV[0] eq 'genconfig') {
    &genconfig;
    exit 0;
}

if ($#ARGV == 0 && $ARGV[0] eq 'getconfig') {
    print $PPM::PPMdat;
    exit 0;
}

my %options = PPM::GetPPMOptions();
my $location;

my $moremsg = "[Press return to continue or 'q' to quit] ";
my $interactive = 0;

my %repositories = PPM::ListOfRepositories();

my $prefix_pattern = $^O eq "MSWin32" ? '(--|-|\+|/)' : '(--|-|\+)';

$PPM::PPMShell = 1;

Getopt::Long::Configure("prefix_pattern=$prefix_pattern");

if ($#ARGV == -1 || ($#ARGV == 0 && $ARGV[0] =~ /^${prefix_pattern}location/)) {
    my $prompt = 'PPM> ';
    $interactive = 1;
    GetOptions("location=s" => \$location);

print "PPM interactive shell ($PPM::VERSION) - type 'help' for available commands.\n";
    $| = 1;
    while () {
        print $prompt;
        last unless defined ($_ = <> );
        chomp;
        s/^\s+//;
        @ARGV = split(/\s+/, $_);
        next unless @ARGV;
        # exit/quit
        if (command($ARGV[0], "qu|it") or command($ARGV[0], "|exit")) {
            print "Quit!\n";
            last;
        }
        exec_command();
    }
    exit 0;
}

exit exec_command();

sub exec_command
{
    my $cmd = lc shift @ARGV;

for (@ARGV) {
        s/::/-/g;
    }

# help
    if (command($cmd, "|help")) {
        help(@ARGV);
    }
    # query
    elsif (command($cmd, "qu|ery")) {
        GetOptions("case!" => \my $case, "abstract" => \my $abstract, 
        "author" => \my $author );

my %summary = InstalledPackageProperties();
        if (@ARGV) {
            my $searchtag;
            if ($abstract || $author) {
                $searchtag = ($abstract ? 'ABSTRACT' : 'AUTHOR');
            }
            my $RE = shift @ARGV;
            eval { $RE =~ /$RE/ };
            if ($@) {
                print "'$RE': invalid regular expression.\n";
                return 1;
            } 
            $case = !$options{'IGNORECASE'} unless defined $case;
            $RE = "(?i)$RE" if ($case == 0);
            foreach(keys %summary) {
                if ($searchtag) {
                    delete $summary{$_} unless $summary{$_}{$searchtag} =~ /$RE/;
                }
                else {
                    delete $summary{$_} unless /$RE/;
                }
            }
        }
        print_formatted(1, %summary);
    }
    # install
    elsif (command($cmd, "in|stall")) {
        my $location = $location;
        GetOptions("location=s" => \$location);
        unless (@ARGV) {
            if (!$interactive && -d "blib" && -f "Makefile") {
                return if InstallPackage(location => $location);
                print "Error installing blib: $PPM::PPMERR\n";
                return 1;
            }
            print "Package not specified.\n";
            return 1;
        }

my %installed = InstalledPackageProperties();
        foreach my $package (@ARGV) {
            $package =~ s/::/-/g;
            if (my $pkg = (grep {/^$package$/i} keys %installed)[0]) {
                my $version = $installed{$pkg}{'VERSION'};
                $version =~ s/(,0)*$//;
                $version =~ tr/,/./;
                print "Version $version of '$pkg' is already installed.\n" .
                      "Remove it, or use 'verify --upgrade $pkg'.\n";
                next;
            }
            elsif ($interactive && $options{'CONFIRM'}) {
                print "Install package '$package?' (y/N): ";
                next unless <> =~ /^[yY]/;
            }
            print "Installing package '$package'...\n";
            if(!InstallPackage("package" => $package, "location" => $location)) {
                print "Error installing package '$package': $PPM::PPMERR\n";
            }
        }
    }
    # remove
    elsif (command($cmd, "|remove")) {
        unless (@ARGV) {
            print "Package not specified.\n";
            return 1;
        }
        foreach my $package (@ARGV) {
            $package =~ s/::/-/g;
            if ($interactive && $options{'CONFIRM'}) {
                print "Remove package '$package?' (y/N): ";
                next unless <> =~ /[yY]/;
            }
            unless (RemovePackage("package" => $package)) {
                print "Error removing $package: $PPM::PPMERR\n";
            }
        }
    }
    # search
    elsif (command($cmd, "se|arch")) {
        my (%summary, $searchtag);
        my $location = $location;
        GetOptions("case!" => \my $case, "location=s" => \$location, 
            "abstract" => \my $abstract, "author" => \my $author );
        my $searchRE = shift @ARGV;
        if (defined $searchRE) {
            eval { $searchRE =~ /$searchRE/ };
            if ($@) {
                print "'$searchRE': invalid regular expression.\n";
                return 1;
            }
        }
        $case = !$options{'IGNORECASE'} unless defined $case;
        if ($abstract || $author) {
            $searchtag = ($abstract ? 'ABSTRACT' : 'AUTHOR');
        }
        %summary = search_PPDs("location" => $location, "ignorecase" => !$case,
            "searchtag" => $searchtag, "searchRE" => $searchRE);
        foreach (keys %summary) {
            print "Packages available from $_:\n";
            print_formatted(2, %{$summary{$_}});
        }
    }
    # set
    elsif (command($cmd, "se|t")) {
        unless (set(@ARGV) || $interactive) {
            PPM::SetPPMOptions("options" => \%options, "save" => 1);
        }
    }
    # verify
    elsif (command($cmd, "ver|ify")) {
        my $location = $location;
        GetOptions("force" => \my $force, "location=s" => \$location, 
            "upgrade" => \my $upgrade);
        if ($interactive && $upgrade && $options{'CONFIRM'}) {
            printf "Upgrade package%s? (y/N): ", @ARGV == 1 ? " '$ARGV[0]'" : "s";
            return unless <> =~ /^[yY]/;
        }
        verify_packages("packages" => \@ARGV, "location" => $location, 
            "upgrade" => $upgrade, "force" => $force);
    }
    elsif (command($cmd, "ver|sion")) {
        print "$PPM::VERSION\n";
    }
    elsif ($cmd eq "purge") {
        my %summary = InstalledPackageProperties();
        foreach(keys %summary) {
            print "Purging $_\n";
            RemovePackage("package" => $_, "force" => 1);
        }
    }
    elsif ($cmd eq 'refresh') {
        my %summary = InstalledPackageProperties();
        foreach(keys %summary) {
            print "Refreshing $_\n";
            InstallPackage("package" => $_);
        }
    }
    else {
        print "Unknown or ambiguous command '$cmd'; type 'help' for commands.\n";
    }
}

sub help {
    my $topic = @_ && $help{lc $_[0]} ? lc $_[0] : 'help';
    my $help = $help{$topic};
    $help =~ s/^(\s*)ppm\s+/$1/mg if $interactive;
    print $help;
}

sub more
{
    my ($lines) = shift @_;
    if (++$$lines >= $options{'MORE'}) {
        print $moremsg;
        $_ = <>;
        $$lines = $_ eq "q\n" ? -1 : 1;
    }
}

# This nasty piece of business splits $pattern into a required prefix 
# and a "match any of this substring" suffix.  E.g. "in|stall" will
# match a $cmd of "ins", "inst", ..., "install".
sub command
{
    my ($cmd, $pattern) = @_;
    my @pattern = split(/\|/, $pattern);
    if ($pattern[1]) {
        my @optchars = split(//, $pattern[1]);
        # build up a "foo(b|ba|bar)" string
        $pattern = "$pattern[0](";
        $pattern[1] = shift @optchars;
        $pattern[1] .= "|$pattern[1]$_" foreach @optchars;
        $pattern .= "$pattern[1])";
    }
    return ($cmd =~ /^${pattern}$/i);
}

# This routine prints the output for query and search
# in a nicely formatted way, if $options{'VERBOSE'} is set.
sub print_formatted
{
    my ($lines, %summary) = @_;
    my $package;

unless ($options{'VERBOSE'}) {
        foreach $package (sort keys %summary) {
            print "$package\n";
            &more(\$lines) if $options{'MORE'} && $interactive;
            last if $lines == -1;
        }
        return;
    }

my ($maxname, $maxversion) = (0, 0);
    # find the longest package name and version strings, so we can
    # format them nicely
    $maxname < length($_) and $maxname = length($_) for keys %summary;
    foreach $package (keys %summary) {
        $summary{$package}{'VERSION'} =~ s/(,0)*$//;
        $summary{$package}{'VERSION'} =~ tr/,/./;
        $maxversion = length $summary{$package}{'VERSION'} > $maxversion ? 
            length $summary{$package}{'VERSION'} : $maxversion;
    }
    my $columns = $ENV{COLUMNS} ? $ENV{COLUMNS} : 80;
    my $namefield = "@" . "<" x ($maxname - 1);
    my $versionfield = "@" . "<" x ($maxversion - 1);
    my $abstractfield = "^" . "<" x ($columns - (6 + $maxname + $maxversion));
    my $abstractpad = " " x ($maxname + $maxversion + 3);

foreach $package (sort keys %summary) {
        eval "format STDOUT = \n"
                   . "$namefield [$versionfield] $abstractfield\n"
                   . '$package, $summary{$package}{VERSION}, $summary{$package}{ABSTRACT}'
                   . "\n"
                   . "$abstractpad $abstractfield~~\n"
                   . '$summary{$package}{ABSTRACT}' 
                   . "\n"
                   . ".\n";

my $diff = $-;
        write;
        $diff -= $-;
        $lines += ($diff - 1) if $diff > 1;
        &more(\$lines) if $options{'MORE'} && $interactive;
        last if $lines == -1;
    }
}

sub set
{
    my $option = lc shift @_;

unless ($option) {
        print "Commands will " . ($options{'CONFIRM'} ? "" : "not ") . 
            "be confirmed.\n";
        print "Temporary files will " . ($options{'CLEAN'} ? "" : "not ") .
            "be deleted.\n";
        print "Download status will " . (($options{'DOWNLOADSTATUS'} > 0) ?
            "be updated every $options{'DOWNLOADSTATUS'} bytes.\n" : 
            "not be updated.\n");
        print "Case-" . ($options{'IGNORECASE'} ? "in" : "") . 
            "sensitive searches will be performed.\n";
        print "Package installations will " . 
            ($options{'FORCE_INSTALL'} ? "" : "not ") .
               "continue if a dependency cannot be installed.\n";
        print "Tracing info will " . (($options{'TRACE'} > 0 ) ? 
            "be written to '$options{'TRACEFILE'}'.\n" : "not be written.\n");
        print "Screens will " . ($options{'MORE'} > 0 ? 
            "pause after $options{'MORE'} lines.\n" : "not pause.\n");
        print "Query/search results will " . 
            ($options{'VERBOSE'} ? "" : "not ") . "be verbose.\n";
        if (defined $location) { print "Current PPD repository: $location\n"; }
        else {
            print "Current PPD repository paths:\n";
            foreach $_ (keys %repositories) {
                print "\t$_: $repositories{$_}\n";
            }
        }
        print "Packages will be installed under: $options{'ROOT'}\n" 
            if ($options{'ROOT'});
        print "Packages will be built under: $options{'BUILDDIR'}\n" 
            if ($options{'BUILDDIR'});
        return;
    }

my $value = shift @_;
    if (command($option, "r|epository")) {
        if ($value =~ /${prefix_pattern}remove/i) {
            $value = join(" ", @_);
            print "Location not specified.\n" and return 1 
                unless (defined $value);
            PPM::RemoveRepository("repository" => $value);
            %repositories = PPM::ListOfRepositories();
        }
        else {
            my $location = shift @_;
            print "Repository not specified.\n" and return 1
                unless (defined $value and defined $location);
            PPM::AddRepository("repository" => $value,
                "location" => $location);
            %repositories = PPM::ListOfRepositories();
        }
    }
    else {
        if (command($option, "c|onfirm")) {
            $options{'CONFIRM'} = defined $value ? 
                ($value != 0) : ($options{'CONFIRM'} ? 0 : 1);
            print "Commands will " . ($options{'CONFIRM'} ? "" : "not ") . 
                "be confirmed.\n";
        }
        elsif (command($option, "|save")) {
            PPM::SetPPMOptions("options" => \%options, "save" => 1);
            return 0;
        }
        elsif (command($option, "c|ase")) {
            $options{'IGNORECASE'} = defined $value ? 
                ($value == 0) : ($options{'IGNORECASE'} ? 0 : 1);
            print "Case-" . ($options{'IGNORECASE'} ? "in" : "") . 
                "sensitive searches will be performed.\n";
        }
        elsif (command($option, "r|oot")) {
            my $old_root;
            print "Directory not specified.\n" and return 1 unless ($value);
            print "$PPM::PPMERR" and return 1
                    unless ($old_root = PPM::chroot("location" => $value));
            $options{'ROOT'} = $value;
            print "Root is now $value [was $old_root].\n";
        }
        elsif (command($option, "|build")) {
            print "Directory not specified.\n" and return 1 unless ($value);
            print "Directory '$value' does not exist.\n" and return 1 
                unless (-d $value);
            $options{'BUILDDIR'} = $value;
            print "Build directory is now $value.\n";
        }
        elsif (command($option, "|force_install")) {
            $options{'FORCE_INSTALL'} = defined $value ? ($value != 0) : 
                ($options{'FORCE_INSTALL'} ? 0 : 1);
            print "Package installations will " .
                  ($options{'FORCE_INSTALL'} ? "" : "not ") .
                  "continue if a dependency cannot be installed.\n";
        }
        elsif (command($option, "c|lean")) {
            $options{'CLEAN'} = defined $value ? 
                ($value != 0) : ($options{'CLEAN'} ? 0 : 1);
            print "Temporary files will " . ($options{'CLEAN'} ? "" : "not ") . 
                "be deleted.\n";
        }
        elsif (command($option, "|downloadstatus")) {
            print "Numeric value must be given.\n" and return 1
                unless (defined $value && $value =~ /^\d+$/);
            $options{'DOWNLOADSTATUS'} = $value;
            print "Download status will " . (($options{'DOWNLOADSTATUS'} > 0) ?
                "be updated every $options{'DOWNLOADSTATUS'} bytes.\n" : 
                "not be updated.\n");
        }
        elsif (command($option, "|more")) {
            print "Numeric value must be given.\n" and return 1
                unless (defined $value && $value =~ /^\d+$/);
            $options{'MORE'} = $value;
            print "Screens will " . ($options{'MORE'} > 0 ? 
                "pause after $options{'MORE'} lines.\n" : "not pause.\n");
        }
        elsif (command($option, "trace|file")) {
            print "Filename not specified.\n" and return 1 unless ($value);
            $options{'TRACEFILE'} = $value;
            print "Tracing info will be written to $options{'TRACEFILE'}.\n";
        }
        elsif (command($option, "trace")) {
            print "Numeric value between 0 and 4 must be given.\n" and return 1
                unless (defined $value && 
                    $value =~ /^\d+$/ && $value >= 0 && $value <= 4);
            $options{'TRACE'} = $value;
            print "Tracing info will " . ($options{'TRACE'} > 0 ? 
                "be written to $options{'TRACEFILE'}.\n" : "not be written.\n");
        }
        elsif (command($option, "|verbose")) {
            $options{'VERBOSE'} = defined $value ? 
                ($value != 0) : ($options{'VERBOSE'} ? 0 : 1);
            print "Query/search results will " . 
                ($options{'VERBOSE'} ? "" : "not ") . "be verbose.\n";
        }
        else {
            print "Unknown or ambiguous option '$option'; see 'help set' for available options.\n";
            return 1;
        }
        PPM::SetPPMOptions("options" => \%options);
    }
    return;
}

sub search_PPDs
{
    my %argv = @_;
    my @locations = $argv{'location'} || $location;
    my $searchtag = $argv{'searchtag'};
    my $ignorecase = defined $argv{'ignorecase'} ? 
        $argv{'ignorecase'} : $options{'IGNORECASE'};
    my $searchRE = $argv{'searchRE'};
    if (defined $searchRE) {
        eval { $searchRE =~ /$searchRE/ };
        if ($@) {
            print "'$searchRE': invalid regular expression.\n";
            return;
        }
        $searchRE = "(?i)$searchRE" if $ignorecase;
    }

my %packages;
    unless (defined $locations[0]) {
        my %reps = PPM::ListOfRepositories;
        @locations = values %reps;
    }
    foreach my $loc (@locations) {
        my %summary;

# see if the repository has server-side searching
        if (defined $searchRE && (%summary = ServerSearch('location' => $loc, 
                'searchRE' => $searchRE, 'searchtag' => $searchtag))) {
            # XXX: clean this up
            foreach my $package (keys %{$summary{$loc}}) {
                $packages{$loc}{$package} = \%{$summary{$loc}{$package}};
            }
            next;
        }

# see if a summary file is available
        %summary = RepositorySummary("location" => $loc);
        if (%summary) {
            foreach my $package (keys %{$summary{$loc}}) {
                next if (defined $searchtag && 
                    $summary{$loc}{$package}{$searchtag} !~ /$searchRE/);
                next if (!defined $searchtag && 
                    defined $searchRE && $package !~ /$searchRE/);
                $packages{$loc}{$package} = \%{$summary{$loc}{$package}};
            }
        }
        else {
            my %ppds = PPM::RepositoryPackages("location" => $loc);
            # No summary: oh my, nothing but 'Net
            foreach my $package (@{$ppds{$loc}}) {
                my %package_details = RepositoryPackageProperties(
                    "package" => $package, "location" => $loc);
                next unless %package_details;
                next if (defined $searchtag && 
                    $package_details{$searchtag} !~ /$searchRE/);
                next if (!defined $searchtag && 
                    defined $searchRE && $package !~ /$searchRE/);
                $packages{$loc}{$package} = \%package_details;
            }
        }
    }
    return %packages;
}

sub verify_packages
{
    my %argv = @_;
    my @packages = @{$argv{'packages'}};
    my $upgrade = $argv{'upgrade'};
    my $force = $argv{'force'};
    my $location = $argv{'location'} || $location;
    unless ($packages[0]) {
        my %info = QueryInstalledPackages();
        @packages = sort keys %info;
    }

my $package = shift @packages;
    while ($package) {
        my $status = VerifyPackage("package" => $package, 
            "location" => $location, "upgrade" => $upgrade, "force" => $force);
        if (defined $status) {
            if ($status eq "0") {
                print "Package \'$package\' is up to date.\n";
            }
            elsif ($upgrade) {
                print "Package $package upgraded to version $status\n";
            }
            else {
                print "An upgrade to package \'$package\' is available.\n";
            }
        }
        else {
            # Couldn't find a PPD to compare it with.
            print "Package \'$package\' is up to date.\n";
        }
        $package = shift @packages;
    }
}

sub genconfig
{
  my $repositories =
    {'5.6' => {
	       'ActiveState' =>
	       {location => 'http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn:/PPMServer',
		summaryfile => 'fetch_summary',
	       },
	       'Bribes' =>
	       {location => 'http://www.bribes.org/perl/ppm',
		summaryfile => 'searchsummary.ppm',
	       },
	       'UWinnipeg' =>
	       {location => 'http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer',
		summaryfile => 'fetch_summary',
	       },
	      },
     '5.8' => {
	       'ActiveState' =>
	       {location => 'http://ppm.activestate.com/PPMPackages/5.8-windows',
		summaryfile => 'searchsummary.ppm',
	       },
	       'Bribes' =>
	       {location => 'http://www.bribes.org/perl/ppm',
		summaryfile => 'searchsummary.ppm',
	       },
	       'UWinnipeg' =>
	       {location => 'http://theoryx5.uwinnipeg.ca/ppms',
		summaryfile => 'searchsummary.ppm',
	       },
	       'Trouchelle' =>
	       {location => 'http://trouchelle.com/ppm',
		summaryfile => 'searchsummary.ppm',
	       },
	      },
     '5.10' => {
		'ActiveState' =>
		{location => 'http://ppm.activestate.com/PPMPackages/5.10-windows',
		 summaryfile => 'searchsummary.ppm',
		},
		'Bribes' =>
		{location => 'http://www.bribes.org/perl/ppm',
		 summaryfile => 'searchsummary.ppm',
		},
		'UWinnipeg' =>
		{location => 'http://cpan.uwinnipeg.ca/PPMPackages/10xx',
		 summaryfile => 'searchsummary.ppm',
		},
		'Trouchelle' =>
		{location => 'http://trouchelle.com/ppm10',
		 summaryfile => 'package.xml',
		},
	       },
    };
   my ($perl_version);
 PERLV: {
     ($] < 5.008) and do {
       $perl_version = '5.6';
       last PERLV;
     };
     ($] < 5.01) and do {
       $perl_version = '5.8';
       last PERLV;
     };
     $perl_version = '5.10';
   }
   my $reps = $repositories->{$perl_version};
  my $PerlDir = $Config{'prefix'};

print <<"EOF";
<PPMCONFIG>
    <PPMVER>2,1,8,0</PPMVER>
    <PLATFORM CPU="x86" OSVALUE="$Config{'osname'}" OSVERSION="0,0,0,0" />
    <OPTIONS BUILDDIR="$ENV{'TEMP'}" CLEAN="1" CONFIRM="1" DOWNLOADSTATUS="16384" FORCEINSTALL="1" IGNORECASE="1" MORE="0" ROOT="$PerlDir" TRACE="0" TRACEFILE="PPM.LOG" VERBOSE="1" />
EOF
  foreach my $name(sort keys %$reps) {
    my $loc = $reps->{$name}->{location};
    my $sf = $reps->{$name}->{summaryfile};
    print << "EOF";
    <REPOSITORY LOCATION="$loc" NAME="$name" SUMMARYFILE="$sf" />
EOF
  }
  print <<"EOF";
    <PPMPRECIOUS>Compress-Zlib;Archive-Tar;Digest-MD5;File-CounterFile;Font-AFM;HTML-Parser;HTML-Tree;MIME-Base64;URI;XML-Element;libwww-perl;XML-Parser;SOAP-Lite;PPM;libnet;libwin32</PPMPRECIOUS>
</PPMCONFIG>
EOF
}

__DATA__

=head1 NAME

PPM - Perl Package Manager: locate, install, upgrade software packages.

=head1 SYNOPSIS

ppm genconfig
 ppm help [command]
 ppm install [--location=location] package1 [... packageN]
 ppm query [--case|nocase] [--abstract|author] PATTERN
 ppm remove package1 [... packageN]
 ppm search [--case|nocase] [--location=location] [--abstract|author] PATTERN
 ppm set [option]
 ppm verify [--location=location] [--upgrade] [--force] [package1 ... packageN]
 ppm version
 ppm [--location=location]

=head1 DESCRIPTION

ppm is a utility intended to simplify the tasks of locating, installing,
upgrading and removing software packages.  It is a front-end to the
functionality provided in PPM.pm.  It can determine if the most recent
version of a software package is installed on a system, and can install
or upgrade that package from a local or remote host.

ppm runs in one of two modes: an interactive shell from which commands
may be entered; and command-line mode, in which one specific action is
performed per invocation of the program.

ppm uses files containing an extended form of the Open Software
Description (OSD) specification for information about software packages.
These description files, which are written in Extensible Markup
Language (XML) code, are referred to as 'PPD' files.  Information about
OSD can be found at the W3C web site (at the time of this writing,
http://www.w3.org/TR/NOTE-OSD.html).  The extensions to OSD used by ppm
are documented in PPM.ppd.

=head1 Using PPM

=over 4

=item Interactive mode

If ppm is invoked with no command specified, it is started in interactive
mode.  If the '--location' argument is specified, it is used as the
search location, otherwise the repositories specified in the PPM data file
are used.

The syntax of PPM commands is the same in interactive mode as it is in
command-line mode.  The 'help' command lists the available commands.

ppm commands may be abbreviated to their shortest unique form.

=item Installing

ppm install [--location=location] package1 [... packageN]

Installs the specified software packages. Attempts to install from the 
URL or directory 'location' if the '--location' option is specfied.

The 'package' arguments may be either package names ('foo'), pathnames 
(p:/packages/foo.ppd) or URLs (http://www.ActiveState.com/packages/foo.ppd)
to specific PPD files.

In the case where a package name is specified, and the '--location'
option is not used, ppm will refer to the default repository locations.

${this.title}

Code Editor : ppm.pl