source: trunk/newpage.cgi @ 478

Last change on this file since 478 was 478, checked in by kake, 17 years ago

Not deletable.

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 KB
Line 
1#!/usr/local/bin/perl
2
3use warnings;
4use strict;
5
6use CGI;
7use Config::Tiny;
8use OpenGuides::Template;
9use OpenGuides::Utils;
10use URI::Escape;
11
12my @badchars = qw( & ? );
13push @badchars, '#'; # Avoid warning about possible comments in qw()
14
15my $q = CGI->new;
16my $config = Config::Tiny->read('wiki.conf');
17my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
18
19my $pagename = $q->param("pagename") || "";
20$pagename =~ s/^\s*//;
21$pagename =~ s/\s*$//;
22
23my $action = $q->param("action") || "";
24
25if ( $action eq "makepage" ) {
26    make_page();
27} else {
28    show_form();
29}
30
31exit 0;
32
33sub show_form {
34    print OpenGuides::Template->output( wiki     => $wiki,
35                                        config   => $config,
36                                        template => "newpage.tt",
37                                        vars     => {
38                                            not_editable     => 1,
39                                            not_deletable    => 1,
40                                            disallowed_chars => \@badchars,
41                                            pagename         => $pagename }
42    );
43}
44
45sub make_page {
46    # Ensure pagename not blank.
47    unless ( $pagename ) {
48        print OpenGuides::Template->output(
49            wiki     => $wiki,
50            config   => $config,
51            template => "error.tt",
52            vars     => { not_editable => 1,
53                          message      => "Please enter a page name!",
54                          return_url   => "newpage.cgi" } );
55        exit 0;
56    }
57
58    # Ensure pagename valid.
59    my %badhash = map { $_ => 1 } @badchars;
60    my @naughty;
61    foreach my $i ( 0 .. (length $pagename) - 1 ) {
62        my $char = substr( $pagename, $i, 1 );
63        push @naughty, $char if $badhash{$char};
64    }
65    if ( scalar @naughty ) {
66        my $message = "Page name $pagename contains disallowed characters";
67        print OpenGuides::Template->output(
68            wiki     => $wiki,
69            config   => $config,
70            template => "error.tt",
71            vars     => {
72                pagename     => $pagename,
73                not_editable => 1,
74                message      => $message,
75                return_url   => "newpage.cgi?pagename=" . uri_escape($pagename)
76            }
77        );
78        exit 0;
79    }
80
81    # Hurrah, we're OK.
82    my $node_param = $wiki->formatter->node_name_to_node_param($pagename);
83    print "Location: ".$config->{_}->{script_url}.$config->{_}->{script_name}."?action=edit;id=$node_param\n\n";
84    exit 0;
85}
86
87
Note: See TracBrowser for help on using the repository browser.