From 49bc4af1b75ed950a0e8dd6dabb9299890d1e5fb Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 17 Nov 2006 05:43:36 +0000
Subject: Removing outdated docs

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@651 4979c152-3d1c-0410-bac9-87ea11338e46
---
 SL2LS.pl | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100755 SL2LS.pl

(limited to 'SL2LS.pl')

diff --git a/SL2LS.pl b/SL2LS.pl
deleted file mode 100755
index 3a92b88a..00000000
--- a/SL2LS.pl
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl
-
-# http://www.ledgersmb.org/
-#
-# Simple script.  Right now, all that needs to be done is that the SL directory
-# needs to be deleted and the sql-ledger.conf needs to be renamed.
-
-$filedie = "To install manually:\n" .
-	" Rename the sql-ledger.conf to ledger-smb.conf\n".
-	" Delete the SL directory (optional but HIGHLY recommended)\n";
-open (SL, "< sql-ledger.conf") || die (
-	"Could not open sql-ledger.conf: $! \n\n $filedie");
-open (LS, "> ledger-smb.conf") || die (
-	"Could not open ledger-smb.conf: $! \n $filedie");
-
-while ($line = <SL>){
-  print LS $line;
-}
-
-unlink "sql-ledger.conf";
-
-#TODO:  Move/Delete the SL directory
-
-&recursive_unlink("SL");
-
-sub recursive_unlink {
-	($dir) = shift @_;
-	print "Recursively deleting $dir\n";
-	opendir (DIR, $dir);
-	while ($file = readdir DIR){
-		if ($file !~ /^\.+$/){
-			$file = "$dir/$file";
-			if (-f $file){
-				unlink $file;
-			} elsif (-d $file){
-				&recursive_unlink("$file");
-			}
-		}
-	}
-	closedir(DIR);
-	print "Removing $dir\n"; 
-	rmdir $dir;
-}
-- 
cgit v1.2.3