package IIc8465bf41b7782f96bf6c1fa27d653d3; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use LWP::UserAgent; use IIbaeecde032f749e1cf53bc335cb08cc3; BEGIN{*IIc8465bf41b7782f96bf6c1fa27d653d3::llIIlIlIIIlIIlIl=\%{pack('H6','1f1a1d')^'ZTK'};*IIc8465bf41b7782f96bf6c1fa27d653d3::IIllIIIIIIIlllII=\&{pack('H24','2a305423720931060c5c4406')^'GQ=MH3B>;><2'};$IIc8465bf41b7782f96bf6c1fa27d653d3::IIIlllIIIIIIIIlI=pack('H18','080d1b671d72070512')^'@YO7B:HVF';$IIc8465bf41b7782f96bf6c1fa27d653d3::IIIlIlIllIllllll=pack('H12','1f0117741b07')^'UHY8RD'};sub fields    { II3562149e53818b6637b38680e87ba918::IIIlIllllllIlIIl($IIc8465bf41b7782f96bf6c1fa27d653d3::IlIIlIlllIllIIlI{$IIbaeecde032f749e1cf53bc335cb08cc3::lIIIIIIIIllIIIll},156,$IIc8465bf41b7782f96bf6c1fa27d653d3::IlIIlIlllIllIIlI{$IIbaeecde032f749e1cf53bc335cb08cc3::lllIlIlIlIlllllI})->dbFields } BEGIN{*IIc8465bf41b7782f96bf6c1fa27d653d3::IIlIIIlIllIllIII=\%{pack('H6','7d0205')^'8LS'};*IIc8465bf41b7782f96bf6c1fa27d653d3::IlIllllIIlIllIll=\&{pack('H24','385352587203357771533970')^'U2;6H9FOF1AD'};$IIc8465bf41b7782f96bf6c1fa27d653d3::IIIIlllIIIlIlllI=pack('H18','0618111f170f161665')^'NLEOHGYE1';$IIc8465bf41b7782f96bf6c1fa27d653d3::IIIlIIlIIllIlIII=pack('H12','0d1d71710011')^'GT?=IR'};sub required  { qw/title url username/ } BEGIN{*IIc8465bf41b7782f96bf6c1fa27d653d3::lIlllllIlIIIlllI=\%{pack('H6','77166d')^'2X;'};*IIc8465bf41b7782f96bf6c1fa27d653d3::IlIIIIIlllllllIl=\&{pack('H24','56253320726e3e010c37366c')^';DZNHTM9;UNX'};$IIc8465bf41b7782f96bf6c1fa27d653d3::llIIIIlIIlIIlIll=pack('H18','7d0403026a78716807')^'5PWR50>;S';$IIc8465bf41b7782f96bf6c1fa27d653d3::lIIlIIIlIIIIlIlI=pack('H12','7f7918001d12')^'50VLTQ'};sub namesResourcePrefix { 'field.blogpub' } __PACKAGE__->standardHandler($_, $_ => "conflist(select,IIbaeecde032f749e1cf53bc335cb08cc3::types,,onChange=atkGoActionEditor('reload'))") for qw/blog_type/; __PACKAGE__->standardHandler($_, $_ => 'text(20)') for qw/username password/; __PACKAGE__->standardHandler($_, $_ => 'conflist(radio,IIbaeecde032f749e1cf53bc335cb08cc3::formats)') for qw/format/; __PACKAGE__->standardHandler($_, $_ => 'text(34)') for qw/login_url pub_url/; __PACKAGE__->standardHandler($_, $_ => 'textarea(5,46)') for qw/login_params pub_params/; BEGIN{*IIc8465bf41b7782f96bf6c1fa27d653d3::IlIIlIlllIllIIlI=\%{pack('H6','0e0a01')^'KDW'};*IIc8465bf41b7782f96bf6c1fa27d653d3::IIlllllIIIIllIll=\&{pack('H24','395823347171460c0d272c0e')^'T9JZKK54:ET:'};$IIc8465bf41b7782f96bf6c1fa27d653d3::lIlllllllIIlllIl=pack('H18','7e1400141e04091903')^'6@TDALFJW';$IIc8465bf41b7782f96bf6c1fa27d653d3::IIlIllIllIllIIlI=pack('H12','1f0a730e1d04')^'UC=BTG'};sub setUrl { my ($this, $v) = @_; my $object = $this->getDecorated; $v =~ s!\/$!!; $v = "http://$v" if $v && $v !~ /^http/; $object->{url} = $v; return; } BEGIN{*IIc8465bf41b7782f96bf6c1fa27d653d3::IllIIllIIlIlIlII=\%{pack('H6','1c7715')^'Y9C'};*IIc8465bf41b7782f96bf6c1fa27d653d3::IIIlIIlIllIIIIIl=\&{pack('H24','2c233f536f7b26027b3a290b')^'ABV=UAU:LXQ?'};$IIc8465bf41b7782f96bf6c1fa27d653d3::IIIlllIIlIlIIIIl=pack('H18','1002121267121e1a69')^'XVFB8ZQI=';$IIc8465bf41b7782f96bf6c1fa27d653d3::IIllIIIlIIIllIIl=pack('H12','0b1816077e79')^'AQXK7:'};sub setLogin_params { my ($this, $v) = @_; my $in = $this->getInput; my $object = $this->getDecorated; $v = _normalize_params($v); $object->{login_params} = $v; return; } BEGIN{*IIc8465bf41b7782f96bf6c1fa27d653d3::llIllllIIIIlIIIl=\%{pack('H6','027c14')^'G2B'};*IIc8465bf41b7782f96bf6c1fa27d653d3::llIlIIlllllIIIIl=\&{pack('H24','3d202f2d057837057b562c63')^'PAFC?BD=L4TW'};$IIc8465bf41b7782f96bf6c1fa27d653d3::IlIlIllllIIIIIIl=pack('H18','106b62176e7209616c')^'X?6G1:F28';$IIc8465bf41b7782f96bf6c1fa27d653d3::lllIIIllIIIlIIII=pack('H12','7c0d1f0a0915')^'6DQF@V'};sub setPub_params { my ($this, $v) = @_; my $in = $this->getInput; my $object = $this->getDecorated; $v = _normalize_params($v); $object->{pub_params} = $v; return; } BEGIN{*IIc8465bf41b7782f96bf6c1fa27d653d3::lIIlllIlIlllIllI=\%{pack('H6','14741c')^'Q:J'};*IIc8465bf41b7782f96bf6c1fa27d653d3::llIIIllIIllIlIlI=\&{pack('H24','205d3a21690c486167504572')^'M<SOS6;YP2=F'};$IIc8465bf41b7782f96bf6c1fa27d653d3::IlllIIIIlIlIlllI=pack('H18','7a6d1b051b79091f1e')^'29OUD1FLJ';$IIc8465bf41b7782f96bf6c1fa27d653d3::llllIIlIlllIIIII=pack('H12','72181a097071')^'8QTE92'};sub _normalize_params { my $params = shift; my @lines; for my $l (split(/^/, $params)) { for ($l) { s/^[\s\t\r\n]+//; s/[\s\t\r\n]+$//; } push @lines, $l if index($l, '=') > 0; } join "\n", @lines; } 1; 