Metacat

#!/usr/bin/perl

#

#  '$RCSfile$'

#  Copyright: 2000 Regents of the University of California

#

#   '$Author$'

#     '$Date$'

# '$Revision$'

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

#

#

# This is a CGI application for inserting metadata documents into

# the Metacat database.  It utilizes the Metacat.pm module for most work.

# You can specify two metacats and a list of documents. This script will

# copy documents from one metacat to another.

# read variables from registry.cfg

use File::Copy;

use IO::File;

use strict;

my $scope     = readReqdParam("Enter the scope name:");

my $org       = readReqdParam("Enter the organization name:");

my $orgabbrev = readReqdParam("Enter the organization abbreviation:");

my $orgurl    = readReqdParam("Enter the organization URL:");

my $username  = readParam("Enter the username:", "uid=".$scope."admin,o=".$orgabbrev.",dc=ecoinformatics,dc=org");

my $password  = readParam("Enter the password:", "");

my $mailhost  = readParam("Enter the mailhost name:", "hyperion.nceas.ucsb.edu");

my $adminName  = readParam("Enter the Administrator's name:", "adminName");

my $adminEmail  = readParam("Enter the administrator's email address:", "email\@admin");

my $senderEmail  = readParam("Enter the sender's email address:", "registry\@$org");

my $debugLevel  = readParam("Enter the debug level:", "0");

my $hasKeyword  = readParam("Do you want to add keywords to this skin [Yes/No]:", "Yes");

my $hasMethod  = readParam("Do you want to add methods to this skin [Yes/No]:", "Yes");

my $hasSpatial  = readParam("Do you want to add spatial coverage to this skin [Yes/No]:", "Yes");

my $hasTemporal  = readParam("Do you want to add temporal coverage in this skin [Yes/No]:", "Yes");

my $hasTaxonomic  = readParam("Do you want to see taxonomic coverage in this skin [Yes/No]:", "Yes");

mkdir "../../../lib/style/skins/$scope", 0744;

writeConfigFile();

copyFile('searchform.html');

copyFile('index.html');

copyFile('header.html');

copyAndRenameFile('xml');

copyAndRenameFile('css');

copyAndRenameFile('js');

sub readParam{

    my $printString = shift;

    my $defaultValue = shift;

    print "$printString [$defaultValue]\n";

    my $returnVal = <>;

    chomp $returnVal;

    if($returnVal eq ""){

	$returnVal = $defaultValue;

    }

    return $returnVal;

}

sub readReqdParam{

    my $printString = shift;

    print "$printString\n";

    my $returnVal = <>;

    chomp $returnVal;

    while($returnVal eq ""){

	print "This value is required. $printString\n";

	$returnVal = <>;

	chomp $returnVal;

    }

    return $returnVal;

}

sub writeConfigFile{

    my $configText = "";

    $configText .= "#"."\n";

    $configText .= "# General configuration parameters"."\n";

    $configText .= "#"."\n";

    $configText .= "metacatUrl = http://\@server\@\@servlet-path\@"."\n";

    $configText .= "username = ".$username."\n";

    $configText .= "password = ".$password."\n";

    $configText .= "ldapUrl = \@ldapUrl\@"."\n";

    $configText .= "defaultScope = $scope"."\n";

    $configText .= "organization = $org"."\n";

    $configText .= "orgabbrev = $orgabbrev"."\n";

    $configText .= "orgurl = $orgurl"."\n";

    $configText .= "responseTemplate = \@responseForm\@"."\n";

    $configText .= "entryFormTemplate = \@entryForm\@"."\n";

    $configText .= "guideTemplate = \@guide\@"."\n";

    $configText .= "confirmDataTemplate = \@confirmData\@"."\n";

    $configText .= "deleteDataTemplate = \@deleteData\@"."\n";

    if($hasKeyword ne "Yes" && $hasKeyword ne "yes"){

	$configText .= "hasKeyword = false"."\n";

    }

    if($hasMethod ne "Yes" && $hasMethod ne "yes"){

	$configText .= "hasMethod = false"."\n";

    }

    if($hasSpatial ne "Yes" && $hasSpatial ne "yes"){

	$configText .= "hasSpatial = false"."\n";

    } else {

	my $spatialRequired  = readParam("Do you want to make spatial coverage required [Yes/No]:", "Yes");

	if($spatialRequired ne "Yes" && $spatialRequired ne "yes"){

	    $configText .= "spatialRequired = false"."\n";

	}

    }

    if($hasTaxonomic ne "Yes" && $hasTaxonomic ne "yes"){

	$configText .= "hasTaxonomic = false"."\n";

    }

    if($hasTemporal ne "Yes" && $hasTemporal ne "yes"){

	$configText .= "hasTemporal = false"."\n";

    } else {

	my $temporalRequired  = readParam("Do you want to make temporal coverage required [Yes/No]:", "Yes");

	if($temporalRequired ne "Yes" && $temporalRequired ne "yes"){

	    $configText .= "temporalRequired = false"."\n";

	}

    }

    $configText .= "accesspubid = -//ecoinformatics.org//eml-access-2.0.0beta6//EN"."\n";

    $configText .= "accesssysid = eml-access.dtd"."\n";

    $configText .= "datasetpubid = eml://ecoinformatics.org/eml-dataset-2.0.0"."\n";

    $configText .= "datasetsysid = eml-dataset.dtd"."\n";

    $configText .= "mailhost = ".$mailhost."\n";

    $configText .= "sender = ".$senderEmail."\n";

    $configText .= "recipient = ".$adminEmail."\n";

    $configText .= "adminname = ".$adminName."\n";

    $configText .= "debug = ".$debugLevel."\n";

    $configText .= "adminIsDocOwner = 'false'\n";

    $configText .= "# These are the sites and their coordinates. Coordinates are in"."\n";

    $configText .= "# degrees:minutes:seconds:direction format"."\n";

    $configText .= "# Make sure there is a lat/lon pair for every site"."\n";

    $configText .= "#"."\n";

    $configText .= "# example format ..."."\n";

    $configText .= "# lat [UK] Harwood forest[Sitka Spruce] = 55:12:46:N"."\n";

    $configText .= "# lon [UK] Harwood forest[Sitka Spruce] = 2:2:15:W"."\n";

    #print $configText;

    my $writefilehandle = new IO::File;

    $writefilehandle->open(">../../../lib/style/skins/$scope/$scope.cfg") or die "Could not open ../../../lib/style/skins/$scope/$scope.cfg";

    $writefilehandle->write($configText, length($configText));

    $writefilehandle->close;

}

sub copyFile{

    my $filename = shift;

    my $readfilehandle = new IO::File;

    $readfilehandle->open("<$filename") or die "Could not open $filename";

    my $text = "";

    my $newtext;

    while ($readfilehandle->read($newtext, 1)){

	$text .= $newtext;

    }

    $text =~ s/<\@scope\@>/$scope/g;

    $text =~ s/<\@organization\@>/$org/g;

    $text =~ s/<\@orgabbrev\@>/$orgabbrev/g;

    $text =~ s/<\@orgurl\@>/$orgurl/g;

    $readfilehandle->close;

    my $writefilehandle = new IO::File;

    $writefilehandle->open(">../../../lib/style/skins/$scope/$filename") or die "Could not open $filename";

    $writefilehandle->write($text, length($text));

    $readfilehandle->close;

    $writefilehandle->close;

}

sub copyAndRenameFile{

    my $ext = shift;

    my $readfilehandle = new IO::File;

    $readfilehandle->open("<scope.$ext") or die "Could not open scope.$ext";

    my $text = "";

    my $newtext;

    while ($readfilehandle->read($newtext, 1)){

	$text .= $newtext;

    }

    $text =~ s/<\@scope\@>/$scope/g;

    $text =~ s/<\@organization\@>/$org/g;

    $text =~ s/<\@orgabbrev\@>/$orgabbrev/g;

    $text =~ s/<\@orgurl\@>/$orgurl/g;

    $readfilehandle->close;

    my $writefilehandle = new IO::File;

    $writefilehandle->open(">../../../lib/style/skins/$scope/$scope.$ext") or die "Could not open ../../../lib/style/skins/$scope/$scope.$ext";

    $writefilehandle->write($text, length($text));

    $readfilehandle->close;

    $writefilehandle->close;

}