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 )