7 sub linkify ($$) { #{{{
11 $content =~ s{(\\?)$config{wiki_link_regexp}}{
12 $2 ? ( $1 ? "[[$2|$3]]" : htmllink($page, titlepage($3), 0, 0, pagetitle($2)))
13 : ( $1 ? "[[$3]]" : htmllink($page, titlepage($3)))
19 sub htmlize ($$) { #{{{
23 if (! $INC{"/usr/bin/markdown"}) {
25 $blosxom::version="is a proper perl module too much to ask?";
27 do "/usr/bin/markdown";
30 if ($type eq '.mdwn') {
31 return Markdown::Markdown($content);
34 error("htmlization of $type not supported");
38 sub backlinks ($) { #{{{
42 foreach my $p (keys %links) {
43 next if bestlink($page, $p) eq $page;
44 if (grep { length $_ && bestlink($p, $_) eq $page } @{$links{$p}}) {
45 my $href=File::Spec->abs2rel(htmlpage($p), dirname($page));
47 # Trim common dir prefixes from both pages.
49 my $page_trimmed=$page;
51 1 while (($dir)=$page_trimmed=~m!^([^/]+/)!) &&
53 $p_trimmed=~s/^\Q$dir\E// &&
54 $page_trimmed=~s/^\Q$dir\E//;
56 push @links, { url => $href, page => $p_trimmed };
60 return sort { $a->{page} cmp $b->{page} } @links;
63 sub parentlinks ($) { #{{{
70 foreach my $dir (reverse split("/", $page)) {
73 unshift @ret, { url => "$path$dir.html", page => $dir };
79 unshift @ret, { url => length $path ? $path : ".", page => $config{wikiname} };
83 sub rsspage ($) { #{{{
89 sub postprocess { #{{{
90 # Takes content to postprocess followed by a list of postprocessor
91 # commands and subroutine references to run for the commands.
100 if (length $escape) {
101 "[[$command $params]]";
103 elsif (exists $commands{$command}) {
105 while ($params =~ /(\w+)=\"([^"]+)"(\s+|$)/g) {
108 $commands{$command}->($page, %params);
111 "[[bad directive $command]]";
115 $content =~ s{(\\?)$config{wiki_processor_regexp}}{$handle->($1, $2, $3)}eg;
119 sub blog_list ($$) { #{{{
124 foreach my $page (keys %pagesources) {
125 if (globlist_match($page, $globlist)) {
130 @list=sort { $pagectime{$b} <=> $pagectime{$a} } @list;
131 return @list if ! $maxitems || @list <= $maxitems;
132 return @list[0..$maxitems - 1];
135 sub get_inline_content ($$) { #{{{
136 my $parentpage=shift;
139 my $file=$pagesources{$page};
140 my $type=pagetype($file);
141 if ($type ne 'unknown') {
142 return htmlize($type, linkify(readfile(srcfile($file)), $parentpage));
149 sub postprocess_html_inline { #{{{
150 my $parentpage=shift;
153 if (! exists $params{pages}) {
156 if (! exists $params{archive}) {
157 $params{archive}="no";
159 if (! exists $params{show} && $params{archive} eq "no") {
162 $inlinepages{$parentpage}=$params{pages};
166 if (exists $params{rootpage}) {
167 my $formtemplate=HTML::Template->new(blind_cache => 1,
168 filename => "$config{templatedir}/blogpost.tmpl");
169 $formtemplate->param(cgiurl => $config{cgiurl});
170 $formtemplate->param(rootpage => $params{rootpage});
171 my $form=$formtemplate->output;
175 my $template=HTML::Template->new(blind_cache => 1,
176 filename => (($params{archive} eq "no")
177 ? "$config{templatedir}/inlinepage.tmpl"
178 : "$config{templatedir}/inlinepagetitle.tmpl"));
180 foreach my $page (blog_list($params{pages}, $params{show})) {
181 next if $page eq $parentpage;
182 $template->param(pagelink => htmllink($parentpage, $page));
183 $template->param(content => get_inline_content($parentpage, $page))
184 if $params{archive} eq "no";
185 $template->param(ctime => scalar(gmtime($pagectime{$page})));
186 $ret.=$template->output;
189 return "</p>$ret<p>";
192 sub genpage ($$$) { #{{{
197 $content = postprocess($page, $content, inline => \&postprocess_html_inline);
199 my $title=pagetitle(basename($page));
201 my $template=HTML::Template->new(blind_cache => 1,
202 filename => "$config{templatedir}/page.tmpl");
204 if (length $config{cgiurl}) {
205 $template->param(editurl => cgiurl(do => "edit", page => $page));
206 $template->param(prefsurl => cgiurl(do => "prefs"));
208 $template->param(recentchangesurl => cgiurl(do => "recentchanges"));
212 if (length $config{historyurl}) {
213 my $u=$config{historyurl};
214 $u=~s/\[\[file\]\]/$pagesources{$page}/g;
215 $template->param(historyurl => $u);
217 if ($config{hyperestraier}) {
218 $template->param(hyperestraierurl => cgiurl());
221 if ($config{rss} && $inlinepages{$page}) {
222 $template->param(rssurl => rsspage(basename($page)));
227 wikiname => $config{wikiname},
228 parentlinks => [parentlinks($page)],
230 backlinks => [backlinks($page)],
231 discussionlink => htmllink($page, "Discussion", 1, 1),
232 mtime => scalar(gmtime($mtime)),
233 styleurl => styleurl($page),
236 return $template->output;
239 sub date_822 ($) { #{{{
243 return POSIX::strftime("%a, %d %b %Y %H:%M:%S %z", localtime($time));
246 sub absolute_urls ($$) { #{{{
247 # sucky sub because rss sucks
253 $content=~s/<a\s+href="(?!http:\/\/)([^"]+)"/<a href="$url$1"/ig;
254 $content=~s/<img\s+src="(?!http:\/\/)([^"]+)"/<img src="$url$1"/ig;
258 sub genrss ($$$) { #{{{
263 my $url="$config{url}/".htmlpage($page);
265 my $template=HTML::Template->new(blind_cache => 1,
266 filename => "$config{templatedir}/rsspage.tmpl");
271 my $parentpage=shift;
274 if (! exists $params{show}) {
277 if (! exists $params{pages}) {
282 foreach my $page (blog_list($params{pages}, $params{show})) {
283 next if $page eq $parentpage;
285 itemtitle => pagetitle(basename($page)),
286 itemurl => "$config{url}/$renderedfiles{$page}",
287 itempubdate => date_822($pagectime{$page}),
288 itemcontent => absolute_urls(get_inline_content($parentpage, $page), $url),
289 } if exists $renderedfiles{$page};
295 $content = postprocess($page, $content, inline => $gen_blog);
298 title => $config{wikiname},
303 return $template->output;
306 sub check_overwrite ($$) { #{{{
307 # Important security check. Make sure to call this before saving
308 # any files to the source directory.
312 if (! exists $renderedfiles{$src} && -e $dest && ! $config{rebuild}) {
313 error("$dest already exists and was rendered from ".
314 join(" ",(grep { $renderedfiles{$_} eq $dest } keys
316 ", before, so not rendering from $src");
323 return (stat($file))[9];
326 sub findlinks ($$) { #{{{
331 while ($content =~ /(?<!\\)$config{wiki_link_regexp}/g) {
332 push @links, titlepage($2);
334 # Discussion links are a special case since they're not in the text
335 # of the page, but on its template.
336 return @links, "$page/discussion";
339 sub render ($) { #{{{
342 my $type=pagetype($file);
343 my $srcfile=srcfile($file);
344 if ($type ne 'unknown') {
345 my $content=readfile($srcfile);
346 my $page=pagename($file);
348 $links{$page}=[findlinks($content, $page)];
349 delete $inlinepages{$page};
351 $content=linkify($content, $page);
352 $content=htmlize($type, $content);
354 check_overwrite("$config{destdir}/".htmlpage($page), $page);
355 writefile(htmlpage($page), $config{destdir},
356 genpage($content, $page, mtime($srcfile)));
357 $oldpagemtime{$page}=time;
358 $renderedfiles{$page}=htmlpage($page);
360 # TODO: should really add this to renderedfiles and call
361 # check_overwrite, as above, but currently renderedfiles
362 # only supports listing one file per page.
363 if ($config{rss} && exists $inlinepages{$page}) {
364 writefile(rsspage($page), $config{destdir},
365 genrss($content, $page, mtime($srcfile)));
369 my $content=readfile($srcfile, 1);
371 check_overwrite("$config{destdir}/$file", $file);
372 writefile($file, $config{destdir}, $content, 1);
373 $oldpagemtime{$file}=time;
374 $renderedfiles{$file}=$file;
382 my $dir=dirname($file);
383 while (rmdir($dir)) {
389 my $estdir="$config{wikistatedir}/hyperestraier";
390 my $cgi=basename($config{cgiurl});
392 open(TEMPLATE, ">$estdir/$cgi.tmpl") ||
393 error("write $estdir/$cgi.tmpl: $!");
394 print TEMPLATE misctemplate("search",
395 "<!--ESTFORM-->\n\n<!--ESTRESULT-->\n\n<!--ESTINFO-->\n\n");
397 open(TEMPLATE, ">$estdir/$cgi.conf") ||
398 error("write $estdir/$cgi.conf: $!");
399 my $template=HTML::Template->new(
400 filename => "$config{templatedir}/estseek.conf"
402 eval q{use Cwd 'abs_path'};
405 tmplfile => "$estdir/$cgi.tmpl",
406 destdir => abs_path($config{destdir}),
409 print TEMPLATE $template->output;
411 $cgi="$estdir/".basename($config{cgiurl});
413 symlink("/usr/lib/estraier/estseek.cgi", $cgi) ||
414 error("symlink $cgi: $!");
417 sub estcmd ($;@) { #{{{
418 my @params=split(' ', shift);
419 push @params, "-cl", "$config{wikistatedir}/hyperestraier";
424 my $pid=open(CHILD, "|-");
430 close(CHILD) || error("estcmd @params exited nonzero: $?");
434 open(STDOUT, "/dev/null"); # shut it up (closing won't work)
435 exec("estcmd", @params) || error("can't run estcmd");
439 sub refresh () { #{{{
440 # find existing pages
443 eval q{use File::Find};
447 if (/$config{wiki_file_prune_regexp}/) {
448 $File::Find::prune=1;
450 elsif (! -d $_ && ! -l $_) {
451 my ($f)=/$config{wiki_file_regexp}/; # untaint
453 warn("skipping bad filename $_\n");
456 $f=~s/^\Q$config{srcdir}\E\/?//;
458 $exists{pagename($f)}=1;
466 if (/$config{wiki_file_prune_regexp}/) {
467 $File::Find::prune=1;
469 elsif (! -d $_ && ! -l $_) {
470 my ($f)=/$config{wiki_file_regexp}/; # untaint
472 warn("skipping bad filename $_\n");
475 # Don't add files that are in the
477 $f=~s/^\Q$config{underlaydir}\E\/?//;
478 if (! -e "$config{srcdir}/$f" &&
479 ! -l "$config{srcdir}/$f") {
481 $exists{pagename($f)}=1;
486 }, $config{underlaydir});
490 # check for added or removed pages
492 foreach my $file (@files) {
493 my $page=pagename($file);
494 if (! $oldpagemtime{$page}) {
495 debug("new page $page") unless exists $pagectime{$page};
498 $pagesources{$page}=$file;
499 $pagectime{$page}=mtime(srcfile($file))
500 unless exists $pagectime{$page};
504 foreach my $page (keys %oldpagemtime) {
505 if (! $exists{$page}) {
506 debug("removing old page $page");
507 push @del, $pagesources{$page};
508 prune($config{destdir}."/".$renderedfiles{$page});
509 delete $renderedfiles{$page};
510 $oldpagemtime{$page}=0;
511 delete $pagesources{$page};
515 # render any updated files
516 foreach my $file (@files) {
517 my $page=pagename($file);
519 if (! exists $oldpagemtime{$page} ||
520 mtime(srcfile($file)) > $oldpagemtime{$page}) {
521 debug("rendering changed file $file");
527 # if any files were added or removed, check to see if each page
528 # needs an update due to linking to them or inlining them.
529 # TODO: inefficient; pages may get rendered above and again here;
530 # problem is the bestlink may have changed and we won't know until
533 FILE: foreach my $file (@files) {
534 my $page=pagename($file);
535 foreach my $f (@add, @del) {
537 foreach my $link (@{$links{$page}}) {
538 if (bestlink($page, $link) eq $p) {
539 debug("rendering $file, which links to $p");
549 # Handle backlinks; if a page has added/removed links, update the
550 # pages it links to. Also handle inlining here.
551 # TODO: inefficient; pages may get rendered above and again here;
552 # problem is the backlinks could be wrong in the first pass render
554 if (%rendered || @del) {
555 foreach my $f (@files) {
557 if (exists $inlinepages{$p}) {
558 foreach my $file (keys %rendered, @del) {
559 my $page=pagename($file);
560 if (globlist_match($page, $inlinepages{$p})) {
561 debug("rendering $f, which inlines $page");
571 foreach my $file (keys %rendered, @del) {
572 my $page=pagename($file);
574 if (exists $links{$page}) {
575 foreach my $link (map { bestlink($page, $_) } @{$links{$page}}) {
577 ! exists $oldlinks{$page} ||
578 ! grep { $_ eq $link } @{$oldlinks{$page}}) {
579 $linkchanged{$link}=1;
583 if (exists $oldlinks{$page}) {
584 foreach my $link (map { bestlink($page, $_) } @{$oldlinks{$page}}) {
586 ! exists $links{$page} ||
587 ! grep { $_ eq $link } @{$links{$page}}) {
588 $linkchanged{$link}=1;
593 foreach my $link (keys %linkchanged) {
594 my $linkfile=$pagesources{$link};
595 if (defined $linkfile) {
596 debug("rendering $linkfile, to update its backlinks");
598 $rendered{$linkfile}=1;
603 if ($config{hyperestraier} && (%rendered || @del)) {
604 debug("updating hyperestraier search index");
606 estcmd("gather -cm -bc -cl -sd",
607 map { $config{destdir}."/".$renderedfiles{pagename($_)} }
614 debug("generating hyperestraier cgi config");