Changeset 1450 in ProjectBuilder for projects/md2mb/devel

Timestamp:

Apr 4, 2012, 5:14:50 PM (12 years ago)

Author:

ebaudrez

Message:

turned $nrfile into a command-line option as well

File:

• projects/md2mb/devel/md2mb/bin/md2mb.pl (modified) (5 diffs)

projects/md2mb/devel/md2mb/bin/md2mb.pl

@@ -26 +26 @@
 Aborting
 EOF
-# CHANGE AS YOU WISH
-# Is the newroot a file (1) or a dir (0)
-my $nrisfile = 0;
-# END CHANGE
 my $debug = 0;
+my $file = 0; # is the newroot a file (1) or a dir (0) ?
 my $help = 0;
 my $man = 0;
@@ -44 +41 @@
 GetOptions(
     'debug|d'         => \$debug,
+    'file|f'          => \$file,
     'help|h'          => \$help,
     'man|m'           => \$man,
@@ -77 +75 @@
 # create destination path
 if ($debug) { 
-    print "TARGET DIR: mkdir -p $newroot\n" if ((not -d "$newroot") && (not $nrisfile));
-    print "CMD: mkdir -p $newroot\n" if ((not -d "$newroot") && (not $nrisfile));
+    print "TARGET DIR: mkdir -p $newroot\n" if ((not -d "$newroot") && (not $file));
+    print "CMD: mkdir -p $newroot\n" if ((not -d "$newroot") && (not $file));
 } else {
-    mkpath("$newroot",0, 0755) if ((not -d "$newroot") && (not $nrisfile));
+    mkpath("$newroot",0, 0755) if ((not -d "$newroot") && (not $file));
 }
 
@@ -181 +179 @@
  Options:
    -debug   | -d        debug mode
+   -file    | -f                whether $newroot is a file or a directory
    -help    | -h        brief help message
    -man     | -m        full documentation
@@ -197 +196 @@
 so this is safe to use when testing.
 
+=item B<-file>
+
+Specifies that $newroot is a file. If this option is omitted, it is assumed
+that $newroot is a directory instead.
+
 =item B<-help>