my $base = $r->dir_config('TemplateBase');
open TEMPLATE, "<$base/$dir/$template"
+ or ($dir ne 'default' and open TEMPLATE, "<$base/default/$template")
or Sesse::pr0n::Common::error($r, "Couldn't open $dir/$template: $!");
local $/;
return $newcache->{'contents'};
}
-sub print_template {
+sub process_template {
my ($r, $template, $args) = @_;
my $text = fetch_template($r, $template);
$text =~ s/$key/$value/g;
}
- $r->print($text);
+ return $text;
+}
+
+sub print_template {
+ my ($r, $template, $args) = @_;
+ $r->print(process_template($r, $template, $args));
}
1;