23 lines
506 B
Perl
23 lines
506 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use confdb;
|
|
|
|
###############################################################################
|
|
# main program
|
|
###############################################################################
|
|
|
|
my $app = "testapp";
|
|
|
|
my @ret = get_profiles($app);
|
|
foreach my $a (@ret) {
|
|
print "$a\n";
|
|
}
|
|
|
|
0; # end with exit code 0
|
|
###############################################################################
|
|
# subs
|
|
###############################################################################
|
|
|
|
|