Untitled

#!/usr/bin/perl
#

deleteFromODMvendor(`odmget vendor |grep "GUID" |grep "cm.icm"`);
deleteFromODMvendor(`odmget vendor |grep "GUID" |grep "cm.iic"`);
deleteFromODMvendor(`odmget vendor |grep "GUID" |grep "cmfp"`);
deleteFromODMclass("lpp", "name", `odmget lpp |grep "name" |grep "cm.icm"`);
deleteFromODMclass("lpp", "name", `odmget lpp |grep "name" |grep "cm.iic"`);
deleteFromODMclass("lpp", "name", `odmget lpp |grep "name" |grep "cmfp"`);
deleteFromODMclass("product", "lpp_name", `odmget product |grep "lpp_name" |grep "cm.icm"`);
deleteFromODMclass("product", "lpp_name", `odmget product |grep "lpp_name" |grep "cm.iic"`);
deleteFromODMclass("product", "lpp_name", `odmget product |grep "lpp_name" |grep "cmfp"`);

sub deleteFromODMvendor {
        my(@cmd) = @_;
 
        foreach(@cmd) {
                chomp;
                
                if (index($_, "PGUID") == -1) {
                        my $guid = substr($_, index($_, "\""));

        
                        my $delcmd = "odmdelete -q GUID=" . $guid . " -o vendor";

                        system($delcmd);

                };
        };

};

sub deleteFromODMclass {
        my ($className, $keyName, @cmd) = @_;

        foreach(@cmd) {
                chomp;
                my $name = substr($_, index($_, "\""));

                my $delcmd = "odmdelete -q $keyName=" . $name . " -o $className";

                system($delcmd);

        };
};