App-ZofCMS-PluginBundle-Naughty
view release on metacpan or search on metacpan
lib/App/ZofCMS/Plugin/Captcha.pm view on Meta::CPAN
B<Optional>. Specifies the cryptocrap style of captcha.
See L<GD::SecurityImage> C<create()> method for possible styles.
B<Defaults to:> C<rect>
=head3 C<format>
plug_captcha => {
format => 'gif',
},
B<Optional>. Takes string C<gif>, C<jpeg> or C<png> as a value. Specifies the format
of the captcha image. Some formats may be unavailable depending on your L<GD> version.
B<Defaults to:> C<gif>
=head3 C<tcolor>
plug_captcha => {
tcolor => '#895533',
lcolor => '#000000',
},
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
my $thumb = Image::Resize->new( $photo_file );
my $gd = $thumb->resize( @{ $conf->{thumb_size} } );
open my $fh_thumb, '>', $thumb_file
or $t->param( error => "Failed to create thumbnail [$!]" )
and return;
my $img_type = substr $ext, 1;
$img_type = 'jpeg'
unless $img_type eq 'png' or $img_type eq 'gif';
binmode $fh_thumb;
print $fh_thumb $gd->$img_type();
close $fh_thumb;
}
else {
copy $photo_file, $thumb_file;
}
if ( ref $conf->{photo_size} eq 'ARRAY'
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
my $photo = Image::Resize->new( $photo_file );
my $gd = $photo->resize( @{ $conf->{photo_size} } );
open my $fh_photo, '>', $photo_file
or $t->param( error => "Failed to resize photo [$!]" )
and return;
my $img_type = substr $ext, 1;
$img_type = 'jpeg'
unless $img_type eq 'png' or $img_type eq 'gif';
binmode $fh_photo;
print $fh_photo $gd->$img_type();
close $fh_photo;
( $x, $y ) = ( $gd->width, $gd->height );
}
my ( $thumb_x, $thumb_y ) = imgsize $thumb_file;
$t->param( success => 1 );
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
<tmpl_var name='plug_image_gallery_form'>
<tmpl_var name='plug_image_gallery_list'>
Viola, now you can upload photos with descriptions, delete them and edit descriptions. \o/
=head1 DESCRIPTION
The module is a plugin for L<App::ZofCMS> that allows one to add a CRUD-like functionality
for managing photos. The plugin automatically makes thumbnails and can also resize the
actual photos if you tell it to. So far, only
C<.jpg>, C<.png> and C<.gif> images are supported; however, plugin does not check
C<Content-Type> of the uploaded image.
The image file name and description are stored in a SQL database.
This documentation assumes you've read L<App::ZofCMS>, L<App::ZofCMS::Config> and L<App::ZofCMS::Template>
=head1 USED SQL TABLE FORMAT
When C<create_table> option is turned on (see below) the plugin will create the following
table where C<table_name> is derived from C<table> argument in C<plug_image_gallery>
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
<div>
<input type="hidden" name="plug_image_gallery_id" value="037142535745273312292651650508033404216754">
<input type="hidden" name="page" value="photos">
<input type="hidden" name="dir" value="/admin/">
<input type="submit" name="plug_image_gallery_action" value="Edit">
<input type="submit" name="plug_image_gallery_action" value="Delete">
</div>
</form>
</li>
<li class="alt">
<a href="/index.pl?page=photos&dir=/admin/&plug_image_gallery_photo_id=07537915760568812292592510718228816144752"><img src="/photos/thumbs/058156553244134912292592510947564500241668.png" width="200" height="125" alt=""></a>
<p>Teh Descripshun!</p>
<form action="" method="POST">
<div>
<input type="hidden" name="plug_image_gallery_id" value="07537915760568812292592510718228816144752">
<input type="hidden" name="page" value="photos">
<input type="hidden" name="dir" value="/admin/">
<input type="submit" name="plug_image_gallery_action" value="Edit">
<input type="submit" name="plug_image_gallery_action" value="Delete">
</div>
</form>
lib/App/ZofCMS/Plugin/ImageResize.pm view on Meta::CPAN
=head1 SYNOPSIS
plugins => [
qw/ImageResize/
],
plug_image_resize => {
images => [
qw/3300 3300 frog.png/
],
# below are all the default values
inplace => 1,
only_down => 1,
cell => 'd',
key => 'plug_image_resize',
path => 'thumbs',
},
=head1 DESCRIPTION
lib/App/ZofCMS/Plugin/ImageResize.pm view on Meta::CPAN
plugins => [
qw/ImageResize/
],
B<Mandatory>. You need to add the plugin to list of plugins to execute.
=head2 C<plug_image_resize>
plug_image_resize => {
images => [
qw/3300 3300 frog.png/
],
# optional options below; all are the default values
inplace => 1,
only_down => 1,
cell => 'd',
key => 'plug_image_resize',
path => 'thumbs',
},
plug_image_resize => sub {
my ( $t, $q, $config ) = @_;
return {
images => [
qw/3300 3300 frog.png/
],
}
},
B<Mandatory>. Takes a hashref or a subref as a value. If subref is specified,
its return value will be assigned to C<plug_image_resize> as if it was already there. If sub returns
an C<undef>, then plugin will stop further processing. The C<@_> of the subref will
contain (in that order): ZofCMS Template hashref, query parameters hashref and
L<App::ZofCMS::Config> object.
The C<plug_image_resize> first-level key can be set in either (or both)
ZofCMS Template and Main Config File files. If set in both, the values of keys that are set in
ZofCMS Template take precedence. Possible keys/values are as follows:
=head3 C<images>
images => [
qw/3300 3300 frog.png/
],
images => {
image1 => {
x => 110,
y => 110,
image => 'frog.png',
inplace => 1,
only_down => 1,
path => 'thumbs',
},
image2 => [ qw/3300 3300 frog.png/ ],
},
images => [
[ qw/1000 1000 frog.png/ ],
[ qw/110 100 frog.png 0 1/ ],
{
x => 110,
y => 110,
image => 'frog.png',
inplace => 1,
only_down => 1,
path => 'thumbs',
},
],
images => sub {
my ( $t, $q, $config ) = @_;
return [ qw/100 100 frog.png/ ];
},
B<Mandatory>. The C<images> key is the only optional key. Its value can be either an
arrayref, an arrayref of arrayrefs/hashrefs, subref or a hashref.
If the value is a subref, the C<@_> will contain (in the following order): ZofCMS Template
hashref, query parameters hashref, L<App::ZofCMS::Config> object. The return value
of the sub will be assigned to C<images> key; if it's C<undef> then plugin will not execute
further.
lib/App/ZofCMS/Plugin/ImageResize.pm view on Meta::CPAN
it means there are several images to resize and each element of the arrayref is an
image to be resized and its resize options are set by each of those inner arrayrefs/hashrefs.
When resize options are given as an arrayref they correspond to the hashref-form keys
in the following order:
x y image inplace only_down path
In other words, the following resize options are equivalent:
[ qw/100 200 frog.png 0 1 thumbs/ ],
{
x => 110,
y => 110,
image => 'frog.png',
inplace => 1,
only_down => 1,
path => 'thumbs',
},
The C<x>, C<y> and C<image> keys are mandatory. The rest of the keys are optional and their
defaults are whatever is set to the same-named keys in the plugin's configuration (see below).
The C<x> and C<y> keys specify the dimensions to which the image should be resized
(see also the C<only_down> option described below). The C<image> key contains the path to
the image, relative to C<index.pl> file.
lib/App/ZofCMS/Plugin/ImageResize.pm view on Meta::CPAN
# `images` is set to a hashref with a key named `image1`
'd' => {
'plug_image_resize' => {
'image1' => {
'inplace' => '0',
'y' => 2062,
'path' => 'thumbs',
'only_down' => '0',
'x' => 3300,
'image' => 'thumbs/frog.png'
}
}
# `images` is set to one arrayref (i.e. no inner arrayrefs)
'd' => {
'plug_image_resize' => {
'inplace' => '0',
'y' => 2062,
'path' => 'thumbs',
'only_down' => '0',
'x' => 3300,
'image' => 'thumbs/frog.png'
}
},
# `images` is set to one arrayref of arrayrefs
'd' => {
'plug_image_resize' => [
{
'inplace' => '0',
'y' => 2062,
'path' => 'thumbs',
'only_down' => '0',
'x' => 3300,
'image' => 'thumbs/frog.png'
}
],
},
=head1 REPOSITORY
Fork this module on GitHub:
L<https://github.com/zoffixznet/App-ZofCMS-PluginBundle-Naughty>
=head1 BUGS
( run in 1.239 second using v1.01-cache-2.11-cpan-df04353d9ac )