SF.net SVN: ledger-smb: [503] trunk/dists

[..hidden..]

Revision: 503
          http://svn.sourceforge.net/ledger-smb/?rev=503&view=rev
Author:   einhverfr
Date:     2006-11-10 09:46:46 -0800 (Fri, 10 Nov 2006)

Log Message:
-----------
Added shebang scripts for Windows

Added Paths:
-----------
    trunk/dists/win32/
    trunk/dists/win32/shebang-activeperl.pl
    trunk/dists/win32/shebang-vanilla.pl

Added: trunk/dists/win32/shebang-activeperl.pl
===================================================================
--- trunk/dists/win32/shebang-activeperl.pl	                        (rev 0)
+++ trunk/dists/win32/shebang-activeperl.pl	2006-11-10 17:46:46 UTC (rev 503)
@@ -0,0 +1,24 @@
+#!c:\perl\bin\perl
+# Use this script to convert the beginnings of files to the path to ActivePerl 
+# if you are installing with ActivePerl.
+
+  opendir DIR, ".";
+  @perlfiles = grep /\.pl/, readdir DIR;
+  closedir DIR;
+
+  foreach $file (@perlfiles) {
+    open FH, "+<$file";
+    
+    @file = <FH>;
+
+    seek(FH, 0, 0);
+    truncate(FH, 0);
+
+    $line = shift @file;
+
+    print FH "#!c:\\perl\\bin\\perl\n";
+    print FH @file;
+
+    close(FH);
+    
+  }

Added: trunk/dists/win32/shebang-vanilla.pl
===================================================================
--- trunk/dists/win32/shebang-vanilla.pl	                        (rev 0)
+++ trunk/dists/win32/shebang-vanilla.pl	2006-11-10 17:46:46 UTC (rev 503)
@@ -0,0 +1,24 @@
+#!c:\vanilla-perl\perl\bin
+# Use this script to convert the beginnings of files to the path to ActivePerl 
+# if you are installing with Vanilla Perl.
+
+  opendir DIR, ".";
+  @perlfiles = grep /\.pl/, readdir DIR;
+  closedir DIR;
+
+  foreach $file (@perlfiles) {
+    open FH, "+<$file";
+    
+    @file = <FH>;
+
+    seek(FH, 0, 0);
+    truncate(FH, 0);
+
+    $line = shift @file;
+
+    print FH "#!c:\\vanilla-perl\\perl\\bin\n";
+    print FH @file;
+
+    close(FH);
+    
+  }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.