mgaiso-checkmd5


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl

use strict;
use MGATools::iso qw(include_md5);

@ARGV || exit(1);

my $isofile = $ARGV[0];
my $err = include_md5($isofile, 0, 1);
print $err;