Changeset 4181
- Timestamp:
- 2003-04-17T14:22:51+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/inittranslation.pl
r4177 r4181 104 104 my $translationdb = util::filename_cat($translationdir, "translation.db"); 105 105 my %translationdata = (); 106 tie(%translationdata, "GDBM_File", $translationdb, GDBM_WRCREAT, 06 40);106 tie(%translationdata, "GDBM_File", $translationdb, GDBM_WRCREAT, 0666); 107 107 108 108 # Work out what the target language code should be, and store it in the database … … 114 114 # Start a new update database 115 115 my $updatedb = util::filename_cat($translationdir, "update.db"); 116 tie(%updatedata, "GDBM_File", $updatedb, GDBM_WRCREAT, 06 40);116 tie(%updatedata, "GDBM_File", $updatedb, GDBM_WRCREAT, 0666); 117 117 118 118 # Create the target language macro files if they don't exist
Note:
See TracChangeset
for help on using the changeset viewer.