App-Magpie

 view release on metacpan or  search on metacpan

lib/App/Magpie/Action/WebStatic.pm  view on Meta::CPAN

    $opts->{directory} =~ s!/$!!;
    my $dir = path( $opts->{directory} . ".new" );
    $dir->remove_tree( { safe => 0 } ); $dir->mkpath;

    # images
    $self->log_debug( "images:" );
    my $imgdir = $dir->child( "images" );
    $imgdir->mkpath;
    $self->log_debug( " - mageia modules" );
    $rrd{mga_mods}->graph(
        image => $imgdir->child("mgamods.png"),
        width => 800,
        title => 'Number of available Perl modules in Mageia Linux',
        start => DateTime->new(year=>2012)->epoch,
        draw  => {
            thickness => 2,
            color     => '0000FF',
        },
        units_exponent => 0,
    );

share/webstatic/index.tt2  view on Meta::CPAN

<title>Perl & Mageia</title>
</head>

<body>

<h2><a href="http://mageia.org">Mageia</a> ships with [%mgadists%] Perl
packages!</h2>
<p> This represents [%mgamods%] Perl modules.</p>

<img
    src="images/mgamods.png"
    alt="evolution of perl modules within Mageia Linux">

<p> <i>Page generated on [%date%].</i> </p>

</body>
</html>



( run in 1.066 second using v1.01-cache-2.11-cpan-df04353d9ac )