CGI::Kwiki::Scripts - Script container for CGI::Kwiki

CGI-Kwiki documentation Contained in the CGI-Kwiki distribution.

Index

Code Index:

NAME

Top

CGI::Kwiki::Scripts - Script container for CGI::Kwiki

DESCRIPTION

Top

See installed kwiki pages for more information.

AUTHOR

Top

Brian Ingerson <INGY@cpan.org>

COPYRIGHT

Top

Copyright (c) 2003. Brian Ingerson. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

CGI-Kwiki documentation Contained in the CGI-Kwiki distribution. 
package CGI::Kwiki::Scripts;
$VERSION = '0.18';
use strict;
use base 'CGI::Kwiki';

sub directory { #XXX
    $_[1] =~ /(.*)\// ? $1 : '.';
}

sub name { #XXX
    $_[1] =~ /.*\/(.*)/ ? $1 : $_[1];
}

sub suffix { '.cgi' }

sub render_template {
    my ($self, $template) = @_;
    return $self->driver->template->render($template,
        start_perl => $Config::Config{startperl},
    );
}
sub perms {
    my ($self, $file) = @_;
    chmod(0755, $file) or die $!;
}

1;

__DATA__


__index__
[% start_perl %] -w
use lib '.';
# use lib '../lib';
use CGI::Kwiki;
CGI::Kwiki::run_cgi();
__pages__
[% start_perl %] -w
use lib '.';
# use lib '../lib';
use CGI::Kwiki::Pages;
CGI::Kwiki::run_cgi();
__admin__
[% start_perl %] -w
use lib '.';
# use lib '../lib';
use CGI::Kwiki;
$CGI::Kwiki::ADMIN = 1;
$CGI::Kwiki::ADMIN = 1;
CGI::Kwiki::run_cgi();
__kwiki__
[% start_perl %] -w
use lib '.';
# use lib '../lib';
use CGI::Kwiki;
CGI::Kwiki::run_cgi();
__blog__
[% start_perl %] -w
use lib '.';
# use lib '../lib';
use CGI::Kwiki::Blog;
CGI::Kwiki::Blog::run_cgi();