diff options
Diffstat (limited to 'SL2LS.pl')
-rwxr-xr-x | SL2LS.pl | 52 |
1 files changed, 27 insertions, 25 deletions
@@ -5,16 +5,17 @@ # 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"); +$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; +while ( $line = <SL> ) { + print LS $line; } unlink "sql-ledger.conf"; @@ -24,20 +25,21 @@ unlink "sql-ledger.conf"; &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; + ($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; } |