FM / perl5.legacy

/usr/local/lib64/perl5.legacy

Name	Size	Mode	Actions
auto/	-	0755	rm
B/	-	0755	rm
common/	-	0755	rm
Compress/	-	0755	rm
Crypt/	-	0755	rm
Digest/	-	0755	rm
File/	-	0755	rm
IO/	-	0755	rm
JSON/	-	0755	rm
Net/	-	0755	rm
Sub/	-	0755	rm
Template/	-	0755	rm
Term/	-	0755	rm
Test/	-	0755	rm
version/	-	0755	rm
XML/	-	0755	rm
YAML/	-	0755	rm
bun-x.pl	1251	0555	edit dl rm
CDB_File.pm	10675	0444	edit dl rm
Curses.pm	41804	0444	edit dl rm
Cwd.pm	22587	0444	edit dl rm
Socket.pm	37029	0444	edit dl rm
Template.pm	25037	0444	edit dl rm
version.pm	3549	0444	edit dl rm
version.pod	9832	0444	edit dl rm

Edit: /usr/local/lib64/perl5.legacy/bun-x.pl (1251B)

#! /usr/bin/perl

use CDB_File;
use strict;

sub unnetstrings {
    my ($netstrings) = @_;
    my @result;
    while ( $netstrings =~ s/^([0-9]+):// ) {
        push @result, substr( $netstrings, 0, $1, '' );
        $netstrings =~ s/^,//;
    }
    return @result;
}

my $chunk = 8192;

sub extract {
    my ( $file, $t, $b ) = @_;
    my $head = $$b{"H$file"};
    my ( $code, $type ) = $head =~ m/^([0-9]+)(.)/;
    if ( $type eq "/" ) {
        mkdir $file, 0777;
    }
    elsif ( $type eq "_" ) {
        my ( $total, $now, $got, $x );
        open OUT, ">$file" or die "open for output: $!\n";
        exists $$b{"D$code"} or die "corrupt bun file\n";
        my $fh = $t->handle;
        sysseek $fh, $t->datapos, 0;
        $total = $t->datalen;
        while ($total) {
            $now = ( $total > $chunk ) ? $chunk : $total;
            $got = sysread $fh, $x, $now;
            if ( not $got ) { die "read error\n"; }
            $total -= $got;
            print OUT $x;
        }
        close OUT;
    }
    else {
        print STDERR "warning: skipping unknown file type\n";
    }
}

die "usage\n" if @ARGV != 1;

my ( %b, $t );
$t = tie %b, 'CDB_File', $ARGV[0] or die "tie: $!\n";
map { extract $_, $t, \%b } unnetstrings $b{""};

#! /usr/bin/perl use CDB_File; use strict; sub unnetstrings { my ($netstrings) = @_; my @result; while ( $netstrings =~ s/^([0-9]+):// ) { push @result, substr( $netstrings, 0, $1, '' ); $netstrings =~ s/^,//; } return @result; } my $chunk = 8192; sub extract { my ( $file, $t, $b ) = @_; my $head = $$b{"H$file"}; my ( $code, $type ) = $head =~ m/^([0-9]+)(.)/; if ( $type eq "/" ) { mkdir $file, 0777; } elsif ( $type eq "_" ) { my ( $total, $now, $got, $x ); open OUT, ">$file" or die "open for output: $!\n"; exists $$b{"D$code"} or die "corrupt bun file\n"; my $fh = $t->handle; sysseek $fh, $t->datapos, 0; $total = $t->datalen; while ($total) { $now = ( $total > $chunk ) ? $chunk : $total; $got = sysread $fh, $x, $now; if ( not $got ) { die "read error\n"; } $total -= $got; print OUT $x; } close OUT; } else { print STDERR "warning: skipping unknown file type\n"; } } die "usage\n" if @ARGV != 1; my ( %b, $t ); $t = tie %b, 'CDB_File', $ARGV[0] or die "tie: $!\n"; map { extract $_, $t, \%b } unnetstrings $b{""};