use strict;

use lib '/app/tools/common/lib';
use Common::Permission;
use Common::DB::Item::Permission;
use Common::RSApp;
my $app = new Common::RSApp( clientID => 99 );

my $perms = Common::Permission::tempGetHash();

foreach my $app ( keys %$perms ) {
    my $areaHash = $perms->{$app};
    foreach my $area ( keys %$areaHash ) {
        my $commandHash = $areaHash->{$area};
        foreach my $command ( keys %$commandHash ) {
            my $levelArray = $commandHash->{$command};
            foreach my $level (@$levelArray) {
                print "$app $area $command $level\n";
                my $dbItem = Common::DB::Item::Permission->Create(
                    application     => $app,
                    area            => $area,
                    command         => $command,
                    access_level_id => $level,
                );
                $dbItem->save();
            }
        }
    }
}