Re: 3.0 Tuner on Linux

[Luca Berra]

On Mon, Jul 06, 1998 at 04:14:53PM -0700, Luiz Otavio L. Zorzella wrote:
> Paul, were you able to unpack the tuner_300d_products_enus.bin file
> usin iBCS or something or you just happen to have a Solaris box were
> you did that?
> 
> Any suggestion for someone who does not have a solaris box?
> 

this worked for 2.0 .bin packages,
i didn't test it on tuner 3.0 yet

Regards
        Luca

-- 
Luca Berra -- [EMAIL PROTECTED]
    System and Network Manager - CoMedia s.r.l.

#!/usr/bin/perl
#    pkgrextract - extracts Marimba .bin files
#    No Copyright 1997 Luca Berra <[EMAIL PROTECTED]>
#
#    This program is free software; you can do anything you want
#    with it, I don't give a damn.
#    By using this piece of crap you agree that I (Luca Berra)
#    cannot be held responsable for any damage that it may cause.
#
#    Note: it would also be trivial to make it actually
#    extract in the correct directory, run the script, and
#    do any cleanup.

$oldfdh=select(STDOUT);$|=1;select($oldfdh);
$oldfdh=select(STDERR);$|=1;select($oldfdh);

sub usage {
        $prgname=$0;
        $prgname =~ s,.*/,,;
        print("Usage: $prgname file.bin\n");
        print("\tIt will extract the package in the current directory\n");
        print("\tand overwrite anything witout asking, so beware\n");
        exit(pop(@_));
}

usage(-1)
        if (!defined($ARGV[0]) || defined($ARGV[1]));

SKIP_EXE:
while (<>) {
        last SKIP_EXE
                if (/^#-%SCTN /);
}

while (/^#-%SCTN (.*?) (\d*)$/) {
        $filename=$1;
        $filesize=$2;
        print("$filename ($filesize bytes)\n");
        open(OUTPUT,">$filename");
        select(OUTPUT);
DUMP_FILE:
        while (<>) {
            last DUMP_FILE
                if (/^#-%SCTN /);
                print;
        }
        select(STDOUT);
        close(OUTPUT);
}