nortega/ccc
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Add version flag.

Browse Source
This commit is contained in:
Nicolás A. Ortega Froysa
2026-04-01 12:38:53 +02:00
parent 4c2a5922c2
commit 20bb5319c9
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ccc
View File

@@ -31,6 +31,8 @@ use File::HomeDir;
use File::Path qw(make_path); use File::Path qw(make_path);
use Math::Base36 ':all'; use Math::Base36 ':all';
my $VERSION = '0.1';
my $PROG_NAME = 'ccc';
my $arg = shift or usage(); my $arg = shift or usage();
if($arg eq '--help' || $arg eq '-h') { if($arg eq '--help' || $arg eq '-h') {
@@ -41,9 +43,11 @@ if($arg eq '--help' || $arg eq '-h') {
my $cache_file = File::Spec->catfile($cache_dir, 'section_map.json'); my $cache_file = File::Spec->catfile($cache_dir, 'section_map.json');
build_section_map($cache_file); build_section_map($cache_file);
exit 0; exit 0;
} elsif($arg eq '-v' || $arg eq '--version') {
print "$PROG_NAME v$VERSION\n";
exit 0
} }
# Parse argument - can be single number or range (e.g., "1691-1698")
my ($start_section, $end_section); my ($start_section, $end_section);
if($arg =~ /^(\d+)-(\d+)$/) { if($arg =~ /^(\d+)-(\d+)$/) {
$start_section = $1; $start_section = $1;
@@ -93,6 +97,7 @@ sub usage {
print STDERR "Options:\n"; print STDERR "Options:\n";
print STDERR " -l, --load-cache Build the section cache from Vatican server\n"; print STDERR " -l, --load-cache Build the section cache from Vatican server\n";
print STDERR " -h, --help Show this help message\n"; print STDERR " -h, --help Show this help message\n";
print STDERR " -v, --version Show version information\n";
print STDERR "Examples:\n"; print STDERR "Examples:\n";
print STDERR " ccc -l # Build cache\n"; print STDERR " ccc -l # Build cache\n";
print STDERR " ccc 270 # Single section\n"; print STDERR " ccc 270 # Single section\n";