#!/usr/bin/perl
#
# skif version 1.1 (C)opyright Christophe Gros 2003
#

use Carp;
use skif;
use Getopt::Long;
my $version, $help, $dbcode, $verbose;

sub fi
{
    my ($f) = @_;
    if($f =~ /\.aaf$/i)
    {
	my $s = new SKIF;
	$s->ReadAAF($f);
	$f =~ s/\.aaf$/.skif/i;
	open FILE, ">$f" || croak "Can't open $f !\n";
	print "write $f\n" if($verbose);
	print FILE $s->WriteSKIF;
	close FILE;
    }
    elsif($f =~ /\.skif$/i)
    {
	my $s = new SKIF;
	$s->ReadSKIF($f);
	$f =~ s/\.skif$/.aaf/i;
	open FILE, ">$f" || croak "Can't open $f !\n";
	print "write $f\n" if($verbose);
	print FILE $s->WriteAAF;
	close FILE;
    }
    elsif($f =~/\.kst$/i)
    {
	my $s = new SKIF;
	$s->ReadKst($f);
	$f =~ s/\.kst$/.skif/i;	
	open FILE, ">$f" || croak "Can't open $f !\n";
	print "write $f\n" if($verbose);
	print FILE $s->WriteSKIF;
	close FILE;	
    }
    else
    {
	print "Unknown file type !\n";
    }
}

GetOptions("version" => \$version, "dbcode" => \$dbcode, "help" => \$help,
"verbose" => \$verbose,  '<>' => \&fi);
print "skif version 1.1\n" if($version);
print "skif [--help] [--version] [--dbcode] [FILE...]\n" if($help); 
DATASET::WriteCode if($dbcode);
