Index of /active/5.8
Name Last modified Size Description
![[DIR]](/icons/back.gif)
Parent Directory 22-Oct-2008 16:36 -
![[ ]](/icons/unknown.gif)
0000_instructions_at_bottom 29-May-2008 15:43 8k
![[ ]](/icons/compressed.gif)
02packages.details.txt.gz 25-Sep-2008 10:52 677k
ANSIColor.ppd 26-May-2008 09:54 1k
ANSIColor.tar.gz 26-May-2008 09:54 9k
Algorithm-Diff.ppd 26-May-2008 11:06 1k
Algorithm-Diff.tar.gz 26-May-2008 11:06 41k
Archive-Tar.old 26-May-2008 11:07 1k
Archive-Tar.ppd 25-Sep-2008 10:52 1k
Archive-Tar.tar.gz 26-May-2008 11:07 39k
Archive-Zip.old 26-May-2008 11:08 1k
Archive-Zip.ppd 25-Sep-2008 10:52 1k
Archive-Zip.tar.gz 26-May-2008 11:08 66k
CGI-RSS.ppd 24-May-2008 18:27 1k
CGI-RSS.tar.gz 24-May-2008 18:27 3k
CPAN-CachingProxy.old 24-May-2008 18:37 1k
CPAN-CachingProxy.ppd 25-Sep-2008 10:52 1k
CPAN-CachingProxy.tar.gz 24-May-2008 18:37 5k
CPAN.old 26-May-2008 10:06 1k
CPAN.ppd 25-Sep-2008 10:52 1k
CPAN.tar.gz 26-May-2008 10:06 196k
Cache.old 24-May-2008 18:34 1k
Cache.ppd 25-Sep-2008 10:52 1k
Cache.tar.gz 24-May-2008 18:34 35k
Cairo.ppd 13-Jun-2008 10:07 1k
Cairo.tar.gz 13-Jun-2008 10:07 161k
Compress-Raw-Bzip2.ppd 26-May-2008 11:01 1k
Compress-Raw-Bzip2.tar.gz 26-May-2008 11:01 83k
Compress-Raw-Zlib.ppd 26-May-2008 10:57 1k
Compress-Raw-Zlib.tar.gz 26-May-2008 10:57 124k
Compress-Zlib.old 26-May-2008 11:03 1k
Compress-Zlib.ppd 25-Sep-2008 10:52 1k
Compress-Zlib.tar.gz 26-May-2008 11:03 22k
Crypt-Blowfish.ppd 26-May-2008 09:59 1k
Crypt-Blowfish.tar.gz 26-May-2008 09:59 38k
Crypt-CBC.ppd 26-May-2008 09:59 1k
Crypt-CBC.tar.gz 26-May-2008 09:59 19k
Crypt-DES.ppd 26-May-2008 09:59 1k
Crypt-DES.tar.gz 26-May-2008 09:59 35k
Data-Dumper.ppd 26-May-2008 10:52 1k
Data-Dumper.tar.gz 26-May-2008 10:52 66k
Date-Lima.ppd 24-May-2008 18:12 1k
Date-Lima.tar.gz 24-May-2008 18:12 3k
Devel-FindBlessedRefs.ppd 24-May-2008 18:26 1k
Devel-FindBlessedRefs.tar.gz 24-May-2008 18:26 28k
Digest-HMAC.ppd 24-May-2008 19:00 1k
Digest-HMAC.tar.gz 24-May-2008 19:00 3k
Digest-MD5.old 26-May-2008 09:55 1k
Digest-MD5.ppd 25-Sep-2008 10:52 1k
Digest-MD5.tar.gz 26-May-2008 09:55 41k
Digest-SHA.ppd 26-May-2008 09:58 1k
Digest-SHA.tar.gz 26-May-2008 09:58 66k
Digest-SHA1.old 26-May-2008 09:57 1k
Digest-SHA1.ppd 25-Sep-2008 10:52 1k
Digest-SHA1.tar.gz 26-May-2008 09:57 40k
Event.ppd 24-May-2008 19:19 1k
Event.tar.gz 24-May-2008 19:19 134k
ExtUtils-CBuilder.old 26-May-2008 08:47 1k
ExtUtils-CBuilder.ppd 25-Sep-2008 10:52 1k
ExtUtils-CBuilder.tar.gz 26-May-2008 08:47 17k
ExtUtils-Depends.ppd 13-Jun-2008 08:03 1k
ExtUtils-Depends.tar.gz 13-Jun-2008 08:03 8k
ExtUtils-MakeMaker.old 26-May-2008 08:48 1k
ExtUtils-MakeMaker.ppd 25-Sep-2008 10:52 1k
ExtUtils-MakeMaker.tar.gz 26-May-2008 08:48 181k
ExtUtils-PkgConfig.ppd 13-Jun-2008 08:03 1k
ExtUtils-PkgConfig.tar.gz 13-Jun-2008 08:03 5k
File-HomeDir.old 26-May-2008 10:56 1k
File-HomeDir.ppd 25-Sep-2008 10:52 1k
File-HomeDir.tar.gz 26-May-2008 10:56 16k
File-NFSLock.ppd 24-May-2008 18:29 1k
File-NFSLock.tar.gz 24-May-2008 18:29 10k
File-Path.old 26-May-2008 10:16 1k
File-Path.ppd 25-Sep-2008 10:52 1k
File-Path.tar.gz 26-May-2008 10:16 18k
File-Slurp.ppd 26-May-2008 11:28 1k
File-Slurp.tar.gz 26-May-2008 11:28 10k
File-Temp.old 26-May-2008 09:45 1k
File-Temp.ppd 25-Sep-2008 10:52 1k
File-Temp.tar.gz 26-May-2008 09:45 34k
File-Type.old 24-May-2008 07:23 1k
File-Type.ppd 25-Sep-2008 10:52 1k
File-Type.tar.gz 23-May-2008 15:03 10k
File-Which.old 26-May-2008 11:25 1k
File-Which.ppd 25-Sep-2008 10:52 1k
File-Which.tar.gz 26-May-2008 11:25 7k
Games-RolePlay-MapGen.old 26-May-2008 11:41 1k
Games-RolePlay-MapGen.ppd 25-Sep-2008 10:52 1k
Games-RolePlay-MapGen.tar.gz 26-May-2008 11:41 54k
Getopt-ArgvFile.old 26-May-2008 10:37 1k
Getopt-ArgvFile.ppd 25-Sep-2008 10:52 1k
Getopt-ArgvFile.tar.gz 26-May-2008 10:37 19k
Glib.ppd 13-Jun-2008 09:49 1k
Glib.tar.gz 13-Jun-2008 09:49 332k
Gtk2-Ex-Dialogs.ppd 24-May-2008 07:23 1k
Gtk2-Ex-Dialogs.tar.gz 23-May-2008 15:04 13k
Gtk2-Ex-PodViewer.old 24-May-2008 07:36 1k
Gtk2-Ex-PodViewer.ppd 25-Sep-2008 10:52 1k
Gtk2-Ex-PodViewer.tar.gz 24-May-2008 07:36 23k
Gtk2-Ex-Simple-Menu.ppd 24-May-2008 07:23 1k
Gtk2-Ex-Simple-Menu.tar.gz 23-May-2008 15:05 5k
Gtk2-Ex-Utils.ppd 24-May-2008 07:23 1k
Gtk2-Ex-Utils.tar.gz 23-May-2008 15:04 6k
Gtk2.ppd 13-Jun-2008 10:12 1k
Gtk2.tar.gz 13-Jun-2008 10:12 1.7M
HTML-Parser.old 24-May-2008 18:54 1k
HTML-Parser.ppd 25-Sep-2008 10:52 1k
HTML-Parser.tar.gz 24-May-2008 18:54 113k
HTTP-Server-Simple.old 24-May-2008 19:03 1k
HTTP-Server-Simple.ppd 25-Sep-2008 10:52 1k
HTTP-Server-Simple.tar.gz 24-May-2008 19:03 12k
Heap.ppd 24-May-2008 18:30 1k
Heap.tar.gz 24-May-2008 18:30 16k
IO-Compress-Base.old 26-May-2008 10:58 1k
IO-Compress-Base.ppd 25-Sep-2008 10:52 1k
IO-Compress-Base.tar.gz 26-May-2008 10:58 41k
IO-Compress-Zlib.old 26-May-2008 11:00 1k
IO-Compress-Zlib.ppd 25-Sep-2008 10:52 1k
IO-Compress-Zlib.tar.gz 26-May-2008 11:00 119k
IO-Zlib.ppd 26-May-2008 11:04 1k
IO-Zlib.tar.gz 26-May-2008 11:04 8k
IO-stringy.ppd 24-May-2008 07:23 1k
IO-stringy.tar.gz 23-May-2008 15:38 41k
MIME-Base64.ppd 26-May-2008 09:56 1k
MIME-Base64.tar.gz 26-May-2008 09:56 38k
Makefile 29-May-2008 15:43 2k
Math-Algebra-Symbols.old 26-May-2008 10:04 1k
Math-Algebra-Symbols.ppd 25-Sep-2008 10:52 1k
Math-Algebra-Symbols.tar.gz 26-May-2008 10:04 93k
Math-BigInt-FastCalc.old 26-May-2008 10:01 1k
Math-BigInt-FastCalc.ppd 25-Sep-2008 10:52 1k
Math-BigInt-FastCalc.tar.gz 26-May-2008 10:01 37k
Math-BigInt.old 26-May-2008 10:01 1k
Math-BigInt.ppd 25-Sep-2008 10:52 1k
Math-BigInt.tar.gz 26-May-2008 10:01 136k
Math-BigRat.old 26-May-2008 10:02 1k
Math-BigRat.ppd 25-Sep-2008 10:52 1k
Math-BigRat.tar.gz 26-May-2008 10:02 19k
Math-Units-PhysicalValue.old 24-May-2008 18:25 1k
Math-Units-PhysicalValue.ppd 25-Sep-2008 10:52 1k
Math-Units-PhysicalValue.tar.gz 24-May-2008 18:25 7k
Math-Units.ppd 26-May-2008 10:04 1k
Math-Units.tar.gz 26-May-2008 10:04 9k
Module-Build.old 26-May-2008 08:49 1k
Module-Build.ppd 25-Sep-2008 10:52 1k
Module-Build.tar.gz 26-May-2008 08:49 255k
Module-ScanDeps.old 26-May-2008 10:35 1k
Module-ScanDeps.ppd 25-Sep-2008 10:52 1k
Module-ScanDeps.tar.gz 26-May-2008 10:35 20k
Net-Daemon.ppd 24-May-2008 19:04 1k
Net-Daemon.tar.gz 24-May-2008 19:04 28k
Net-SMTP-OneLiner.ppd 25-Sep-2008 10:50 1k
Net-SMTP-OneLiner.tar.gz 25-Sep-2008 10:50 4k
Net-Server.old 24-May-2008 19:04 1k
Net-Server.ppd 25-Sep-2008 10:52 1k
Net-Server.tar.gz 24-May-2008 19:04 89k
Number-Format.ppd 24-May-2008 18:14 1k
Number-Format.tar.gz 24-May-2008 18:14 14k
PAR-Dist.old 26-May-2008 10:18 1k
PAR-Dist.ppd 25-Sep-2008 10:52 1k
PAR-Dist.tar.gz 26-May-2008 10:18 14k
PAR-Packer.ppd 31-Jul-2008 13:21 1k
PAR-Packer.tar.gz 31-Jul-2008 13:21 1.6M
PAR.ppd 31-Jul-2008 13:07 1k
PAR.tar.gz 31-Jul-2008 13:07 65k
POE.old 24-May-2008 20:30 1k
POE.ppd 25-Sep-2008 10:52 1k
POE.tar.gz 24-May-2008 20:30 364k
Parse-Binary.ppd 26-May-2008 10:26 1k
Parse-Binary.tar.gz 26-May-2008 10:26 14k
PathTools.old 26-May-2008 08:49 1k
PathTools.ppd 25-Sep-2008 10:52 1k
PathTools.tar.gz 26-May-2008 08:49 74k
Pod-Escapes.ppd 24-May-2008 07:23 1k
Pod-Escapes.tar.gz 23-May-2008 15:29 8k
Pod-Parser.old 26-May-2008 10:06 1k
Pod-Parser.ppd 25-Sep-2008 10:52 1k
Pod-Parser.tar.gz 26-May-2008 10:06 102k
Pod-Simple.old 26-May-2008 10:30 1k
Pod-Simple.ppd 25-Sep-2008 10:52 1k
Pod-Simple.tar.gz 26-May-2008 10:30 186k
Scalar-List-Utils.ppd 26-May-2008 10:09 1k
Scalar-List-Utils.tar.gz 26-May-2008 10:09 50k
Software-License.ppd 26-May-2008 11:34 1k
Software-License.tar.gz 26-May-2008 11:34 68k
Storable.ppd 26-May-2008 10:05 1k
Storable.tar.gz 26-May-2008 10:05 105k
Sub-Install.old 26-May-2008 11:31 1k
Sub-Install.ppd 25-Sep-2008 10:52 1k
Sub-Install.tar.gz 26-May-2008 11:31 5k
Term-GentooFunctions.old 24-May-2008 07:23 1k
Term-GentooFunctions.ppd 25-Sep-2008 10:52 1k
Term-GentooFunctions.tar.gz 23-May-2008 14:08 3k
Term-ReadLine-Perl.ppd 26-May-2008 11:19 1k
Term-ReadLine-Perl.tar.gz 26-May-2008 11:19 41k
TermReadKey.ppd 26-May-2008 11:10 1k
TermReadKey.tar.gz 26-May-2008 11:10 45k
Test-Harness.old 26-May-2008 08:47 1k
Test-Harness.ppd 25-Sep-2008 10:52 1k
Test-Harness.tar.gz 26-May-2008 08:47 101k
Test-Number-Delta.old 13-Jun-2008 10:07 1k
Test-Number-Delta.ppd 25-Sep-2008 10:52 1k
Test-Number-Delta.tar.gz 13-Jun-2008 10:07 7k
Test-Pod.old 26-May-2008 10:31 1k
Test-Pod.ppd 25-Sep-2008 10:52 1k
Test-Pod.tar.gz 26-May-2008 10:31 5k
Test-Simple.ppd 26-May-2008 12:21 1k
Test-Simple.tar.gz 26-May-2008 12:21 75k
Test.old 26-May-2008 09:31 1k
Test.ppd 25-Sep-2008 10:52 1k
Test.tar.gz 26-May-2008 09:31 19k
Text-Diff.ppd 26-May-2008 11:07 1k
Text-Diff.tar.gz 26-May-2008 11:07 15k
Text-Glob.old 26-May-2008 11:24 1k
Text-Glob.ppd 25-Sep-2008 10:52 1k
Text-Glob.tar.gz 26-May-2008 11:24 4k
Text-Tabs+Wrap.ppd 26-May-2008 10:07 1k
Text-Tabs+Wrap.tar.gz 26-May-2008 10:07 6k
Text-Template.ppd 26-May-2008 11:30 1k
Text-Template.tar.gz 26-May-2008 11:30 46k
Tie-IxHash.ppd 26-May-2008 11:29 1k
Tie-IxHash.tar.gz 26-May-2008 11:29 7k
URI.ppd 24-May-2008 18:53 1k
URI.tar.gz 24-May-2008 18:53 56k
Win32-Exe.old 26-May-2008 10:26 1k
Win32-Exe.ppd 25-Sep-2008 10:52 1k
Win32-Exe.tar.gz 26-May-2008 10:26 16k
Win32API-Registry.ppd 26-May-2008 10:55 1k
Win32API-Registry.tar.gz 26-May-2008 10:55 128k
XML-NamespaceSupport.ppd 26-May-2008 12:19 1k
XML-NamespaceSupport.tar.gz 26-May-2008 12:19 8k
XML-Parser.old 26-May-2008 07:40 1k
XML-Parser.ppd 25-Sep-2008 10:52 1k
XML-Parser.tar.gz 26-May-2008 07:40 300k
XML-SAX-Expat.ppd 26-May-2008 12:19 1k
XML-SAX-Expat.tar.gz 26-May-2008 12:19 5k
XML-SAX.ppd 26-May-2008 12:22 1k
XML-SAX.tar.gz 26-May-2008 12:22 53k
XML-Simple.ppd 26-May-2008 12:24 1k
XML-Simple.tar.gz 26-May-2008 12:24 62k
XML-XPath.ppd 26-May-2008 11:27 1k
XML-XPath.tar.gz 26-May-2008 11:27 45k
YAML.ppd 26-May-2008 11:22 1k
YAML.tar.gz 26-May-2008 11:22 45k
bignum.old 26-May-2008 10:03 1k
bignum.ppd 25-Sep-2008 10:52 1k
bignum.tar.gz 26-May-2008 10:03 19k
check_versions 29-May-2008 15:41 3k
fix_ppds 25-Sep-2008 10:51 7k
html.xsl 24-May-2008 12:23 1k
libnet.old 26-May-2008 09:49 1k
libnet.ppd 25-Sep-2008 10:52 1k
libnet.tar.gz 26-May-2008 09:49 78k
libwww-perl.old 26-May-2008 09:50 1k
libwww-perl.ppd 25-Sep-2008 10:52 1k
libwww-perl.tar.gz 26-May-2008 09:50 249k
package.xml 25-Sep-2008 10:52 48k
stockmonkey.old 22-Jul-2008 11:25 1k
stockmonkey.ppd 25-Sep-2008 10:52 1k
stockmonkey.tar.gz 22-Jul-2008 11:25 27k
version.old 26-May-2008 10:33 1k
version.ppd 25-Sep-2008 10:52 1k
version.tar.gz 26-May-2008 10:33 60k
This is Paul's ActiveState Repo.
ppm rep add "Paul's Repo" https://voltar.org/active/5.8/
I have a Makefile that builds the packlist.xml:
https://voltar.org/active/5.8/Makefile
-=-------------=-----------------=--------------------------------
-= These scripts are for building your own repos:
#!/bin/bash
# NOTE: this is the ppdp or ppd push pgram I use to publish my active packages.
set -e
[ ! -f Makefile ] && perl Makefile.PL
if [ -f notest ]; then
nmake
else
nmake test
fi
nmake ppd
perl -MActivePerl::DocTools -e 'UpdateHTML_blib(installdirs => "site")'
if [ ! -f META.yml ]; then
make metafile
cp */META.yml .
fi
x=`grep ^name: META.yml | head -n 1 | sed s/name:[\ ]*//`
mv $x.ppd $x.ppd_pre
sed "s/CODEBASE HREF=\"\"/CODEBASE HREF=\"$x.tar.gz\"/" $x.ppd_pre > $x.ppd
tar -cvvf $x.tar blib/
gzip --best $x.tar
chmod 644 $x.tar.gz $x.ppd
ssh webhost.tld rm -f dirname/$x.old
scp -p $x.{tar.gz,ppd} webhost.tld:dirname
#!/usr/bin/perl
# NOTE: This fixes the brain-dead ActiveState dependency problems.
#
# What's brain-dead? They use the dist-name of modules instead of the module
# name and they do it very poorly. Example: build a Test-Harness ppd and it
# requires File::Spec. Try to install Test-Harness and PPM tries to pull in
# File::Spec 0.82 (with a warning) without the ability to realize it really
# wants PathTools. QED. (This program is a partial fix.)
our $CPAN_MIRROR = 'http://www.perl.com/CPAN/bug'; # select a mirror please
use strict;
use Compress::Zlib;
use WWW::Mechanize;
use Term::GentooFunctions qw(:all);
use Module::CoreList;
use Data::Dump qw(dump);
my $pauls_skiplist = {Config=>1}; # modules that aren't distributed (but come with perl, like Config.pm)
my $pauls_corelist = # corelist modules that shouldn't be upgraded to separate dist versions
{constant=>1, IO=>1};
my ($mod_db, $pro_db, $f_db);
&fetch; &parse; &scan; &smarten; &write;
# write {{{
sub write {
for my $dist_name (grep {exists $f_db->{$_}{a}} keys %$f_db) {
my @e = @{ $f_db->{$dist_name}{e} };
$e[1] =~ s/\.ppd$/.fix/ or die "couldn't rename output file";
$e[0] =~ s/<DEPENDENCY[^>]+>/MYDEPS/g;
$e[0] =~ s/MYDEPS.*MYDEPS/MYDEPS/s;
$e[0] =~ s/^\s+MYDEPS/MYDEPS/m;
my $deps = "";
my %did = ();
for (@{ $f_db->{$dist_name}{a}{d} }) {
next if exists $did{$_->[0]};
$deps .= " <DEPENDENCY NAME=\"$_->[0]\" VERSION=\"$_->[1]\"\/>\n";
$did{$_->[0]} = undef;
}
chomp $deps;
$e[0] =~ s/MYDEPS/$deps/;
ebegin "writing $e[1]";
open my $out, ">$e[1]" or die "coudln't open output file: $!";
print $out $e[0];
close $out;
eend 1;
}
}
# }}}
# smarten {{{
sub smarten {
for my $dist_name (keys %$f_db) {
my @deps = @{ $f_db->{$dist_name}{d} };
my @ndep = @deps;
my $altered = 0;
my $overall_result = 1;
for my $dep (@deps) {
my $mname = $dep->[0];
$mname =~ s/-/::/g;
my $difn = $mod_db->{$mname}{d};
if( $pauls_skiplist->{$mname} ) {
einfo "$dist_name depends on $dep->[0] ($mname), which is on Paul's special skiplist.";
@ndep = grep {$_ != $dep} @ndep;
$altered = 1;
next;
}
my $adep = $dep;
if( $difn ne "perl" and $difn ne $dep->[0] ) {
einfo "$dist_name depends on $dep->[0], which doesn't equal $difn, renaming";
edie "difn='' on $dist_name, $dep->[0]" unless $difn;
$adep = [$difn, $dep->[1]];
@ndep = map {$_ == $dep ? $adep : $_} @ndep;
$altered = 1;
}
if( my $core = Module::CoreList->first_release($mname) ) {
if( $difn eq "perl" ) {
einfo "$dist_name depends on $dep->[0] ($mname), which is CORE in perl $core and is only shipped there. Removing.";
@ndep = grep {$_ != $adep} @ndep;
$altered = 1;
}
if( $pauls_corelist->{$difn} ) {
einfo "$dist_name depends on $dep->[0] ($mname), which is CORE and is shipped elsewhere, but is ruled by Paul's Core List.";
@ndep = grep {$_ != $adep} @ndep;
$altered = 1;
}
}
}
if( $altered ) {
einfo "tagging $dist_name with renamed and removed dependencies";
$f_db->{$dist_name}{a} = {
d => \@ndep,
};
}
}
}
# }}}
# fetch {{{
sub fetch {
my $mech;
if( not -f "02packages.details.txt.gz" or (stat _)[9]<(time-86400) ) {
ebegin "fetching 02packages.details.txt.gz";
$mech ||= new WWW::Mechanize;
$mech->get($CPAN_MIRROR . "modules/02packages.details.txt.gz", ":content_file" => "02packages.details.txt.gz");
eend (my $s = -s "02packages.details.txt.gz");
edie "not enough file" unless $s;
}
}
# }}}
# parse {{{
sub parse {
my $gz = Compress::Zlib::gzopen("02packages.details.txt.gz", "rb") or die "couldn't open 02packages.details.txt.gz file: $!";
my $line;
my $status_line_count = undef;
my $my_line_count = 0;
my %mod_db;
my %pro_db;
$mod_db = \%mod_db;
$pro_db = \%pro_db;
ebegin "parsing modules.txt.gz";
while( my $bytes = $gz->gzreadline($line) ) {
chomp $line;
if( my ($package, $version, $author_plus_dir, $dist_fname) = $line =~ m/^(\S+)\s+(\S+)\s+(\w\/\w{2}\/[\w\-]+)\/(\S+)/ ) {
$version = undef if $version =~ m/undef/;
my $dist;
if( $dist_fname =~ m/^(.+?)-v?[\d\.]+(?:[a-z]|E\d+)?\.(?:tar\.gz|tgz|zip|pm\.gz)$/) {
$dist = $1;
} else {
# seriously not worth mentioning when this doesn't work... wow
# edie "ERROR PARSING package=\"$package\" dist_fname=\"$dist_fname\" (line $.)";
# zcat modules.txt.gz | grep -v tar.gz$ | grep -v tgz$ | grep -v zip$ | grep -v pm.gz
}
$mod_db{$package} = {
v=>$version,
p=>$author_plus_dir,
f=>$dist_fname,
d=>$dist,
};
if( (my @s = split m/\//, $dist) == 2 ) {
# NOTE: not worth mentioning, ... surprisingly common
# ewarn "$dist_fname seems to have a subdir, adding {s} and shortening {d}";
$mod_db{$package}{s} = $s[0];
$mod_db{$package}{d} = $s[1];
}
$my_line_count ++;
} elsif ( $line =~ m/[A-Z][\w\-]+:\s*\S/ and not $line =~ m/::/ ) {
# prolly a status line
$status_line_count = $1 if $line =~ /^Line-Count:\s+(\d+)/;
} elsif ( $line =~ m/^\s*$/ ) {
# yawn
} else {
edie "ERROR PARSING LINE $.: $line";
}
}
ewarn "my_line_count: $my_line_count; status_line_count: $status_line_count" if $my_line_count != $status_line_count;
eend( $my_line_count == $status_line_count );
ebegin "building dist db";
for my $mod (keys %mod_db) {
if( my $dis = $mod_db{$mod}{d} ) {
$pro_db{$dis} = [] unless exists $pro_db{$dis};
push @{$pro_db{$dis}}, $mod;
}
}
eend 1;
}
# }}}
# scan {{{
sub scan {
local $/ = undef;
my %f_db; $f_db = \%f_db;
ebegin "parsing ppd files";
for my $file (glob "*.ppd") {
open my $fh, $file or die "error opening $file: $!";
my $entire_file = <$fh>;
close $fh;
my ($dist_name) = $entire_file =~ m/SOFTPKG NAME="([^"]+)"/;
my @dep; # depenedencies
while( $entire_file =~ m/DEPENDENCY NAME="([^"]+)" VERSION="([^"]+)"/g ) {
push @dep, [$1, $2];
}
my @dis_pro = @{$pro_db->{$dist_name}} if exists $pro_db->{$dist_name};
ewarn "couldn't find that $dist_name provides anything..." unless @dis_pro;
$f_db{$dist_name} = {
p=>\@dis_pro,
d=>\@dep,
e=>[$entire_file, $file],
};
}
eend (keys %f_db);
}
# }}}