File Coverage

blib/lib/Data/QuickMemoPlus/Reader.pm

Criterion	Covered	Total	%
statement	78	82	95.1
branch	20	22	90.9
condition	1	2	50.0
subroutine	12	12	100.0
pod	2	4	50.0
total	113	122	92.6

package Data::QuickMemoPlus::Reader;
use 5.010;
use strict;
use warnings;
use Carp;
use JSON;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

our $VERSION = "0.12";

use Exporter qw(import);

our @EXPORT_OK = qw( lqm_to_str lqm_to_txt );
our $IncludeHeader = 1;

sub lqm_to_txt {
    my ( $lqm ) = @_;
    my $files_converted = 0;
    if (-d $lqm){
        $lqm =~ s![/\\]+$!!;
        foreach(glob qq("$lqm/*.lqm")){
            $files_converted += _lqm_file_to_txt($_);
        }
    } else {
        $files_converted = _lqm_file_to_txt($lqm);
    }
    return $files_converted;
}
sub _lqm_file_to_txt {
    my ( $lqm_file ) = @_;
    my $text = lqm_to_str($lqm_file);

    return 0 if not length($text);

    my $outfile = $lqm_file;
    $outfile =~ s/lqm$/txt/i;
    open my $fh, ">", $outfile or do {
        carp "couldn't open $outfile\n";

        return 0;
    };
    print $fh $text;

    return 1;
}

sub lqm_to_str {
    my ( $lqm_file ) = @_;
    if (not -f $lqm_file){
        carp "$lqm_file is not a file";

        return '';
    }
    my $note_created_time = "";
    if ( $lqm_file =~ /(QuickMemo\+_(\d{6}_\d{6})(\(\d+\))?)/i) {
        $note_created_time = $2;
    }
    my $json_str = extract_json_from_lqm( $lqm_file );

    return '' if not $json_str;

    my ($extracted_text, $note_category) = extract_text_from_json($json_str);
    my $header = "Created date: $note_created_time\n";
    $header .= "Category:   $note_category\n";
    $header .= "-"x79 . "\n";
    $header = '' if not $IncludeHeader;

    return $header . $extracted_text;
}

#####################################
#
sub extract_json_from_lqm {
    my $lqm_file = shift;
    my $lqm_zip = Archive::Zip->new();
    unless ( $lqm_zip->read( $lqm_file ) == AZ_OK ) {
        carp "Error reading $lqm_file";
        ####### to do: add the zip error to the warning?

        return "";
    }
    my $jlqm_filename = "memoinfo.jlqm";
    my $member = $lqm_zip->memberNamed( $jlqm_filename );
    if( not $member ){
        carp "File not found: $jlqm_filename in archive $lqm_file";

        return "";
    }
    my ( $string, $status ) = $member->contents();
    if(not $status == AZ_OK){
        carp "Error extracting $jlqm_filename from $lqm_file : Status = $status";

        return "";
    }

    return $string;
}

###############################################
#
sub extract_text_from_json {
    my $json_string = shift;

    ############# To do: eval this and trap errors.
    my $href_memo  = decode_json $json_string;
    if (not $href_memo){
        carp "Error decoding JSON file in lqm archive.";
        return '','';
    }
    my $text = "";
    foreach( @{$href_memo->{MemoObjectList}} ) {
        $text .= $_->{DescRaw};
        $text .= "\n";
    }
    my $category = $href_memo->{Category}->{CategoryName};
    $category //= '';
    $category =~ s/[^\w-]/_/g;
    return $text, $category;
}
1;
__END__