|
%# Never underestimate the bandwidth of a station wagon full of tapes.
%# -- Dr. Warren Jackson, Director, UTCS
<%PERL>
my $pwd = $m->comp(
'/Foundry/Elements/Kwiki',
Repository => $QueueObj->OriginObj->CustomFieldValue('UnixName'),
IsAdmin => $QueueObj->HasWatcher($session{CurrentUser}->UserObj),
Script => 'blog.html',
Class => 'CGI::Kwiki::Blog',
PageId => ($page_id || ($keywords ||= ('HomePage'))),
);
#{ local $0 = "index.html"; CGI::Kwiki::Blog::run_cgi() }
</%PERL>
<%ARGS>
$QueueObj
$keywords => undef
$page_id => undef
</%ARGS>
|