Changeset 3053 for trunk

Timestamp:

2002-03-06T12:07:22+13:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/create_distributions.pl (modified) (1 diff)

trunk/gsdl/bin/script/create_distributions.pl

@@ -759 +759 @@
     close VERSION;
     
-    # edit fnord.cpp
-#    my $fnord_file = &util::filename_cat ($tmpdir, "gsdl", "src", "w32server", "fnord.cpp");
-#    open (FNORD, $fnord_file) || die;
-#    $found = 0; $line = ""; $file = "";
-#    while (defined ($line = <FNORD>)) {
-#   if ($line =~ s/(\#define VERSIONSTRING \"version )x\.xx(\")/$1$version_num$2/) {
-#       $found ++;
-#   }
-#   $file .= $line;
-#    }
-#    close FNORD;
-#    if (!$found) {
-#   die "error while editing $fnord_file\n";
-#    } 
-    
-#    open (FNORD, ">$fnord_file") || die;
-#    print FNORD $file;
-#    close FNORD;
+    # edit gsdlconf.h
+    my $gsdlconf_file = &util::filename_cat ($tmpdir, "gsdl", "lib", "gsdlconf.h");
+    open (GSDLCONF, $gsdlconf_file) || die;
+    $found = 0; $line = ""; $file = "";
+    while (defined ($line = <GSDLCONF>)) {
+    if ($line =~ s/(\#define GSDL_VERSION \")x\.xx(\")/$1$version_num$2/) {
+        $found ++;
+    }
+    $file .= $line;
+    }
+    close GSDLCONF;
+    if (!$found) {
+    die "error while editing $gsdlconf_file\n";
+    } 
+    
+    open (GSDLCONF, ">$gsdlconf_file") || die;
+    print GSDLCONF $file;
+    close GSDLCONF;
 }