summaryrefslogtreecommitdiff
path: root/SL2LS.pl
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-17 05:43:36 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-17 05:43:36 +0000
commit49bc4af1b75ed950a0e8dd6dabb9299890d1e5fb (patch)
tree2a20d6c98149015e9194342dca5a362f5ce601c5 /SL2LS.pl
parent14a0859a4abada7595e24a7b3158cb13e7676aaa (diff)
Removing outdated docs
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@651 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'SL2LS.pl')
-rwxr-xr-xSL2LS.pl43
1 files changed, 0 insertions, 43 deletions
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;
-}