App-Basis-ConvertText2
1 match

 view release on metacpan or  search on metacpan

bin/ct2  view on Meta::CPAN 

use Path::Tiny;
use App::Basis;
use App::Basis::Config;
use App::Basis::ConvertText2;

# -----------------------------------------------------------------------------

my $MARKUP_DIR = "$ENV{HOME}/." . get_program();
$MARKUP_DIR = $ENV{MARKUP_DIR} if ( $ENV{MARKUP_DIR} );

my $CACHE_DIR = "/tmp/" . getpwuid($>) . "/cache";

my $TEMPLATE = <<EOD;
<!DOCTYPE html>
<html>
    <head>
        <title>%TITLE%</title>
        <meta name="Created" content="%DATE%" />
        <meta name="Author" content="%AUTHOR%" />
        <meta name="Copyright" content="%COPYRIGHT%" />
        <meta name="summary" content="%SUMMARY%" />

bin/ct2  view on Meta::CPAN 


    # create HTML template
    path("$default/template.html")->spew_utf8($TEMPLATE) if ( !-f "$default/template.html" );

    my $config = App::Basis::Config->new( filename => "$default/config" );

    # if there is no data in the config then lets create some
    if ( !$config->has_data() ) {
        $config->set( '/page/size',        'A4' );
        $config->set( '/page/orientation', 'Portrait' );
        my $author = getpwuid($>);
        $config->set( '/author',    $author );
        $config->set( '/copyright', "Property of $author 2014" );
        $config->store();
    }
}

# -----------------------------------------------------------------------------

sub read_settings {
    my ( $template, $dir ) = @_;



( run in 0.340 second using v1.01-cache-2.11-cpan-8d75d55dd25 )