source: trunk/gsdl/bin/script/gsdlinfo.pl@ 91

#!/usr/local/bin/perl5 -w

# This program will look to see what collections are installed
# under this file system

BEGIN {
    die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
    unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
}

use parsargv;
use colcfg;


# the collection information is stored as an array of hashes
# (one hash for each collection). The hash contains all the 
# information in the collect and build configuration files


# read in all the collection configuration information

opendir (DIR, "$ENV{'GSDLHOME'}/collect") ||
    die "ERROR - couldn't read the directory $ENV{'GSDLHOME'}/collect\n";
@dir = readdir (DIR);
closedir (DIR);

@collections = ();
foreach $dir (@dir) {
    if ($dir =~ /^(\..*|modelcol|CVS)$/) {
    # do nothing

    } else {
    # read in the collection configuration file
    my $collectcfg = {};
    if (-e "$ENV{'GSDLHOME'}/collect/$dir/etc/collect.cfg") {
        $collectcfg = &colcfg::read_collect_cfg ("$ENV{'GSDLHOME'}/collect/$dir/etc/collect.cfg");
    }
    $collectcfg->{'collection'} = $dir;

    # read in the build configuration file
    my $buildcfg = {};
    if (-e "$ENV{'GSDLHOME'}/collect/$dir/index/build.cfg") {
        $buildcfg = &colcfg::read_build_cfg ("$ENV{'GSDLHOME'}/collect/$dir/index/build.cfg");
    }

    # add the merged configuration files to the current list of collections
    push (@collections, {%$collectcfg, %$buildcfg});
    }
}


# do any sorting requested


# print out the collection information

# {'creator'}->string
# {'maintainer'}->array of strings
# {'public'}->string
# {'beta'}->string
# {'key'}->string
# {'indexes'}->array of strings
# {'defaultindex'}->string
# {'builddate'}->string
# {'metadata'}->array of strings
# {'languages'}->array of strings
# {'numdocs'}->string
# {'numwords'}->string
# {'numbytes'}->string

print "\n";
foreach $info (@collections) {
    if (defined $info->{'collection'}) {
    $collection = $info->{'collection'};
    if (defined $info->{'public'}) {
        $public = $info->{'public'};
    } else {
        $public = "?";
    }
    if (defined $info->{'beta'}) {
        $beta = $info->{'beta'};
    } else {
        $beta = "?";
    }
    if (defined $info->{'numdocs'}) {
        $numdocs = $info->{'numdocs'};
    } else {
        $numdocs = "?";
    }
    if (defined $info->{'numbytes'}) {
        $numMbytes = int(($info->{'numbytes'}/1024.0/1024.0)*1000)/1000.0;
    } else {
        $numMbytes = "?";
    }
    write;
    }
}
print "\n";

exit;

format STDOUT_TOP = 
  name   public  beta   documents  size (Mbytes)
-------- ------ ------ ----------- -------------
.

format STDOUT = 
@>>>>>>> @>>>>> @>>>>> @>>>>>>>>>> @>>>>>>>>>>>>
$collection, $public, $beta, $numdocs, $numMbytes
.