#- options
$options = [
- [ '--help', '-h', GetoptLong::NO_ARGUMENT, _("Get help message") ],
-
+ [ '--help', '-h', GetoptLong::NO_ARGUMENT, _("Get help message") ],
[ '--verbose-level', '-v', GetoptLong::REQUIRED_ARGUMENT, _("Set max verbosity level (0: errors, 1: warnings, 2: important messages, 3: other messages)") ],
+ [ '--version', '-V', GetoptLong::NO_ARGUMENT, _("Print version and exit") ],
]
#- default values for some globals
usage
exit(0)
+ when '--version'
+ puts _("Booh version %s
+
+Copyright (c) 2005-2008 Guillaume Cottenceau.
+This is free software; see the source for copying conditions. There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.") % $VERSION
+
+ exit(0)
+
when '--verbose-level'
$verbose_level = arg.to_i
#- options
$options = [
- [ '--help', '-h', GetoptLong::NO_ARGUMENT, _("Get help message") ],
-
- [ '--verbose-level', '-v', GetoptLong::REQUIRED_ARGUMENT, _("Set max verbosity level (0: errors, 1: warnings, 2: important messages, 3: other messages)") ],
+ [ '--help', '-h', GetoptLong::NO_ARGUMENT, _("Get help message") ],
[ '--sort-by-exif-date', '-s', GetoptLong::NO_ARGUMENT, _("Sort entries by EXIF date") ],
+ [ '--verbose-level', '-v', GetoptLong::REQUIRED_ARGUMENT, _("Set max verbosity level (0: errors, 1: warnings, 2: important messages, 3: other messages)") ],
+ [ '--version', '-V', GetoptLong::NO_ARGUMENT, _("Print version and exit") ],
]
$preloader_allowed = false
usage
exit(0)
+ when '--sort-by-exif-date'
+ $sort_by_exif_date = true
+
when '--verbose-level'
$verbose_level = arg.to_i
- when '--sort-by-exif-date'
- $sort_by_exif_date = true
+ when '--version'
+ puts _("Booh version %s
+
+Copyright (c) 2005-2008 Guillaume Cottenceau.
+This is free software; see the source for copying conditions. There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.") % $VERSION
+
+ exit(0)
end
end