package II92cd39a83bb10749e2e28cdb2ecc6fee; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use IId47723fc68f7d1c37f9d900358303db4; BEGIN{*II92cd39a83bb10749e2e28cdb2ecc6fee::lIIlllllIIIIlIlI=\%{pack('H6','1c0063')^'YN5'};*II92cd39a83bb10749e2e28cdb2ecc6fee::lIllIIIIIIllIlII=\&{pack('H24','37375d2d0b744260613a440e')^'ZV4C1N1XVX<:'};$II92cd39a83bb10749e2e28cdb2ecc6fee::lIIlIlIlIlIllllI=pack('H18','79601c1d6d0e040b15')^'14HM2FKXA';$II92cd39a83bb10749e2e28cdb2ecc6fee::lIIIIIIlIIllIllI=pack('H12','747c72031d03')^'>5<OT@'};sub fields    { qw/ftp_file upload/ } BEGIN{*II92cd39a83bb10749e2e28cdb2ecc6fee::lIIIIllIIIlIlIlI=\%{pack('H6','130a07')^'VDQ'};*II92cd39a83bb10749e2e28cdb2ecc6fee::lIIIIlIIllllIIII=\&{pack('H24','352d585971073860662b2b79')^'XL17K=KXQISM'};$II92cd39a83bb10749e2e28cdb2ecc6fee::IIIIllIllIIlllIl=pack('H18','7d6665611d19156d19')^'5211BQZ>M';$II92cd39a83bb10749e2e28cdb2ecc6fee::IllIlllIIIlllIll=pack('H12','080f79721817')^'BF7>QT'};sub required  { qw// } BEGIN{*II92cd39a83bb10749e2e28cdb2ecc6fee::lllIIlIlIIIlIlll=\%{pack('H6','10091a')^'UGL'};*II92cd39a83bb10749e2e28cdb2ecc6fee::lllIIlIIlIIIlIll=\&{pack('H24','3e50205f7d7a4c6c7b213109')^'S1I1G@?TLCI='};$II92cd39a83bb10749e2e28cdb2ecc6fee::IlIlIlIllIIllIIl=pack('H18','1d0e11096f761a6f1e')^'UZEY0>U<J';$II92cd39a83bb10749e2e28cdb2ecc6fee::llllllIIlIIlIlll=pack('H12','0a74087f0870')^'@=F3A3'};sub namesResourcePrefix { 'field.dbbackup' } BEGIN{*II92cd39a83bb10749e2e28cdb2ecc6fee::IllIIIlllIIlIlII=\%{pack('H6','7a1c14')^'?RB'};*II92cd39a83bb10749e2e28cdb2ecc6fee::lllllIllIlIIllIl=\&{pack('H24','2258592a776b237e0e344a70')^'O90DMQPF9V2D'};$II92cd39a83bb10749e2e28cdb2ecc6fee::lIIIlllIlIIIlllI=pack('H18','0c1c6d606b7d1f6613')^'DH9045P5G';$II92cd39a83bb10749e2e28cdb2ecc6fee::IIIllllIIlIIllII=pack('H12','181e1a067601')^'RWTJ?B'};sub process { my $this = shift; my $in = $this->getInput; my $object = $this->getDecorated; $this->SUPER::process; return if $this->{errors}; $this->addError(__PACKAGE__->message('dbbackup.form.error.fields_required')) unless $in->{ftp_file} || ($in->{Upload} && $in->{Upload}{data}); return; } BEGIN{*II92cd39a83bb10749e2e28cdb2ecc6fee::IlllllIIllIllIIl=\%{pack('H6','11720f')^'T<Y'};*II92cd39a83bb10749e2e28cdb2ecc6fee::IlIllllIlIllIllI=\&{pack('H24','2d5e523a0c624b6d002e217a')^'@?;T6X8U7LYN'};$II92cd39a83bb10749e2e28cdb2ecc6fee::llIIIIlIIIIIIlIl=pack('H18','0a6c651812120d1612')^'B81HMZBEF';$II92cd39a83bb10749e2e28cdb2ecc6fee::IIlllllIllIIIlII=pack('H12','0d13771b7e1a')^'GZ9W7Y'};sub getFtp_file { my $this = shift; my $object = $this->getDecorated; my $f = 'ftp_file'; my $ftp = IId47723fc68f7d1c37f9d900358303db4::llIllIllllIlllll($IId47723fc68f7d1c37f9d900358303db4::lIIllIlllIIllllI{$II92cd39a83bb10749e2e28cdb2ecc6fee::IlIlIlIllIIllIIl},55,$IId47723fc68f7d1c37f9d900358303db4::lIIllIlllIIllllI{$II92cd39a83bb10749e2e28cdb2ecc6fee::IllIlllIIIlllIll})->connectToFTP; my (@values, %labels); if (ref($ftp) eq 'Net::FTP') { @values = sort { $b cmp $a } grep { m/^delavo_db_/ } $ftp->ls(); %labels = map { $_ => $_ } @values; $ftp->quit; } II3562149e53818b6637b38680e87ba918::perllist::buildList('select', $f, $object->{$f}, \@values, \%labels, '='); } BEGIN{*II92cd39a83bb10749e2e28cdb2ecc6fee::IIlIIIIllIllIlIl=\%{pack('H6','16706d')^'S>;'};*II92cd39a83bb10749e2e28cdb2ecc6fee::llIllIIllIIllllI=\&{pack('H24','3d273a240d7c200609203b7b')^'PFSJ7FS>>BCO'};$II92cd39a83bb10749e2e28cdb2ecc6fee::lIIIlIlIlIlIlllI=pack('H18','006f6204630e7a6301')^'H;6T<F50U';$II92cd39a83bb10749e2e28cdb2ecc6fee::llIllIIIlIIIIlII=pack('H12','00050e761100')^'JL@:XC'};sub getUpload { my $this = shift; qq(<input type=file name="Upload" size="50">); } 1; 