Changeset 20096
- Timestamp:
- 2009-07-29T12:12:47+12:00 (14 years ago)
- Location:
- gsdl/trunk/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/buildConfigxml.pm
r20094 r20096 1 1 ########################################################################### 2 2 # 3 # cfgread4gs3.pm --3 # buildConfigxml.pm -- 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 26 26 # reads in configuration files of xml form 27 27 28 package cfgread4gs3;28 package buildConfigxml; 29 29 use strict; 30 30 no strict 'refs'; … … 461 461 # the received args: $buildoutfile - destination file: buildConfig.xml 462 462 # $buildcfg - all build options, eg, disable_OAI 463 # $collectcfg - contents of collectionConfig.xml read in by read_cfg_file sub in cfgread4gs3.pm.463 # $collectcfg - contents of collectionConfig.xml read in by read_cfg_file sub in buildConfigxml.pm. 464 464 my ($buildoutfile, $buildcfg, $collectcfg, $disable_OAI) = @_; 465 465 my $line = []; 466 466 467 467 if (!open (COLCFG, ">$buildoutfile")) { 468 print STDERR " cfgread4gs3::write_cfg_file couldn't write the build config file $buildoutfile\n";468 print STDERR "buildConfigxml::write_cfg_file couldn't write the build config file $buildoutfile\n"; 469 469 die; 470 470 } -
gsdl/trunk/perllib/collConfigxml.pm
r20094 r20096 1 1 ########################################################################### 2 2 # 3 # c fgread4gs3.pm --3 # collConfigxml.pm -- 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 26 26 # reads in configuration files of xml form 27 27 28 package c fgread4gs3;28 package collConfigxml; 29 29 use strict; 30 30 no strict 'refs'; … … 461 461 # the received args: $buildoutfile - destination file: buildConfig.xml 462 462 # $buildcfg - all build options, eg, disable_OAI 463 # $collectcfg - contents of collectionConfig.xml read in by read_cfg_file sub in c fgread4gs3.pm.463 # $collectcfg - contents of collectionConfig.xml read in by read_cfg_file sub in collConfigxml.pm. 464 464 my ($buildoutfile, $buildcfg, $collectcfg, $disable_OAI) = @_; 465 465 my $line = []; 466 466 467 467 if (!open (COLCFG, ">$buildoutfile")) { 468 print STDERR "c fgread4gs3::write_cfg_file couldn't write the build config file $buildoutfile\n";468 print STDERR "collConfigxml::write_cfg_file couldn't write the build config file $buildoutfile\n"; 469 469 die; 470 470 }
Note:
See TracChangeset
for help on using the changeset viewer.