#!/usr/local/bin/perl


use Data::Dumper;

# GET DEVTOOLS
open (DTOOLS, "devtools.data");
@devtools= <DTOOLS>;
close (DTOOLS);

# GET SYSINFO
open (SYS, "sysinfo.data");
@system= <SYS>;
close (SYS);


foreach $line (@devtools) {
        ($sys, $pp, $midd, $fos, $db, $dbt, $dlang, $fil, $dtools, $stools, $scm, $tt, $dest, $url, $lastupdate)
                 = split (/!/, $line);
        # Build HoH for devtools;
        $HoH{$sys}{'Production Platforms'}      = $pp;
        $HoH{$sys}{'Middleware'}                = $midd;
        $HoH{$sys}{'Fail Over Software'}        = $fos;
        $HoH{$sys}{'Database'}                  = $db;
        $HoH{$sys}{'Database Tools'}            = $dbt;
        $HoH{$sys}{'Development Languages'}     = $dlang;
        $HoH{$sys}{'Found Internal Libraries'}  = $fil;
        $HoH{$sys}{'Development Tools'}         = $dtools;
        $HoH{$sys}{'Support Tools'}             = $stools;
        $HoH{$sys}{'Source Code Management'}    = $scm;
        $HoH{$sys}{'Test Tools'}                = $tt;
        $HoH{$sys}{'Design Tools'}              = $dest;
        $HoH{$sys}{'URL'}                       = $url;
        $HoH{$sys}{'Last Update'}               = $lastupdate;
}


foreach $line (@system) {
        ($sys, $sys_name, $grp, $auth) = split (/!/, $line);
        # Build HoH for devtools;
        $HoH{$sys}{'System Name'}        = $sys_name;
        $HoH{$sys}{'Group'}        = $grp;
        $HoH{$sys}{'Authorization'}       = $auth;
}


##print Dumper(\%HoH);