#!/Perl/bin/perl

use strict;
use warnings;

my $task = $ARGV[0];
my $input = $ARGV[1];

if( $task eq 'filename' ) {
	my ($oxartnum) = $input =~ m~.+\\([^\\]+).html~;
	$ENV{current_oxartnum} = $oxartnum;
	print "set oxartnum to $oxartnum\n";
}else{
	my $oxartnum = $ENV{current_oxartnum};
	print "new segment: <$oxartnum, $input>\n";
}