#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Ernad::Erimp;

my $file=$ARGV[0] // '';
if(not $file) {
  print "show order in what file?\n";
  exit;
}
if(not -f $file) {
  print "I can't see the file $file\n";
  exit;
}

my $home_dir=$ENV{'HOME'};
my $ernad_dir="$home_dir/ernad";
my $xslt_dir="$ernad_dir/xslt";
my $xslt_file="$xslt_dir/show_order.xslt.xml";
if(not -f $xslt_file) {
  die "I can't the file $xslt_file.";
}

system("xsltproc $xslt_file $file");