diff --git a/lib/WikiData/Utils.pm b/lib/WikiData/Utils.pm index 39b3f045bf35a851b504ba12810380d37c646612..a75652766c1d0e613738086ffb5965ce926442d8 100644 --- a/lib/WikiData/Utils.pm +++ b/lib/WikiData/Utils.pm @@ -10,10 +10,12 @@ use strict; sub get_paths { my $date= shift; - my $seq= shift || 'a'; + my $seq= shift; if ($date =~ m#^(\d{4})-?(\d{2})\-(\d{2})$#) { + $seq= 'a' unless (defined ($seq)); + my ($yr, $mon, $day)= ($1, $2, $3); my $d1= join ('-', $yr, $mon, $day. $seq); @@ -23,6 +25,13 @@ sub get_paths return ($fnm, $data_dir, $out_dir); } + elsif ($date eq 'latest') + { + my $data_dir= join ('/', 'data', 'latest'); + my $out_dir= join ('/', 'data', 'latest', 'out'); + + return (undef, $data_dir, $out_dir); + } die "invalid date format"; }