aocinit

commit e4e9ef3b70759a9bb2bc6cc126bfc8b1512217a8
parent 4357e6ab5c3f94ba9a4fe3b485cbbd19c3d1c6ea
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri, 16 Dec 2022 14:07:13 +0000

cleanup code

Diffstat:
M
aocinit
 | 
38
+++++++-------------------------------

1 file changed, 7 insertions(+), 31 deletions(-)
diff --git a/aocinit b/aocinit
@@ -15,8 +15,13 @@ use Mojo::UserAgent;
 
 my $AOC_FIRST_YEAR = 15; # first event was in 2015
 my $HOME           = File::HomeDir->my_home;
+
+#
+# User-defined constants #####################################################
 my $PATH_FROM_HOME = "programs";
 my $DIR_PREFIX     = "zaoc_20";
+##############################################################################
+#
 
 sub invalid_arguments {
     die "Usage (with two-digit year and two-digit day): $0 ",
@@ -34,7 +39,6 @@ sub process_arguments {
                            $year > (localtime)[5] % 100 );
     invalid_arguments if ( $day < 1 or $day > 24 );
     $day = '0' . $day if ( $day =~ m/^\d$/ );
-    #say "@arguments";
     return ( $year, $day );
 }
 
@@ -59,36 +63,8 @@ sub create_day_subdirectory {
 }
 
 my ( $year, $day ) = process_arguments( \@ARGV );
-# todo:  Check if we have the right number of arguments
-# todo:  Check if $year and $day are integers
-#$day = '0' . $day if ( $day =~ m/^\d$/ );
-
-#my $home     = File::HomeDir->my_home;
-#my $path =   "$home/programs";
-#my $directory_prefix = "zaoc_20";
-#my $year_directory = "$path/$directory_prefix$year";
 my $year_directory = "$HOME/$PATH_FROM_HOME/$DIR_PREFIX$year";
-create_year_directory( $year_directory );
-#if ( -e $year_directory ) {
-#    say "$year_directory already exists";
-#} else {
-#    say "creating $year_directory...";
-#    mkdir $year_directory, 0755 or warn "Cannot create directory $year_directory: $!";
-#}
-
-#opendir my $dh, $path or die "cannot open $path: $!";
-#foreach my $file ( readdir $dh ) {
-#    if ( -d catfile( $path, $file )) {
-#        say "$file is a directory";
-#    } else {
-#        say "$file is NOT a directory";
-#    }
-#}
 my $day_subdir     = catfile ( $year_directory, "day" . $day );
+
+create_year_directory( $year_directory );
 create_day_subdirectory( $day_subdir );
-#if ( -e -d $day_subdir ) {
-#    say "$day_subdir already exists.";
-#} else {
-#    say "creating $day_subdir...";
-#    mkdir $day_subdir, 0755 or warn "Cannot create directory $day_subdir: $!";
-#}