package II72be013ca75ff54b01e5cac48fa18f0b; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use LWP::UserAgent; BEGIN{*II72be013ca75ff54b01e5cac48fa18f0b::lIlIIIllllIIllll=\%{pack('H6','77716f')^'2?9'};*II72be013ca75ff54b01e5cac48fa18f0b::IlIIIlllllIIIIlI=\&{pack('H24','5a58545a6d744b03773a3e0c')^'79=4WN8;@XF8'};$II72be013ca75ff54b01e5cac48fa18f0b::lIIlIIIIIIIlIlII=pack('H18','030102091b72031503')^'KUVYD:LFW';$II72be013ca75ff54b01e5cac48fa18f0b::lIlIIIlIlllllllI=pack('H12','13090e067b76')^'Y@@J25'};sub fields    { qw/ name email image website_title website_url testimonial videofile player youtube_id url / } BEGIN{*II72be013ca75ff54b01e5cac48fa18f0b::IIIIlIIllIlllIll=\%{pack('H6','157816')^'P6@'};*II72be013ca75ff54b01e5cac48fa18f0b::lIIllIllIIIIIlIl=\&{pack('H24','5a39515b7c783208635f4e0a')^'7X85FBA0T=6>'};$II72be013ca75ff54b01e5cac48fa18f0b::IllIlIIIlIllIIll=pack('H18','1162110a1801786c0e')^'Y6EZGI7?Z';$II72be013ca75ff54b01e5cac48fa18f0b::lIIlIlIIlIllIlll=pack('H12','067100021e00')^'L8NNWC'};sub required  { qw/name email testimonial/ } BEGIN{*II72be013ca75ff54b01e5cac48fa18f0b::IlIlllllllIlIIII=\%{pack('H6','790313')^'<ME'};*II72be013ca75ff54b01e5cac48fa18f0b::lIlIIIllIIIIlIll=\&{pack('H24','3b5c255b7e774d780853327c')^'V=L5DM>@?1JH'};$II72be013ca75ff54b01e5cac48fa18f0b::IlIllIlllIIIIIIl=pack('H18','120d0109690a096711')^'ZYUY6BF4E';$II72be013ca75ff54b01e5cac48fa18f0b::lIlIIIlllllIllII=pack('H12','7c761e7c1b0f')^'6?P0RL'};sub namesResourcePrefix { 'field.testimonial' } __PACKAGE__->standardHandler($_, $_ => 'textarea(10, 52)') for qw/testimonial/; __PACKAGE__->standardHandler($_, $_ => 'conflist(select,lists::players::main)')	for qw/player/; __PACKAGE__->standardHandler($_, $_ => 'text(15)') for qw/youtube_id/; BEGIN{*II72be013ca75ff54b01e5cac48fa18f0b::IlIIIlllIIIIIIIl=\%{pack('H6','730804')^'6FR'};*II72be013ca75ff54b01e5cac48fa18f0b::lIIllIIIIIlIllII=\&{pack('H24','5d203f3c69754179622d447a')^'0AVRSO2AUO<N'};$II72be013ca75ff54b01e5cac48fa18f0b::lIllIIIlIlllIlIl=pack('H18','0a171665621c720716')^'BCB5=T=TB';$II72be013ca75ff54b01e5cac48fa18f0b::IIllIIlllIllIIIl=pack('H12','06107d1b0b09')^'LY3WBJ'};sub getImage { my $this = shift; qq(<input type=file name="Image" size="50">); } BEGIN{*II72be013ca75ff54b01e5cac48fa18f0b::lIlIIIIlllIlllII=\%{pack('H6','151a6d')^'PT;'};*II72be013ca75ff54b01e5cac48fa18f0b::IlllIllIIIIlIlll=\&{pack('H24','54282a28746024716121470b')^'9ICFNZWIVC??'};$II72be013ca75ff54b01e5cac48fa18f0b::lIlllIIIIIIIlIlI=pack('H18','086069191d1e071303')^'@4=IBVH@W';$II72be013ca75ff54b01e5cac48fa18f0b::llIIlIlIllIlIIlI=pack('H12','130e04167d0f')^'YGJZ4L'};sub getVideofile { my $this = shift; qq(<input type=file name="Videofile" size="50">); } BEGIN{*II72be013ca75ff54b01e5cac48fa18f0b::lIlllllIllIlllII=\%{pack('H6','0b7c06')^'N2P'};*II72be013ca75ff54b01e5cac48fa18f0b::lIIllIIIlIlIllll=\&{pack('H24','2a2738386a6d446e63234967')^'GFQVPW7VTA1S'};$II72be013ca75ff54b01e5cac48fa18f0b::IllIIllllIlllllI=pack('H18','0c0c0e101f02716815')^'DXZ@@J>;A';$II72be013ca75ff54b01e5cac48fa18f0b::IIIllIIlIIIlIIlI=pack('H12','061f710a087c')^'LV?FA?'};sub setYoutube_id { my ($this, $v) = @_; my $object = $this->getDecorated; $this->addError(__PACKAGE__->message('testimonial.error.invalid_youtube_id', $v)) if $v && $v !~ m|^[\w\-]+$|; $object->{youtube_id} = $v; } BEGIN{*II72be013ca75ff54b01e5cac48fa18f0b::IIlllIIlIIlIlIll=\%{pack('H6','737001')^'6>W'};*II72be013ca75ff54b01e5cac48fa18f0b::llIIIIlIllIllIlI=\&{pack('H24','585d5023730143776f323a76')^'5<9MI;0OXPBB'};$II72be013ca75ff54b01e5cac48fa18f0b::llllIIllIlIIIIIl=pack('H18','1e65106e6b1d1d0514')^'V1D>4URV@';$II72be013ca75ff54b01e5cac48fa18f0b::llIllllIIIIIlIII=pack('H12','1c0a747e7673')^'VC:2?0'};sub setUrl { my ($this, $v) = @_; my $in = $this->getInput; my $object = $this->getDecorated; if ($v) { my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->env_proxy; my $url = $in->{url} =~ /^http/ ? $in->{url} : "http://$in->{url}"; my $response = $ua->head($url); $this->addError(__PACKAGE__->message('testimonial.error.problem_url', $response->status_line)) if (! $response->is_success); } $object->{url} = $v; } 1; 