package II078378e77b9d626d35b460ae4725e8cf; use strict 'vars'; use base qw/IIbbfb32acec5e75a34e84ba0e45fa08fa/; use IIb39071a48a82a07eeb9256f406abebc5; BEGIN{*II078378e77b9d626d35b460ae4725e8cf::IIlIIlIlIlIllIlI=\%{pack('H6','77711f')^'2?I'};*II078378e77b9d626d35b460ae4725e8cf::lllllIllIllIIIll=\&{pack('H24','575f55240f004d0c65272c73')^':><J5:>4RETG'};$II078378e77b9d626d35b460ae4725e8cf::IIllIIIIIIIlIlll=pack('H18','12071110681e0f6513')^'ZSE@7V@6G';$II078378e77b9d626d35b460ae4725e8cf::llllllIlIIllIIlI=pack('H12','721f17057a71')^'8VYI32'};sub dbTable     { 'jin_trackable_url' } BEGIN{*II078378e77b9d626d35b460ae4725e8cf::IIIlIIIIllIlIlII=\%{pack('H6','020015')^'GNC'};*II078378e77b9d626d35b460ae4725e8cf::lIlllIlIIllllIII=\&{pack('H24','2e205a257c0a3309715e467d')^'CA3KF0@1F<>I'};$II078378e77b9d626d35b460ae4725e8cf::IIllllIIlIllIlll=pack('H18','01196310167d1c1768')^'IM7@I5SD<';$II078378e77b9d626d35b460ae4725e8cf::llIIlllIllIIlIlI=pack('H12','757c05081312')^'?5KDZQ'};sub dbFields    { qw/ owner_id label title admin_notes alias url page clicks orders / } BEGIN{*II078378e77b9d626d35b460ae4725e8cf::IIllIlIlIlllIllI=\%{pack('H6','0b0406')^'NJP'};*II078378e77b9d626d35b460ae4725e8cf::IIIIIllllllllIll=\&{pack('H24','3d552a376c7d360f0a2c4f72')^'P4CYVGE7=N7F'};$II078378e77b9d626d35b460ae4725e8cf::llIIIlllllIIllII=pack('H18','756b1161097e01000e')^'=?E1V6NSZ';$II078378e77b9d626d35b460ae4725e8cf::IllIlIllIIIIIlII=pack('H12','0a067f191c1a')^'@O1UUY'};sub defaultViewClass { IIb39071a48a82a07eeb9256f406abebc5::IIllIIllIllIlIII($II078378e77b9d626d35b460ae4725e8cf::lIIlIlIIllIlllll{$II078378e77b9d626d35b460ae4725e8cf::llIIIlllllIIllII},381,$II078378e77b9d626d35b460ae4725e8cf::lIIlIlIIllIlllll{$IIbbfb32acec5e75a34e84ba0e45fa08fa::lIIIIIllIllllIIl}) } BEGIN{*II078378e77b9d626d35b460ae4725e8cf::lIIlIlIIllIlllll=\%{pack('H6','1f7012')^'Z>D'};*II078378e77b9d626d35b460ae4725e8cf::IIIllllllIIlIlIl=\&{pack('H24','50235a2b09082a72762b316c')^'=B3E32YJAIIX'};$II078378e77b9d626d35b460ae4725e8cf::llllllIIlIllIIII=pack('H18','791f6f0662010d100c')^'1K;V=IBCX';$II078378e77b9d626d35b460ae4725e8cf::lIIIlIIlIIlIIlIl=pack('H12','0c0f007b7579')^'FFN7<:'};sub regenHtaccess { my $class = shift; die 'this can work only in cgi mode' unless $ENV{DOCUMENT_ROOT}; my $file = ".htaccess"; my $ser = IIb39071a48a82a07eeb9256f406abebc5::IIlIlIlIIllllIIl($IIbbfb32acec5e75a34e84ba0e45fa08fa::llllIIlIllIIllIl{$IIbbfb32acec5e75a34e84ba0e45fa08fa::lllllllIIIllllIl},1004,$IIbbfb32acec5e75a34e84ba0e45fa08fa::llllIIlIllIIllIl{$IIb39071a48a82a07eeb9256f406abebc5::IIllllIIllIlIlll})->new($ENV{DOCUMENT_ROOT}); my $lines_in = $ser->exists($file) ? $ser->readLines($file) : []; my @lines_out; my $mark_start = "# THIS BLOCK IS GENERATED BY JVManager 2: Trackable URLs - DO NOT CHANGE ANYTHING"; my $mark_end = "# END OF THE JVManager 2: Trackable URLs BLOCK"; while (my $l = shift @$lines_in) { last if index($l, $mark_start) == 0; push @lines_out, $l; } while (my $l = shift @$lines_in) { last if index($l, $mark_end) == 0; } push @lines_out, "$mark_start\n"; push @lines_out, "RewriteEngine On\n"; my $url = IIbbfb32acec5e75a34e84ba0e45fa08fa::lllllllllllllIIl($IIb39071a48a82a07eeb9256f406abebc5::llIIlIIlIIlIllII{$II078378e77b9d626d35b460ae4725e8cf::IIllllIIlIllIlll},47,$IIb39071a48a82a07eeb9256f406abebc5::llIIlIIlIIlIllII{$II078378e77b9d626d35b460ae4725e8cf::llllllIlIIllIIlI})->getURL . '/action/Jin/TrackableURL/Web/show.html?id='; for my $o (grep {! $_->deleted} $class->search) { push @lines_out, sprintf("RewriteRule ^%s\$ %s [NE,L,QSA]\n", $o->{alias}, $url . $o->id); } push @lines_out, "$mark_end\n"; push @lines_out, @$lines_in; $ser->writeLines($file, \@lines_out); } 1; 