diff options
Diffstat (limited to 'SL2LS.pl')
-rwxr-xr-x | SL2LS.pl | 43 |
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; -} |