aboutsummaryrefslogtreecommitdiff
path: root/IkiWiki
diff options
context:
space:
mode:
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2007-01-14 04:17:53 +0000
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2007-01-14 04:17:53 +0000
commit5608aa078e5a11ff6fbe1adda65a209017b0b630 (patch)
treea8230b0deb7e922c7890bf39f66fc130d9fe520f /IkiWiki
parentb695d6bdec4bd673a7b43f717258a9922a284d4a (diff)
downloadikiwiki-5608aa078e5a11ff6fbe1adda65a209017b0b630.tar
ikiwiki-5608aa078e5a11ff6fbe1adda65a209017b0b630.tar.gz
* In the aggregator, check for and deal with post filenames that are
longer than the maximum file length.
Diffstat (limited to 'IkiWiki')
-rw-r--r--IkiWiki/Plugin/aggregate.pm14
1 files changed, 14 insertions, 0 deletions
diff --git a/IkiWiki/Plugin/aggregate.pm b/IkiWiki/Plugin/aggregate.pm
index 964ef4b4b..d11283f0a 100644
--- a/IkiWiki/Plugin/aggregate.pm
+++ b/IkiWiki/Plugin/aggregate.pm
@@ -310,6 +310,20 @@ sub add_page (@) { #{{{
-e pagefile($page.$c)) {
$c++
}
+
+ # Make sure that the file name isn't too long.
+ # NB: This doesn't check for path length limits.
+ eval q{use POSIX};
+ my $max=POSIX::pathconf($config{srcdir}, &POSIX::_PC_NAME_MAX);
+ if (defined $max && length(htmlpage($page)) >= $max) {
+ $c="";
+ $page="item";
+ while (exists $IkiWiki::pagecase{lc $page.$c} ||
+ -e pagefile($page.$c)) {
+ $c++
+ }
+ }
+
$guid->{page}=$page;
debug(sprintf(gettext("creating new page %s"), $page));
}