#!/usr/bin/env perl -l

use strict;
use warnings;

no strict 'vars';
our %licensehash = (
    CI => {
        CI_CTAG => ['','',"", "Customer Name", 1, '[^0-9a-zA-Z\-]', [@new_license_versions]],
        CI_CID => ['','',"", "Chassis Serial", 1, '[^0-9a-zA-Z]', [@new_license_versions]],
        CI_UID1 => ['','',"", "MAC 1/UUID", 0, '[^0-9a-zA-Z:-]', [$iTX_2_7_VERSION, $iTX_SBB_VERSION_val]],
        CI_UID2 => ['','',"", "MAC 2", 0, '[^0-9a-zA-Z:-]', [$iTX_2_7_VERSION]],
        CI_SER => ['','',"", "Lenovo Serial", 0, '[^0-9a-zA-Z]', [$iTX_Lenovo_VERSION_val]],
        CI_UUID => ['','',"", "Lenovo UUID", 0, '[^0-9a-zA-Z]', [$iTX_Lenovo_VERSION_val]],
        CI_E => ['','',"0", "Epoc", 0, '[^0-9]', [@new_license_versions]], #0 unlicensed, 1 first license
    },
    COM => {
        COM_PV => ['','',$iTX_SBB_VERSION_val, "iTX Version", 1, '[^0-9.]', [@new_license_versions]],
        COM_MV => ['','',$VERSION, "LMU Version", 0, '[^0-9.]', [@new_license_versions]],
        COM_KT => ['','',"MASTER", "Key Type", 0, 'MASTER', [@new_license_versions]],
        COM_CD => ['','',sub{sprintf '%04d-%02d-%02d', $_[5]+1900, $_[4]+1, $_[3]}->(localtime), "Creation Date", 0, '[^0-9\-]', [@new_license_versions]],
        COM_USER => ['','',sub{qx"echo %username%"}, "Creation User", 0, '[^0-9a-zA-Z\-]', [@new_license_versions]],
    },
    ISCSI => {
        ISCSI_T => ['','',"-1", "iSCSI", 1, "-1,89478485", [@new_license_versions]],
    },
    NAS => {
        NAS_T => ['','',"0", "NAS", 1, "-1,89478485", [$iTX_Lenovo_VERSION_val, $iTX_2_7_VERSION]],
    },
    RPL => {
        RPL_T => ['','',"-1", "Sync Replication", 1, "-1,89478485", [@new_license_versions]],
    },
);
use strict 'vars';

my @to_sort;

foreach my $tag (keys %licensehash) {
    foreach my $type (keys %{$licensehash{$tag}}) {
        push @to_sort, [$tag, $type, $licensehash{$tag}{$type}[3]];
    }
}   

my @sorted = sort { $a->[2] cmp $b->[2] } @to_sort;

use Data::Dump;
for (@sorted) {
    print "Sort value: $_->[2]; Tag key: $_->[0]; Type key: $_->[1]";
    dd $licensehash{$_->[0]}{$_->[1]};
}