Changeset 5837

Timestamp:

2003-11-13T15:40:09+13:00 (20 years ago)

Author:

kjdon

Message:

now creates an autorun.inf file so teh cd will launch automatically

File:

• trunk/gsdl/bin/script/exportcol.pl (modified) (2 diffs)

trunk/gsdl/bin/script/exportcol.pl

@@ -76 +76 @@
     print $out "  $colindexdir\n";
     print $out "  $coletcdir\n";
+    die "\n";
     }
 
@@ -127 +128 @@
     close MANIFESTCFG;
 
+    #create the autorun.inf file
+    my $autoruninf = &util::filename_cat ($topdir, "Autorun.inf");
+    if (!open (AUTORUNINF, ">$autoruninf")) {
+    print $out "exportcol.pl failed: Could not create $autoruninf\n";
+    die "\n";
+    }
+    
+    print AUTORUNINF "[autorun]\n";
+    print AUTORUNINF "OPEN=Setup.exe\n";
+    close AUTORUNINF;
+    
     # copy the necessary stuff from GSDLHOME
     my $imagesdir = &util::filename_cat ($ENV{'GSDLHOME'}, "images");