disable clean as long as it's dangerous
authorgc <gc>
Mon, 28 Mar 2005 15:29:22 +0000 (15:29 +0000)
committergc <gc>
Mon, 28 Mar 2005 15:29:22 +0000 (15:29 +0000)
bin/booh

index 9f2b4de64c2924431761667137f4767ecaeb72b2..770f9ecc944eaa19b0db028b255bb4f8a4fce941 100755 (executable)
--- a/bin/booh
+++ b/bin/booh
@@ -40,7 +40,7 @@ $options = [
 
     [ '--source',        '-s', GetoptLong::REQUIRED_ARGUMENT, _("Directory which contains original images/videos as files or subdirs") ],
     [ '--destination',   '-d', GetoptLong::REQUIRED_ARGUMENT, _("Directory which will contain the web-album") ],
-    [ '--clean',         '-c', GetoptLong::NO_ARGUMENT,       _("Clean destination directory") ],
+#    [ '--clean',         '-c', GetoptLong::NO_ARGUMENT,       _("Clean destination directory") ],
 
     [ '--theme',         '-t', GetoptLong::REQUIRED_ARGUMENT, _("Select HTML theme to use") ],
     [ '--config',        '-C', GetoptLong::REQUIRED_ARGUMENT, _("File containing config listing images and videos within directories with captions") ],
@@ -90,8 +90,8 @@ def handle_options
                 if $dest != make_dest_filename($dest)
                     die __("Sorry, destination directory can't contain non simple alphanumeric characters.")
                 end
-            when '--clean'
-                system("rm -rf #{$dest}")
+#            when '--clean'
+#                system("rm -rf #{$dest}")
 
             when '--theme'
                 select_theme(arg)