view release on metacpan or  search on metacpan

lib/Beagle/Cmd/Command/publish.pm  view on Meta::CPAN

            }
        }

        make_path($encoded_to);

        chdir $encoded_to;

        my $system = encode( locale_fs => catdir( share_root(), 'public' ) );
        File::Copy::Recursive::dircopy( $system, 'system' );

        my $static = encode( locale_fs => static_root($bh) );
        mkdir( 'static' ) unless -e 'static';

        Beagle::Web::change_handle( handle => $bh );
        Beagle::Web::set_static(1);
        Beagle::Web::set_prefix('');

        $self->save_link( '/', 'index.html' );
        $self->save_link( '/about', );
        $self->save_link('/feed');
        $self->save_link('/tags');
        $self->save_link('/archives');

        {
            my $info  = $bh->info;
            my @parts = split_id( $info->id );
            if ( -e catdir( $static, @parts ) ) {
                File::Copy::Recursive::dircopy( catdir( $static, @parts ),
                    catdir( 'static', @parts ) );
            }
        }

        my $entries = $bh->entries;
        for my $entry (@$entries) {
            $self->save_link( '/entry/' . $entry->id );

            my @parts = split_id( $entry->id );
            if ( -e catdir( $static, @parts ) ) {
                File::Copy::Recursive::dircopy( catdir( $static, @parts ),
                    catdir( 'static', @parts ) );
            }

        }

        for my $tag ( keys %{ Beagle::Web::tags($bh) } ) {
            $self->save_link("/tag/$tag");
        }

        for my $year ( keys %{ Beagle::Web::archives($bh) } ) {
            $self->save_link("/archive/$year");
        }
    }
}

sub save_link {
    my $self = shift;
    my $link = shift or die 'need a link';
    my $file = shift;
    $file = $link unless defined $file;
    $file =~ s!^/!!;
    $file = encode( locale_fs => catfile( split m{/}, $file ) );

    my $res = $app->(
        {
            'PATH_INFO'            => $link,
            'REQUEST_METHOD'       => 'GET',
            'BEAGLE_NAME'          => $handle->name,
            'HTTP_ACCEPT_LANGUAGE' => $self->lang,
        }
    );
    die "failed to get $link: " if $res->[0] != 200;
    my $parent = parent_dir($file);
    make_path($parent) unless -e $parent;
    write_file( $file, $res->[2] );
}

1;

__END__

=head1 NAME

Beagle::Cmd::Command::publish - generate static files

=head1 SYNOPSIS

    $ beagle publish --to /path/to/dir  # publish current beagle
    $ beagle publish --lang zh-cn --to /path/to/dir name1 name2

=head1 DESCRIPTION

C<publish> is used to generate static html files so you can serve them
as static files.

=head1 AUTHOR

    sunnavy <sunnavy@gmail.com>


=head1 LICENCE AND COPYRIGHT

    Copyright 2011 sunnavy@gmail.com

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