Show
Ignore:
Timestamp:
13.01.2015 16:16:20 (5 years ago)
Author:
jts21
Message:

Added gs-mkservlet script which creates a servlet with a valid site and interface.

Location:
main/trunk/package-kits/scripts
Files:
1 added
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/package-kits/scripts/perllib/Greenstone/XML/Tidy.pm

    r29680 r29684  
    116116# Writes a data structure to an XML file 
    117117sub write_xml { 
    118     my ($hash, $file) = @_; 
     118    my ($hash, $file, $mode) = @_; 
     119    $mode = '>' unless defined $mode; 
    119120    my $FH; 
    120121    if ($file ne '-') { 
    121         unless (open $FH, '>:utf8', $file) { 
     122        unless (open $FH, $mode . ':utf8', $file) { 
    122123            print STDERR "Failed to open output file '$file': $!\n"; 
    123124            return 0;