lib/ballet.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

package ballet;

use 5.010;

use Dancer ':syntax';
use ballet::Git;

our $VERSION = '0.1';

my $git = ballet::Git->new( wiki_path => setting('wiki_path') );

get '/' => sub {
    wiki_page('Home');
};

get '/edit/*' => sub {
    my ($page_name) = splat;

    debug("looking for page $page_name");

    my $content = $git->find_page($page_name, 'master');
    template 'edit', {content => $content, title => 'Home'};
};

post '/edit/*' => sub {
    my ($page_name) = splat;

    my $content = params->{content};
    update_wiki_page($page_name, $content);
    redirect uri_for('/');
};

sub wiki_page {
    my $page_name = shift;
    my $content = $git->find_page( $page_name, 'master' );

    template 'page',
      {
        title   => $page_name,
        author  => 'franck',
        date    => '10/10/10',
        content => $content
      };
}

sub update_wiki_page {
    my ($page_name, $content) = @_;
    $git->update_page($page_name, $content);
}

true;