Revision 4731
Added by daigle almost 16 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 4101 | 4101 |
if ($debug_enabled) {
|
| 4102 | 4102 |
# Write out the XML file for debugging purposes |
| 4103 | 4103 |
my $testFile = $tempDir . "/registry-eml-upload.xml"; |
| 4104 |
open (TFILE,">$testFile") || die ("Cant open xml file...\n");
|
|
| 4105 |
print TFILE $doc; |
|
| 4106 |
close(TFILE); |
|
| 4104 |
|
|
| 4105 |
if (open (TFILE,">$testFile")) {
|
|
| 4106 |
print TFILE $doc; |
|
| 4107 |
close(TFILE); |
|
| 4108 |
} else {
|
|
| 4109 |
debug("WARNING: Cant open xml file: $testFile");
|
|
| 4110 |
} |
|
| 4107 | 4111 |
} |
| 4108 | 4112 |
} |
| 4109 | 4113 |
|
Also available in: Unified diff
Don't die if the xml-debug file can't be written to the temporary directory. Instead, write a warning. Include the directions for making the temporary dir writable to the apache user in documentation.