#!/usr/bin/perl

@unpackid=('\140\352...','\032(\010|\011)...','...lh','PK...','ZOO..');

@unpacker=('unarj e','arc eno','lharc eqf','unzip -q -o','zoo eOq');

$maxunpack=5;

if ($#ARGV > 0) { exit(1); }

open(in,"<$ARGV[0]") || exit(1);
$val=<in>;
close(in);

for ($i=0; $i<$maxunpack; $i++) {
	if ($val =~ /^$unpackid[$i]/) {
		exit(system("$unpacker[$i] $ARGV[0]")/256);
	}
}

exit(100); # this is no packet!
