".$self->label."
".
"";
#$result=$table."
".$error.
# "
".$self->label."
".
# "";
$result=$table."
" if ($self->type eq "Html");
}
if ($self->{view} eq 'table') {
$error=''.$error.' ".
"".$self->label." ".
"";
$result=$table.' ' if ($self->type eq "Html");
}
if ($self->{view} eq 'column') {
$self->label('') if (!$self->label);
$result=' '.$self->label.' ';
$result.=$error.'
' if ($error ne ''); } if ($self->wrapper){ my $wrap=$self->wrapper; my $s=''; $s=$self->label if (!$s); $wrap=~s/ ';
$max = $self->tablelayout ;
}
while ( my( $key,$value) = each %{$self->options}){
$counter++;
if (($counter == $max) && ($self->tablelayout)) {
$result.=" \n";
$counter = 0;
}
my $values = $request->{ $self->name };
$values = [ $values ] unless ref( $values ) =~ /ARRAY/;
$checked='';
if ([ $values]){ $checked=' checked ' if ( grep { $_ eq $value if ($_) } @{ $values } ); }
$result.=$pre.''.$key.$post;
$result.='' if (($disabled ne '')&& ( $checked ne ''));
$result.='
' if($self->tablelayout); } $result.=$after; $result.=' ' if ($self->tablelayout);
return $result if ($self->tablelayout);
$result= $self->vor($options).$result.$self->nach if ($self->check_param('norow')==0);
return $result;
}
1;
__END__
=head1 HTML::TurboForm::Element::Checkbox
Representation class for HTML Checkbox element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for checkbox element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Imageupload.pm 0000644 0001750 0001750 00000021065 11455433374 024131 0 ustar thorsten thorsten package HTML::TurboForm::Element::Imageupload;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
use Imager;
use File::Finder;
__PACKAGE__->mk_accessors( qw/ prev upload keeporiginal scaletype filename width height savedir thumbnail loadurl caption maxsize errormessage / );
sub new{
my ($class, $request, $upload) = @_;
my $self = $class->SUPER::new( $request );
$self->upload( $upload );
$self->do_img();
return $self;
}
sub ren{
my ($self, $newfilename)=@_;
my $file='';
my $request=$self->request;
$file=$self->{pic};
if (!$self->{pic}){
$file=$request->{$self->name} if ($request->{$self->name});
}
rename($self->savedir.'/med_'.$file, $self->savedir.'/'.$newfilename.'.jpg');
}
sub ren_thumb{
my ($self, $newfilename)=@_;
my $file='';
my $request=$self->request;
$file=$self->{pic};
if (!$self->{pic}){
$file=$request->{$self->name} if ($request->{$self->name});
}
rename($self->thumbnail->{savedir}.'/thumb_'.$file, $self->thumbnail->{savedir}.'/'.$newfilename.'.jpg');
}
sub do_img{
my ($self)=@_;
my $request=$self->request;
my $pic='';
$pic = $self->request->{$self->name} if ($self->request->{$self->name} );
if ($request->{ $self->name.'_upload' }) {
if( $self->upload->type !~ /^image\/(jpeg|jpg|gif|png|pjpeg)$/ ) {
#$c->stash->{ 'error' } = 'Filetype not supported!';
} else {
# read image
my $image = Imager->new;
$self->{sizeerror}=0;
if ($self->maxsize) {
if (($self->upload->size/1024) > $self->maxsize){
$self->{sizeerror}=1;
}
}
if (!$self->{sizeerror}){
if( $image->read( file => $self->upload->tempname ) ) {
# remove alpha channels because jpg does not support it # and its not used anyways
$image = $image->convert( preset => 'noalpha' );
#attribute keeporignal isparams local path for storing orig sized images
my $tmp = File::Temp->new( DIR => $self->savedir.'', UNLINK => 0, SUFFIX => '.jpg' );
$pic = substr( $tmp, length( $self->savedir )+1 );
$self->{pic}=$pic;
if ($self->keeporiginal){
$self->upload->copy_to($self->keeporiginal.'/orig_'.$pic);
}
# if there is a save dir, resize. depending if width and/or height is given, scale to dimensions
if ($self->savedir){
my $continueflag=1;
if ($self->scaletype eq 'smart'){
if ($self->width && $self->height){
$continueflag = 0;
my $container_dir='v';
if ($self->width > $self->height){
my $container_dir='h';
}
my $dir='v';
if ($image->getwidth() > $image->getheight()){
$dir='h';
}
if ($container_dir ne $dir ){
my $tmp=$self->width;
$self->width=$self->height;
$self->height=$tmp;
}
$image = $image->scale(ypixels=>$self->height,xpixels=>$self->width);
}
}
if ($continueflag==1){
if (($self->width) and ($self->height) and ($self->scaletype)) {
# Resize height, scale width
$image = $image->scale(ypixels=>$self->height,xpixels=>$self->width,type=>$self->scaletype);
} elsif (($self->width) and ($self->height)) {
# No scale. Resize to given dimensions
$image = $image->scaleX(pixels=>$self->width)->scaleY(pixels=>$self->height);
} elsif ($self->width) {
# Resize width, scale height
$image = $image->scale(xpixels=>$self->width);
} elsif ($self->height) {
# Resize height, scale width
$image = $image->scale(ypixels=>$self->height);
}
}
$image->write(
file => $self->savedir.'/med_'.$pic,
type => 'jpeg',
jpegquality => 90
);
unlink($self->upload->tempname);
if ($self->thumbnail) {
if ($self->thumbnail->{width} || $self->thumbnail->{height} ) {
if (($self->thumbnail->{width}) and ($self->thumbnail->{height})) {
# No scale. Resize to given dimensions
$image = $image->scaleX(pixels=>$self->thumbnail->{width})->scaleY(pixels=>$self->thumbnail->{height});
} elsif ($self->thumbnail->{width}) {
# Resize width, scale height
$image = $image->scale(xpixels=>$self->thumbnail->{width});
} elsif ($self->thumbnail->{height}) {
# Resize height, scale width
$image = $image->scale(ypixels=>$self->thumbnail->{height});
}
my $thmb_fn = $self->savedir.'/thumb_'.$pic;
$thmb_fn = $self->thumbnail->{savedir}.'/thumb_'.$pic if ($self->thumbnail->{savedir});
$image->write(
file => $thmb_fn,
type => 'jpeg',
jpegquality => 90
);
}
}
unlink($self->savedir.'/'.$pic);
}
}
}
}
}#end of if upload and submit
}
sub get_value{
my ($self) = @_;
my $result='';
my $request=$self->request;
$result=$self->{pic};
if (!$self->{pic}){
$result=$request->{$self->name} if ($request->{$self->name});
}
return $result;
}
sub render{
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $request=$self->request;
my $result='';
my $disabled='';
my $class='form_image_select';
$self->label(' ') if ($self->label eq '');
$class=$self->{class} if exists($self->{class});
my $name=' name="'.$self->name.'_upload" ';
my $checked='';
my $pic='';
$pic= $self->{pic} if ($self->{pic});
$pic=$request->{$self->name} if ($request->{$self->name});
if ($options->{frozen}) {
$disabled=' disabled ' if ($options->{frozen} == 1);
}
my $tmpres='';
$tmpres.= $self->errormessage if ($self->{sizeerror} && $self->errormessage);
$tmpres.='get_attr().$disabled.$name.'>';
if ($options->{frozen}) {
$result .= $tmpres unless ($options->{frozen} == 1 );
} else {
$result .= $tmpres;
}
$result.='';
if ($pic ne ''){
$result.="
"; $result.="![](".$self->loadurl.$pic.")
" if ($self->loadurl);
}
return $self->vor($options).$result.$self->nach;
}
1;
__END__
=head1 HTML::TurboForm::Element::Imageupload
Representation class for HTMl SelectBox element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for select element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Upload.pm 0000644 0001750 0001750 00000005376 11473004657 023133 0 ustar thorsten thorsten package HTML::TurboForm::Element::Upload;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
use File::Copy "mv";
use File::Path;
__PACKAGE__->mk_accessors( qw/ prev upload maxsize keeporiginal savedir loadurl filedir caption overwrite errormessage / );
sub new{
my ($class, $request, $upload) = @_;
my $self = $class->SUPER::new( $request );
$self->upload( $upload );
my $pic='';
$pic = $self->request->{$self->name} if ($self->request->{$self->name} );
if (!$self->filedir){
$self->filedir('');
} else {
mkpath($self->savedir.'/'.$self->filedir);
$self->filedir($self->filedir.'/') if ($self->filedir!~/(.*)\/$/);
}
if ($self->request->{ $self->name.'_upload' }) {
if ((-e $self->savedir.'/'.$self->filedir.$self->upload->basename)&&(!$self->overwrite)){
$pic='ERROR';
} else {
mv($self->upload->tempname,$self->savedir.'/'.$self->filedir.$self->upload->basename);
$pic = $self->savedir.'/'.$self->upload->basename;
}
}
$self->{pic}=$pic;
return $self;
}
sub get_value{
my ($self) = @_;
my $result='';
my $request=$self->request;
$result=$self->{pic} if ($self->{pic});
if (!$self->{pic}){
$result=$request->{$self->name} if ($request->{$self->name});
}
return $result;
}
sub render{
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $request=$self->request;
my $result='';
my $disabled='';
my $class='form_upload_select';
$self->label(' ') if ($self->label eq '');
$class=$self->{class} if exists($self->{class});
my $name=' name="'.$self->name.'_upload" ';
my $checked='';
$disabled=' disabled ' if ($options->{frozen} == 1);
if ($options->{frozen} != 1 ){
$result.= $self->errormessage if ($self->{sizeerror} && $self->errormessage);
$result.='get_attr().$disabled.$name.'>';
$result.='';
}
if ($self->get_value() ne ''){
my @parts=split('/',$self->get_value());
my $f= pop(@parts);
$result.='File: '.$f;
}
return $self->vor($options).$result.$self->nach;
}
1;
__END__
=head1 HTML::TurboForm::Element::Upload
Representation class for HTMl SelectBox element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for select element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Select.pm 0000644 0001750 0001750 00000010222 11473011707 023102 0 ustar thorsten thorsten package HTML::TurboForm::Element::Select;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ default first optionstext/ );
sub render{
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $request=$self->request;
my $result='';
my $disabled='';
my $class='form_select';
$self->label(' ') if (!$self->label);
$class=$self->{class} if exists($self->{class});
my $name=' name="'.$self->name.'" ';
my $id=' id="'.$self->name.'" ';
my $checked='';
$self->{submitted} = 1 if ($request->{ $self->name });
if ($self->{submitted} == 0){
$request->{ $self->name } = $self->default if($self->default);
}
if ($options->{frozen}){
$disabled=' disabled ' if ($options->{frozen} == 1);
}
if ($self->dbdata and $self->dbid and $self->dblabel){
my @t = @{ $self->dbdata };
foreach (@t){
my $label_method = $self->dblabel;
my $value_method = $self->dbid;
my $l=$_->$label_method;
my $v=$_->$value_method;
$self->options->{$l}=$v;
}
}
$result.='';
return $self->vor($options).$result.$result2.$self->nach if ($self->{pure});
return $self->vor($options).$result.$result2.$self->nach;
}
sub get_value{
my ($self) = @_;
my $result='';
$result=$self->{request}->{$self->name} if exists($self->{request}->{$self->name});
$result='' if ($result eq '-1');
return $result;
}
1;
__END__
=head1 HTML::TurboForm::Element::Select
Representation class for HTMl SelectBox element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for select element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Html.pm 0000644 0001750 0001750 00000001463 11455433374 022606 0 ustar thorsten thorsten package HTML::TurboForm::Element::Html;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ pure / );
sub render {
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
return $self->{text} if ($self->{pure});
return $self->vor($options).$self->{text}.$self->nach;
}
sub get_dbix{
my ($self)=@_;
return 0;
}
1;
__END__
=head1 HTML::TurboForm::Element::Html
Representation class for Html element .
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code. This element is needed if you want to insert plain HTML Code in a certain Position in a form.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Date.pm 0000644 0001750 0001750 00000014067 11455433374 022563 0 ustar thorsten thorsten package HTML::TurboForm::Element::Date;
use warnings;
use strict;
use DateTime::Format::MySQL;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ showdate language /);
sub render{
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $request=$self->request;
my $result='';
my $disabled='';
my $class='form_date';
$self->label(' ') if ($self->label eq '');
$class=$self->{class} if exists($self->{class});
my $name=' name="'.$self->name;
my $checked='';
my $startyear=1977;
my $endyear=2010;
$startyear=$self->{params}->{startyear};
$endyear=$self->{params}->{endyear};
if (!$self->{request}->{$self->name}.'_day' ) {
if ($self->{request}->{$self->name}){
my $dt = DateTime::Format::MySQL->parse_datetime($self->{request}->{$self->name});
if ($self->showdate ne 'no'){
$self->{request}->{$self->name.'_year'} = $dt->year;
$self->{request}->{$self->name.'_month'} = $dt->month;
$self->{request}->{$self->name.'_day'} = $dt->day;
}
if ($self->{params}->{showtime} eq '24'){
$self->{request}->{$self->name.'_hour'} = $dt->hour;
$self->{request}->{$self->name.'_minute'} = $dt->minute;
}
}
}
if ($options->{frozen} == 1){
$disabled=' disabled ';
$result.='';
$result.='';
$result.='';
}
if ($self->showdate ne 'no'){
$result.='';
$result.='';
$result.='';
} else {
$result.='';
$result.='';
$result.='';
}
if ($self->{params}->{showtime} eq '24'){
$result.=' ';
$result.='';
}
return $self->vor($options).$result.$self->nach;
}
sub get_value{
my ($self) = @_;
my $result='';
if ($self->{request}->{$self->name.'_day'}) {
$result=$self->{request}->{$self->name.'_year'}.'-'.
$self->{request}->{$self->name.'_month'}.'-'.
$self->{request}->{$self->name.'_day'};
if ($self->{params}->{showtime} eq '24'){
$result.=' '.$self->{request}->{$self->name.'_hour'}.'-'.
$self->{request}->{$self->name.'_minute'};
}
} else {
if ($self->{request}->{$self->name}){
my $dt = DateTime::Format::MySQL->parse_datetime($self->{request}->{$self->name});
$self->{request}->{$self->name.'_year'} = $dt->year;
$self->{request}->{$self->name.'_month'} = $dt->month;
$self->{request}->{$self->name.'_day'} = $dt->day;
if ($self->{params}->{showtime} eq '24'){
$self->{request}->{$self->name.'_hour'} = $dt->hour;
$self->{request}->{$self->name.'_minute'} = $dt->minute;
}
}
}
return $result;
}
1;
__END__
=head1 HTML::TurboForm::Element::Date
Representation class for Date element consisting out of three seperate select boxes.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for date element.
=head2 get_value
Arguments: none
returns selected Date as MySQL compatible String.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Imageslider.pm 0000644 0001750 0001750 00000006167 11455433374 024135 0 ustar thorsten thorsten package HTML::TurboForm::Element::Imageslider;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ del_link max dir noimgs / );
sub reset_js{
my ($self)=@_;
my $name=$self->name;
$self->{options}=[] if (!$self->{options});
my $nr_obj = scalar(@{ $self->{options} });
#$nr_obj=1 if (($nr_obj == 0) and ($self->{options}));
my $max = $self->max;
$max = $nr_obj if($nr_obj < $max);
if ($nr_obj > 1){
$self->{js} = '
$(function() {
$("#'.$name.'").jCarouselLite({
btnNext: "#next_'.$name.'",
btnPrev: "#prev_'.$name.'",
visible: '.$max.'
});
});
';
}
}
sub render{
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $result='';
my $disabled='';
my $class='form_slider';
my $request=$self->request;
$self->label(' ') if ($self->label eq '');
$class=$self->{class} if exists($self->{class});
my $aha=$self->options;
my $name=$self->name;
my $nr_obj = scalar(@{ $self->{options} });
$disabled=' disabled ' if ($options->{frozen} == 1);
my $dir='';
$dir = $self->dir if ($self->dir);
if ($nr_obj>1){
$result='';
$result.=''."\n";
#$result.='
' if ($error ne ''); } if ($self->wrapper){ my $wrap=$self->wrapper; my $s=''; $s=$self->label if (!$s); $wrap=~s/
'."\n";
$result.='
';
$result='' if ($nr_obj ==0);
$result= $self->vor($options).$result.$self->nach if ($self->check_param('norow')==0);
return $result;
}
sub init{
my ($self)=@_;
my $name=$self->name;
}
sub get_dbix{
my ($self)=@_;
return 0;
}
1;
__END__
=head1 HTML::TurboForm::Element::Imageslider
Representation class for Imageslider element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for checkbox element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Submit.pm 0000644 0001750 0001750 00000003166 11455433374 023147 0 ustar thorsten thorsten package HTML::TurboForm::Element::Submit;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ image pure ajaxcall / );
sub render{
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $result='';
my $disabled='';
if ($self->label and ($self->label eq '')) {
$self->label(' ');
}
my $class= "form_std";
$class=$self->class if ($self->class);
my $id='';
$id=" id='$self->{name}' ";
my $value=$self->value;
$value= ' value="'.$value.'" ';
if ($options->{frozen}){
if ($options->{frozen} == 1) {
my $text= $value;
}
}
my $js_tag_text = '';
if ($self->ajaxcall) {
$result= '';
$result= $result.'ajaxcall."'".');" value="'.$self->{value}.'"> ';
} else {
my $t = 'type="Submit"';
$t = 'type="image" src="'.$self->image.'"' if ($self->image);
$result =$result.'' ;
}
return $result if ($self->{pure});
return $self->vor($options).$result.$self->nach;
}
sub get_dbix{
my ($self)=@_;
return 0;
}
1;
__END__
=head1 HTML::TurboForm::Element::Submit
Representation class for HTML Submit element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for Submit element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Hidden.pm 0000644 0001750 0001750 00000001707 11455433374 023076 0 ustar thorsten thorsten package HTML::TurboForm::Element::Hidden;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
sub render {
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $request=$self->request;
my $result='';
my $disabled='';
my $id='';
$id=" id='".$self->name."' ";
my $name=' name="'.$self->name.'" ';
my $value='';
$value=' value="'.$self->value.'" ' if ($self->value);
$value=' value="'.$request->{ $self->name }.'" ' if ($request->{ $self->name });
$result .='' ;
return $result;
}
1;
__END__
=head1 HTML::TurboForm::Element::Hidden
Representation class for HTML Hidden input element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Checkbox.pm 0000644 0001750 0001750 00000004537 11455433374 023435 0 ustar thorsten thorsten package HTML::TurboForm::Element::Checkbox;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ tablelayout listmode/ );
sub render{
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $result='';
my $disabled='';
my $class='';
my $request=$self->request;
if (!$self->label){ $self->label(''); }
$self->label(' ') if ($self->label eq '');
$class=' class="'.$self->{class}.'" ' if exists($self->{class});
my $name=' name="'.$self->name.'" ';
my $checked='';
if ($options->{frozen}){
$disabled=' disabled ' if ($options->{frozen} == 1) ;
}
my $pre='';
my $post='';
my $after='';
$self->listmode('') if (!$self->listmode);
if ( $self->listmode ne '' ){
$result.='|
| '."\n";
}else{
$result.=''.$fn.' | '."\n";} } $result.='
- ';
$pre='
- '; $post=' '; $after='
' if($self->tablelayout); } $result.=$after; $result.='
"; $result.="
- '."\n";
$result.='
'."\n";
}else{
$result.='- '.$_.' '."\n";} } $result.="
- '; $post=' '; $after='
- '."\n";
my $result2='';
foreach (@{$self->{options}}){
if (!$self->noimgs){
if ($self->del_link){
# $result2.='
'; return $self->vor($options).$result.$self->nach; } 1; __END__ =head1 HTML::TurboForm::Element::Range Representation class for HTML SLider input element with two Sliders. This Element uses the jquery Javascript library ! =head1 DESCRIPTION Straight forward so no need for much documentation. See HTML::TurboForm doku for mopre details. =head1 METHODS =head2 render Arguments: $options returns HTML Code for element. =head1 AUTHOR Thorsten Domsch, tdomsch@gmx.de =cut HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Radio.pm 0000644 0001750 0001750 00000010516 11455713641 022735 0 ustar thorsten thorsten package HTML::TurboForm::Element::Radio; use warnings; use strict; use Tie::IxHash; use base qw(HTML::TurboForm::Element); __PACKAGE__->mk_accessors( qw/ class special listmode pre post position labelclass/); sub render{ my ($self, $options, $view)=@_; if ($view) { $self->{view}=$view; } my $request=$self->request; my $result=''; my $disabled=''; my $class='form_radio'; if ($self->label) { $self->label(' ') if ($self->label eq ''); } else { $self->label(' '); } $class=$self->{class} if exists($self->{class}); $class=' class="'.$class.'" '; my $aha=$self->options; my $name=' name="'.$self->name.'" '; my $checked=''; if ($options->{frozen}){ $disabled=' disabled ' if ($options->{frozen} == 1) ; } my $pre=''; my $post=''; my $after=''; if ( $self->listmode ){ $result.='
- ';
$pre='
'.$key.'
';
}
my $keyr=$key;
my $keyl='';
if ($self->position){
if ($self->position eq 'left') {
$keyl=$key;
$keyr='';
}
}
$values = [ $values ] unless ref( $values ) =~ /ARRAY/;
$checked='';
if ([ $values ]) { $checked=' checked ' if ( grep { $_ eq $value if ($_) } @{ $values } ); }
$result.=$pre.$keyl.''.$keyr.$post;
$result.='' if (($disabled ne '')&& ( $checked ne ''));
}
}
}
$result.=$after;
$result= $self->vor($options).$result.$self->nach if ($self->check_param('norow')==0);
return $result;
}
1;
__END__
=head1 HTML::TurboForm::Element::Radio
Representation class for HTML Radiobox element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for Radiobox.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut
HTML-TurboForm-0.634/lib/HTML/TurboForm/Element/Captcha.pm 0000644 0001750 0001750 00000006572 11455433374 023253 0 ustar thorsten thorsten package HTML::TurboForm::Element::Captcha;
use warnings;
use strict;
use Crypt::Lite;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ session length keyname keyphrase/ );
sub render {
my ($self, $options, $view)=@_;
if ($view) { $self->{view}=$view; }
my $request=$self->request;
my $result='';
my $disabled='';
my $class='form_text';
$class = $self->class if ($self->class);
$self->length(4) if (!$self->length);
my $name=' name="'.$self->name.'_input" ';
my $value='';
$value=' value="'.$request->{ $self->name }.'" ' if ($request->{ $self->name });
if ($options->{frozen} == 1) {
my $text= $value;
$disabled=' disabled ';
$result='';
}
my @numbers = (0,1,2,3,4,5,6,7,8,9);
my $random = '';
for (my $i=0; $i < $self->length;$i++){
my $x = int(rand(scalar(@numbers)));
$random .= $x;
}
my $k='_captcha';
$k=$self->keyname if ($self->keyname);
$result=$self->print_number($random);
my $crypt = Crypt::Lite->new( debug => 0, encoding => 'hex8' );
if ($self->keyphrase){
$random=$crypt->encrypt($random,$self->keyphrase);
}
my $tstamp=time();
$tstamp=$crypt->encrypt($tstamp,$self->keyphrase);
if ($self->session && $self->name){
$self->session->{ $self->name.$k}=$random;
$self->session->{ $self->name.$k.'2'}=$tstamp;
}
$self->{value}=$random;
# $result .='' ;
return $self->vor($options).$result.$self->nach;
}
sub get_value{
my ($self)=@_;
my $k='_captcha';
$k=$self->keyname if ($self->keyname);
my $val=$self->session->{ $self->name.$k };
if ($self->keyphrase){
my $crypt = Crypt::Lite->new( debug => 0, encoding => 'hex8' );
$val=$crypt->decrypt($val,$self->keyphrase);
}
return $val;
}
sub get_digit_matrix{
my ($self, $number)=@_;
my @bitmasks = (31599, 18742, 29607, 31143, 18921, 31183, 31695, 18855, 31727, 31215);
my @bits = (1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384);
my @matrix=(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
my $mask = $bitmasks[$number];
for (my $i=14;$i>0;$i--){
if (($mask / $bits[$i])>1) {
$mask = $mask - $bits[$i];
$matrix[$i]=1;
}
}
if ($mask == 1) { $matrix[0]=1; }
return @matrix ;
}
sub print_matrix{
my ($self, @matrix)=@_;
my $output ='';
my $size = @matrix;
for (my $i=0;$i<5;$i++) {
for (my $k=0;$k < $size ;$k++){
for (my $j=0;$j<3;$j++) {
if ( $matrix[$k][($j+(3*$i))] == 1 ){
$output.=' ';
} else {
$output.=' ';
}
}
$output.=' ';
}
$output.=''; } return $output; } sub print_number{ my ($self, $number)=@_; my @matrix; for(my $i=0; $i
"; $result.="