Revision 2644
Added by sgarg about 19 years ago
register-dataset.cgi | ||
---|---|---|
84 | 84 |
$config->define("hasMethod", { DEFAULT => 'true'} ); |
85 | 85 |
$config->define("temporalRequired", { DEFAULT => 'true'} ); |
86 | 86 |
$config->define("spatialRequired", { DEFAULT => 'true'} ); |
87 |
$config->define("publicReadable", { DEFAULT => 'true'} ); |
|
87 | 88 |
$config->define("mailhost"); |
88 | 89 |
$config->define("sender"); |
89 | 90 |
$config->define("recipient"); |
... | ... | |
141 | 142 |
my $hasMethod = $config->hasMethod(); |
142 | 143 |
my $temporalRequired = $config->temporalRequired(); |
143 | 144 |
my $spatialRequired = $config->spatialRequired(); |
145 |
my $publicReadable = $config->publicReadable(); |
|
144 | 146 |
my $mailhost = $config->mailhost(); |
145 | 147 |
my $sender = $config->sender(); |
146 | 148 |
my $recipient = $config->recipient(); |
... | ... | |
599 | 601 |
push(@invalidParams, "Geographic description is missing.") |
600 | 602 |
unless (hasContent($FORM::geogdesc) || $FORM::spatialRequired ne 'true'); |
601 | 603 |
|
602 |
if($FORM::beginningMonth eq "00"){
|
|
603 |
if (hasContent($FORM::beginningYear)){ |
|
604 |
$FORM::beginningMonth = "01"; |
|
605 |
} else { |
|
604 |
if($FORM::beginningMonth eq "MM"){
|
|
605 |
#if (hasContent($FORM::beginningYear)){
|
|
606 |
# $FORM::beginningMonth = "01";
|
|
607 |
#} else {
|
|
606 | 608 |
$FORM::beginningMonth = ""; |
607 |
} |
|
609 |
#}
|
|
608 | 610 |
} |
609 |
if($FORM::beginningDay eq "00"){
|
|
610 |
if (hasContent($FORM::beginningYear)){ |
|
611 |
$FORM::beginningDay = "01"; |
|
612 |
} else { |
|
611 |
if($FORM::beginningDay eq "DD"){
|
|
612 |
#if (hasContent($FORM::beginningYear)){
|
|
613 |
# $FORM::beginningDay = "01";
|
|
614 |
#} else {
|
|
613 | 615 |
$FORM::beginningDay = ""; |
614 |
} |
|
616 |
#}
|
|
615 | 617 |
} |
616 |
if($FORM::endingMonth eq "00"){
|
|
617 |
if (hasContent($FORM::endingYear)){ |
|
618 |
$FORM::endingMonth = "01"; |
|
619 |
} else { |
|
618 |
if($FORM::endingMonth eq "MM"){
|
|
619 |
#if (hasContent($FORM::endingYear)){
|
|
620 |
# $FORM::endingMonth = "01";
|
|
621 |
#} else {
|
|
620 | 622 |
$FORM::endingMonth = ""; |
621 |
} |
|
623 |
#}
|
|
622 | 624 |
} |
623 |
if($FORM::endingDay eq "00"){
|
|
624 |
if (hasContent($FORM::endingYear)){ |
|
625 |
$FORM::endingDay = "01"; |
|
626 |
} else { |
|
625 |
if($FORM::endingDay eq "DD"){
|
|
626 |
#if (hasContent($FORM::endingYear)){
|
|
627 |
# $FORM::endingDay = "01";
|
|
628 |
#} else {
|
|
627 | 629 |
$FORM::endingDay = ""; |
628 |
} |
|
630 |
#}
|
|
629 | 631 |
} |
630 | 632 |
|
631 | 633 |
if (hasContent($FORM::beginningYear) && !($FORM::beginningYear =~ /[0-9][0-9][0-9][0-9]/)){ |
... | ... | |
1217 | 1219 |
my $month = ("JAN","FEB","MAR","APR","MAY","JUN", |
1218 | 1220 |
"JUL","AUG","SEP","OCT","NOV","DEC") |
1219 | 1221 |
[$FORM::beginningMonth - 1]; |
1220 |
$cov .= "<beginDate>\n"; |
|
1221 |
$cov .= "<calendarDate>"; |
|
1222 |
$cov .= normalize($FORM::beginningYear)."-".normalize($FORM::beginningMonth)."-".normalize($FORM::beginningDay); |
|
1223 |
$cov .= "</calendarDate>\n"; |
|
1224 |
$cov .= "</beginDate>\n"; |
|
1222 |
if (hasContent($FORM::beginningDay)) { |
|
1223 |
$cov .= "<beginDate>\n"; |
|
1224 |
$cov .= "<calendarDate>"; |
|
1225 |
$cov .= normalize($FORM::beginningYear)."-".normalize($FORM::beginningMonth)."-".normalize($FORM::beginningDay); |
|
1226 |
$cov .= "</calendarDate>\n"; |
|
1227 |
$cov .= "</beginDate>\n"; |
|
1228 |
} else { |
|
1229 |
$cov .= "<beginDate>\n"; |
|
1230 |
$cov .= "<calendarDate>"; |
|
1231 |
$cov .= normalize($FORM::beginningYear)."-".normalize($FORM::beginningMonth)."-01"; |
|
1232 |
$cov .= "</calendarDate>\n"; |
|
1233 |
$cov .= "</beginDate>\n"; |
|
1234 |
} |
|
1225 | 1235 |
} else { |
1226 | 1236 |
$cov .= "<beginDate>\n"; |
1227 | 1237 |
$cov .= "<calendarDate>"; |
... | ... | |
1234 | 1244 |
my $month = ("JAN","FEB","MAR","APR","MAY","JUN", |
1235 | 1245 |
"JUL","AUG","SEP","OCT","NOV","DEC") |
1236 | 1246 |
[$FORM::endingMonth - 1]; |
1237 |
$cov .= "<endDate>\n"; |
|
1238 |
$cov .= "<calendarDate>"; |
|
1239 |
$cov .= normalize($FORM::endingYear)."-".normalize($FORM::endingMonth)."-".normalize($FORM::endingDay); |
|
1240 |
$cov .= "</calendarDate>\n"; |
|
1241 |
$cov .= "</endDate>\n"; |
|
1247 |
|
|
1248 |
if (hasContent($FORM::endingDay)) { |
|
1249 |
$cov .= "<endDate>\n"; |
|
1250 |
$cov .= "<calendarDate>"; |
|
1251 |
$cov .= normalize($FORM::endingYear)."-".normalize($FORM::endingMonth)."-".normalize($FORM::endingDay); |
|
1252 |
$cov .= "</calendarDate>\n"; |
|
1253 |
$cov .= "</endDate>\n"; |
|
1254 |
} else { |
|
1255 |
$cov .= "<endDate>\n"; |
|
1256 |
$cov .= "<calendarDate>"; |
|
1257 |
$cov .= normalize($FORM::endingYear)."-".normalize($FORM::endingMonth)."-01"; |
|
1258 |
$cov .= "</calendarDate>\n"; |
|
1259 |
$cov .= "</endDate>\n"; |
|
1260 |
} |
|
1242 | 1261 |
} else { |
1243 | 1262 |
$cov .= "<endDate>\n"; |
1244 | 1263 |
$cov .= "<calendarDate>"; |
... | ... | |
1256 | 1275 |
my $month = ("JAN","FEB","MAR","APR","MAY","JUN", |
1257 | 1276 |
"JUL","AUG","SEP","OCT","NOV","DEC") |
1258 | 1277 |
[$FORM::beginningMonth - 1]; |
1259 |
$cov .= "<calendarDate>"; |
|
1260 |
$cov .= normalize($FORM::beginningYear)."-".normalize($FORM::beginningMonth)."-".normalize($FORM::beginningDay); |
|
1261 |
$cov .= "</calendarDate>\n"; |
|
1278 |
|
|
1279 |
if (hasContent($FORM::beginningDay)) { |
|
1280 |
$cov .= "<calendarDate>"; |
|
1281 |
$cov .= normalize($FORM::beginningYear)."-".normalize($FORM::beginningMonth)."-".normalize($FORM::beginningDay); |
|
1282 |
$cov .= "</calendarDate>\n"; |
|
1283 |
} else { |
|
1284 |
$cov .= "<calendarDate>"; |
|
1285 |
$cov .= normalize($FORM::beginningYear)."-".normalize($FORM::beginningMonth)."-01"; |
|
1286 |
$cov .= "</calendarDate>\n"; |
|
1287 |
} |
|
1262 | 1288 |
} else { |
1263 | 1289 |
$cov .= "<calendarDate>"; |
1264 | 1290 |
$cov .= normalize($FORM::beginningYear); |
... | ... | |
1399 | 1425 |
$doc .= "<principal>uid=$FORM::username,o=$FORM::organization,dc=ecoinformatics,dc=org</principal>\n"; |
1400 | 1426 |
$doc .= "<permission>all</permission>\n"; |
1401 | 1427 |
$doc .= "</allow>\n"; |
1402 |
$doc .= "<allow>\n"; |
|
1403 |
$doc .= "<principal>public</principal>\n"; |
|
1404 |
$doc .= "<permission>read</permission>\n"; |
|
1405 |
$doc .= "</allow>\n"; |
|
1428 |
if($publicReadable eq "true"){ |
|
1429 |
$doc .= "<allow>\n"; |
|
1430 |
$doc .= "<principal>public</principal>\n"; |
|
1431 |
$doc .= "<permission>read</permission>\n"; |
|
1432 |
$doc .= "</allow>\n"; |
|
1433 |
} |
|
1406 | 1434 |
$doc .= "</access>\n"; |
1407 | 1435 |
|
1408 | 1436 |
$doc .= "</dataset>\n</eml:eml>\n"; |
Also available in: Unified diff
Fix for bug 2220. And check the cfg file if the eml documents generated should be publically readable or not.