package II35e475847d1fdf452db46718f2b9007e; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use II1d17f4bae0cdcee9878216ee8bd5ec5d; BEGIN{*II35e475847d1fdf452db46718f2b9007e::IlIIIIlIIIIlIllI=\%{pack('H6','111900')^'TWV'};*II35e475847d1fdf452db46718f2b9007e::lIlllIIIIIlIlIlI=\&{pack('H24','5820312c6076356071342e63')^'5AXBZLFXFVVW'};$II35e475847d1fdf452db46718f2b9007e::IlIlIllIIlIlIlll=pack('H18','1f1364180f750a0361')^'WG0HP=EP5';$II35e475847d1fdf452db46718f2b9007e::llIIIIlIllllIlll=pack('H12','7c007c050471')^'6I2IM2'};sub log { my $class = shift; my ($sqltable, $record_id, $sqlfield, $value1, $value2, $comment) = @_; die unless $sqltable && $record_id && $sqlfield; my $dbc = II35e475847d1fdf452db46718f2b9007e::lIlllIIIIIlIlIlI($II35e475847d1fdf452db46718f2b9007e::IlIIIIlIIIIlIllI{$II1d17f4bae0cdcee9878216ee8bd5ec5d::lIIlllIIllIIIIIl},114,$II35e475847d1fdf452db46718f2b9007e::IlIIIIlIIIIlIllI{$II720d6e18aa34327713eb014408fc9144::llIIIIIIIlllIIII})->dbc; my $sql = $class->classdata->{LogSql} ||= $dbc->prepare("insert into jin_datalog set tstamp=now(), user_id=?, sqltable=?, record_id=?, sqlfield=?, value1=?, value2=?, comment=?"); my $loggedUser = II1d17f4bae0cdcee9878216ee8bd5ec5d::llIIllIlIIlllIll($II720d6e18aa34327713eb014408fc9144::llIlIIIlIlIlIlIl{$II35e475847d1fdf452db46718f2b9007e::IlIIlIIIlllllllI},47,$II720d6e18aa34327713eb014408fc9144::llIlIIIlIlIlIlIl{$II35e475847d1fdf452db46718f2b9007e::llIIIIlIllllIlll})->hasLoggedUser; $dbc->do($sql, [ ($loggedUser ? $loggedUser->{id} : 0), $sqltable, $record_id, $sqlfield, ($value1 || ''), ($value2 || ''), ($comment || '') ]); return; } BEGIN{*II35e475847d1fdf452db46718f2b9007e::IIlIllIlIIllIIll=\%{pack('H6','0e7603')^'K8U'};*II35e475847d1fdf452db46718f2b9007e::llIllIIllIlIIIlI=\&{pack('H24','2b39562e7375397564344a64')^'FX?@IOJMSV2P'};$II35e475847d1fdf452db46718f2b9007e::IlIIlIIIlllllllI=pack('H18','11046006660f7f1867')^'YP4V9G0K3';$II35e475847d1fdf452db46718f2b9007e::lIIIIIIIIlIlIlII=pack('H12','1c18767b0a77')^'VQ87C4'};sub mnt_display { my $class = shift; my $C = shift; my $in = $C->{INPUT}; $C->{display_title} = $class->cfg->{display_titles}{"$in->{sqltable}.$in->{sqlfield}"} or die; my $dbc = II1d17f4bae0cdcee9878216ee8bd5ec5d::IIIIlIllIllIIlIl($II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$II35e475847d1fdf452db46718f2b9007e::IlIIlIIIlllllllI},114,$II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$II35e475847d1fdf452db46718f2b9007e::llIIIIlIllllIlll})->dbc; $C->{Data} = $dbc->getRecords("select * from jin_datalog where sqltable=? and sqlfield=? and record_id=? order by id desc", [$in->{sqltable}, $in->{sqlfield}, $in->{record_id}]); for (@{ $C->{Data} }) { $_->{user_name} = II720d6e18aa34327713eb014408fc9144::lIIlIIlIIIIlIIIl($II720d6e18aa34327713eb014408fc9144::IIlllIIllllIlIll{$II1d17f4bae0cdcee9878216ee8bd5ec5d::lIIlllIIllIIIIIl},114,$II720d6e18aa34327713eb014408fc9144::IIlllIIllllIlIll{$II720d6e18aa34327713eb014408fc9144::lIllllIIllIlIIll})->get($_->{user_id})->{name} if $_->{user_id}; } return; } 1; 