Changeset 29678 for main/trunk/package-kits/scripts/perllib/Greenstone/Site.pm

Timestamp:

2015-01-09T14:24:10+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Moved xml i/o handling to the module for simplicity of use

File:

• main/trunk/package-kits/scripts/perllib/Greenstone/Site.pm (modified) (1 diff)

main/trunk/package-kits/scripts/perllib/Greenstone/Site.pm

@@ -25 +25 @@
     my $dir = $self->dir;
     mkdir "$dir/collect" or die "Failed to create collections directory: $!\n";
-    open FH, '>', "$dir/siteConfig.xml" or die "Failed to create site config: $!\n";
-    write_xml $configTemplate, *FH;
-    close FH;
-    return 1;
+    return write_xml $configTemplate, "$dir/siteConfig.xml";
 }