#!/usr/bin/eperl

$service_list = `ls /usr/lib/opcenter/published/psadmin/services`;
@list = split(/\n/,$service_list);
foreach $_ (@list) {
if (/pyc/){
#print "a"
} elsif (/backup/) {
#print "b"
} elsif (/CVS/) {
#print "c"
} else {
print $_;
print "\n";
}
}
#print $service_list;
