package IIbaeecde032f749e1cf53bc335cb08cc3; use strict 'vars'; use base qw/II674e2407e107271bcc76478050bc636a/; use IIc5527ba3c4b7aae6d2a7141dc11c0d37::Browser; BEGIN{*IIbaeecde032f749e1cf53bc335cb08cc3::lllIlllIIIlllIII=\%{pack('H6','0e7103')^'K?U'};*IIbaeecde032f749e1cf53bc335cb08cc3::lllllIllIlIIIlIl=\&{pack('H24','545a28277607250371383306')^'9;AIL=V;FZK2'};$IIbaeecde032f749e1cf53bc335cb08cc3::lIIIIllllllIlllI=pack('H18','79681d1f12030b1415')^'1<IOMKDGA';$IIbaeecde032f749e1cf53bc335cb08cc3::lllIlllllIlIIIIl=pack('H12','0d717a19100a')^'G84UYI'};sub dbTable     { 'jin_blogpub' } BEGIN{*IIbaeecde032f749e1cf53bc335cb08cc3::IIllllIllIIIlIII=\%{pack('H6','17080c')^'RFZ'};*IIbaeecde032f749e1cf53bc335cb08cc3::IllIlIlIIIIIIllI=\&{pack('H24','2b3456277f603401092c3a78')^'FU?IEZG9>NBL'};$IIbaeecde032f749e1cf53bc335cb08cc3::lllllIIIIlIIIllI=pack('H18','0269681168777e651f')^'J=<A7?16K';$IIbaeecde032f749e1cf53bc335cb08cc3::IIllIIIlIllIllll=pack('H12','12111d767e0c')^'XXS:7O'};sub dbFields    { qw/ owner_id blog_type title url username password format login_url login_params pub_url pub_params / } BEGIN{*IIbaeecde032f749e1cf53bc335cb08cc3::IIlIIlIllIlIlIlI=\%{pack('H6','077e11')^'B0G'};*IIbaeecde032f749e1cf53bc335cb08cc3::llIIIIIIlIIlIIII=\&{pack('H24','292f5a2a030d38790b242171')^'DN3D97KA<FYE'};$IIbaeecde032f749e1cf53bc335cb08cc3::IIIlIlIIlIlIIIII=pack('H18','0e180e13167e0e6f02')^'FLZCI6A<V';$IIbaeecde032f749e1cf53bc335cb08cc3::lIIIlIllIIIlIIIl=pack('H12','0073050b000f')^'J:KGIL'};sub modRegistry	 { Zen::Config->get(II674e2407e107271bcc76478050bc636a::IIlllIllIIIIllIl($IIbaeecde032f749e1cf53bc335cb08cc3::IllIIlIIIlIlIIlI{$IIbaeecde032f749e1cf53bc335cb08cc3::llIIIlIlIllIIIll},156,$IIbaeecde032f749e1cf53bc335cb08cc3::IllIIlIIIlIlIIlI{$II674e2407e107271bcc76478050bc636a::IIIlIIIIlIlIlIII}))->{types} } BEGIN{*IIbaeecde032f749e1cf53bc335cb08cc3::lllIIllIIlllIIlI=\%{pack('H6','0f7564')^'J;2'};*IIbaeecde032f749e1cf53bc335cb08cc3::llIIlIlIIlllIIlI=\&{pack('H24','555c21297f7f47620f562d65')^'8=HGEE4Z84UQ'};$IIbaeecde032f749e1cf53bc335cb08cc3::llIIIlIlIllIIIll=pack('H18','7f0563116b7503666e')^'7Q7A4=L5:';$IIbaeecde032f749e1cf53bc335cb08cc3::IllIIllllIIlIllI=pack('H12','701e00740174')^':WN8H7'};sub modScope	 { 'IIbaeecde032f749e1cf53bc335cb08cc3::mod_' } BEGIN{*IIbaeecde032f749e1cf53bc335cb08cc3::IllIIlllIllIIIll=\%{pack('H6','070864')^'BF2'};*IIbaeecde032f749e1cf53bc335cb08cc3::lllIIlIIlIIllIll=\&{pack('H24','203639596f6e3a706d224e67')^'MWP7UTIHZ@6S'};$IIbaeecde032f749e1cf53bc335cb08cc3::lIlIIIIlIIlllIIl=pack('H18','0d6f0d0a051c0b6663')^'E;YZZTD57';$IIbaeecde032f749e1cf53bc335cb08cc3::IlIIIlIIlIIlIlll=pack('H12','197a7e7d1b13')^'S301RP'};sub modTypeField { 'blog_type' } BEGIN{*IIbaeecde032f749e1cf53bc335cb08cc3::lIllIIllIllIIlII=\%{pack('H6','7f021d')^':LK'};*IIbaeecde032f749e1cf53bc335cb08cc3::IllIlIllllllllIl=\&{pack('H24','58582c2f68053760702d2800')^'59EAR?DXGOP4'};$IIbaeecde032f749e1cf53bc335cb08cc3::IIIlIIlIIllIllll=pack('H18','781e101807751f676c')^'0JDHX=P48';$IIbaeecde032f749e1cf53bc335cb08cc3::lllIlIlIlIlllllI=pack('H12','711e72757e13')^';W<97P'};sub get { my $this = shift()->SUPER::get(shift()); $this->{login_params} ||= <<END;
login_field=#{username}
password_field=#{password}
submit_field=Log in!
END
$this->{pub_params} ||= <<END;
action=post
subject=#{subject}
content=#{message}
tags=#{tags}
categories=#{categories}
publish=Publish
END
$this->{format} ||= 0; $this; } BEGIN{*IIbaeecde032f749e1cf53bc335cb08cc3::IllIIlIIIlIlIIlI=\%{pack('H6','0f0760')^'JI6'};*IIbaeecde032f749e1cf53bc335cb08cc3::IllllllIlIIIIIlI=\&{pack('H24','2731315e097c400666384305')^'JPX03F3>QZ;1'};$IIbaeecde032f749e1cf53bc335cb08cc3::lIIIIIIIIllIIIll=pack('H18','08621a060b1c1d611c')^'@6NVTTR2H';$IIbaeecde032f749e1cf53bc335cb08cc3::IIlIllIlllIllIIl=pack('H12','710d1e001d02')^';DPLTA'};sub listCatzOrTags { my $this = shift; my $mode = shift; die unless $mode eq 'catz' || $mode eq 'tags'; $mode = ucfirst($mode); return () unless $this->modHasMethod("list$mode"); my $ses = IIc5527ba3c4b7aae6d2a7141dc11c0d37::Browser->get; my $sesfile = "Blogpub.$mode.$this->{id}"; if ($ses->exists($sesfile)) { return @{ $ses->extrArray($ses->readBulk($sesfile)) }; } my @labels = $this->modGetMethod("list$mode")->do($this); return () unless @labels; $ses->writeBulk($sesfile, $ses->packArray(\@labels)); @labels; } BEGIN{*IIbaeecde032f749e1cf53bc335cb08cc3::IlIIIIlIlIllIIll=\%{pack('H6','770511')^'2KG'};*IIbaeecde032f749e1cf53bc335cb08cc3::lIIlIIIIIllIllll=\&{pack('H24','51262534067924700420207c')^'<GLZ<CWH3BXH'};$IIbaeecde032f749e1cf53bc335cb08cc3::IIlllllIIllIIlIl=pack('H18','1c0565050f767f131c')^'TQ1UP>0@H';$IIbaeecde032f749e1cf53bc335cb08cc3::IlIlIlIIIlIIllll=pack('H12','1b721f0b7c09')^'Q;QG5J'};sub checkToAddCatzOrTags { my $this = shift; my ($mode, $labels) = @_; die unless $mode eq 'catz' || $mode eq 'tags'; return unless $labels; my %existing = map { $_ => 1 } $this->listCatzOrTags($mode); my @selected = split ',', $labels; my $has_new; for my $l (@selected) { if (! exists $existing{$l}) { $has_new = 1; my $method = $mode eq 'catz'  ? "createCat" : "createTag"; if ($this->modHasMethod($method)) { $this->modGetMethod($method)->do($this, $l); } } } if ($has_new) { my $ses = IIc5527ba3c4b7aae6d2a7141dc11c0d37::Browser->get; my $sesfile = "Blogpub." . ucfirst($mode) . ".$this->{id}"; $ses->drop($sesfile); } return; } 1; 