use JSON;
use IO::Compress::Gzip qw(gzip $GzipError);
use Compress::Zlib;
-use Crypt::Blowfish;
-use Crypt::CBC;
use lib "system/modules";
require Settings;
my ($st, @arr);
try {
- if($action eq 'store'){
-
- my $cipher = Crypt::CBC->new(-key => cryptKey(), -cipher => 'Blowfish');
+ my $cipher = Settings::newCipher($passw);
+ if($action eq 'store'){
$doc = qq({
"lid": "$lid",
"bg": "$bg",
@arr = Settings::selectRecords($db,"SELECT DOC FROM NOTES WHERE LID = '0';")->fetchrow_array();
}
$doc = $arr[0];
-
- my $d = uncompress($doc);
- my $cipher = Crypt::CBC->new(-key => cryptKey(), -cipher => 'Blowfish');
- $doc = $cipher->decrypt($d);
-
+ $doc = $cipher->decrypt(uncompress($doc));
# print $cgi->header( -expires => "+0s", -charset => "UTF-8" );
# print($doc);
# exit;
}
else {
if ($isInViewMode) {
- if($prm_rtf){$log_output .= '<tr id="brw_row"><td colspan="5"><b>No RTF records found matching criteria.</b></td></tr>'}
- else {$log_output .= '<tr id="brw_row"><td colspan="5"><b>You have reached the end of the data view!</b></td></tr>'}
- }else{ $log_output .= '<tr id="brw_row"><td colspan="5"><b>Database is New or Empty!</b></td></tr>'}
+ if($prm_rtf){$log_output .= '<tr id="brw_row"><td colspan="6" class="r1"><b>No RTF records found matching criteria.</b></td></tr>'}
+ else {$log_output .= '<tr id="brw_row"><td colspan="6" class="r1"><b>You have reached the end of the data view!</b></td></tr>'}
+ }else{ $log_output .= '<tr id="brw_row"><td colspan="6" class="r1"><b>Database is New or Empty!</b></td></tr>'}
}
}
if($isPUBViewMode){
}
else {
my $v = "<font style='font-size:small'>You Are In ➔ $vmode</font>";
- $log_output .= qq(<tr class="r$tfId" id="brw_row"><td colspan="2" style="text-align:left;">$v</td><td colspan="1"><i>Top</i> );
+ $log_output .= qq(<tr class="r$tfId" id="brw_row"><td colspan="2" style="text-align:left;">$v</td><td colspan="3"><i>Top</i> );
}