urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid perl warning when passed bad non-numeric year/month/day

master
Joey Hess 2010-10-20 18:52:46 -04:00
parent 9b832df0d2
commit 4a75dee651
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
IkiWiki.pm
View File

@ -2608,6 +2608,10 @@ sub match_created_after ($$;@) {
}
sub match_creation_day ($$;@) {
my $d=shift;
if ($d !~ /^\d+$/) {
return IkiWiki::FailReason->new('invalid day');
}
if ((localtime($IkiWiki::pagectime{shift()}))[3] == shift) {
return IkiWiki::SuccessReason->new('creation_day matched');
}
@ -2617,6 +2621,10 @@ sub match_creation_day ($$;@) {
}
sub match_creation_month ($$;@) {
my $m=shift;
if ($m !~ /^\d+$/) {
return IkiWiki::FailReason->new('invalid month');
}
if ((localtime($IkiWiki::pagectime{shift()}))[4] + 1 == shift) {
return IkiWiki::SuccessReason->new('creation_month matched');
}
@ -2626,7 +2634,11 @@ sub match_creation_month ($$;@) {
}
sub match_creation_year ($$;@) {
if ((localtime($IkiWiki::pagectime{shift()}))[5] + 1900 == shift) {
my $y=shift;
if ($y !~ /^\d+$/) {
return IkiWiki::FailReason->new('invalid year');
}
if ((localtime($IkiWiki::pagectime{shift()}))[5] + 1900 == $y) {
return IkiWiki::SuccessReason->new('creation_year matched');
}
else {