#!/usr/bin/perl
#
# Copyright (c) 2004 Javier Gutierrez <javier.gutierrez@tap3edit.com>.
# All rights reserved. This program is free software; you can redistribute
# it and/or modify it under the same terms as Perl itself.
# http://www.tap3edit.com
#  
#  en: show the basic information of RAP and TAP files.
#  de: zeigt grunlegende Information eines RAP/TAP File.
#  sp: muestra la informaci&oacute;n b&aacute;sica de un archivo RAP/TAP.
#  

use TAP3::Tap3edit;

$filename=shift;

if ( ! $filename ) {
	die "Usage: perl $0 filename\n";
}


$tap3 = TAP3::Tap3edit->new();
$tap3->get_info($filename) || die $tap3->error;

print "$filename->Version: ".$tap3->version."\n";
print "$filename->Release: ".$tap3->release."\n";

print "$filename->TAP Version: ".$tap3->supl_version."\n" if $tap3->supl_version;
print "$filename->TAP Release: ".$tap3->supl_release."\n" if $tap3->supl_release;