File Coverage

blib/lib/File/OSS/Scan/Matches.pm

Criterion	Covered	Total	%
statement	27	90	30.0
branch	0	18	0.0
condition			n/a
subroutine	9	15	60.0
pod	0	3	0.0
total	36	126	28.5

=head1 NAME

File::OSS::Scan::Matches - store scan result about file matches

=head1 VERSION

version 0.04

=head1 SYNOPSIS

    use File::OSS::Scan::Matches;

    File::OSS::Scan::Matches->init();

    File::OSS::Scan::Matches->add(
                        {
                            'name'  => $h_file->{'name'},
                            'path'  => $h_file->{'path'},
                            'size'  => $h_file->{'size'},
                            'mtime' => $h_file->{'mtime'},
                        },
                        $function_name,
                        $certainty_level,
                        join(' ', @$args),
                        $message
                    );

    my $matches = File::OSS::Scan::Matches->get_matches();

=head1 DESCRIPTION

This is an internal module used by L to store scan results,
and should not be called directly.

=head1 SEE ALSO

=over 4

=item * L

=back

=head1 AUTHOR

Harry Wang

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2014 by Harry Wang.

This is free software, licensed under:

    Artistic License 1.0

=cut

package File::OSS::Scan::Matches;

use strict;
use warnings FATAL => 'all';

use Fatal qw( open close );
use Carp;
use English qw( -no_match_vars );
use Data::Dumper; # for debug
use JSON;

use File::OSS::Scan::Constant qw(:all);

our $VERSION = '0.04';

# global var ...
our $matches = undef;

sub init {
    my $self = shift;
    undef $matches;

    return SUCCESS;
}

sub add {
    my $self = shift;

    my ( $h_file, $func, $cert, $args, $msg )
        = @_ or return SUCCESS;

    my $key = $h_file->{'path'};
    my $new_h_file = {
        'name'  => $h_file->{'name'},
        'size'  => $h_file->{'size'},
        'mtime' => $h_file->{'mtime'},
    };

    $matches->{$key} = $new_h_file
        if ( not exists $matches->{$key} );

    push @{$matches->{$key}->{'matches'}}, {
        'func'  => $func,
        'cert'  => $cert,
        'args'  => $args,
        'msg'   => $msg,
    };

    return SUCCESS;
}

sub get_matches {
    my $var = $_[0] . "::matches";
    my $fmt = $_[1];

    no strict 'refs';

    if ( not defined $fmt ) {
        return $$var;
    }
    else {
        my $func = __PACKAGE__ . "::__" . $fmt;

        if ( defined(&$func) ) {
            return &$func($$var);
        }
        else {
            croak "can't find function $func in " . __PACKAGE__;
        }
    }
}

sub  __txt {
    my $result = shift;
    my $ret = undef;

    if ( defined $result ) {
        $ret = '';
        my $num = 1;

        foreach my $path ( sort keys %$result ) {
            my ( $matches, $mtime, $name, $size )
                = @{$result->{$path}}{
                    qw/matches mtime name size/
                  };

            my $mtime_stamp = localtime($mtime);
            $ret .= sprintf( "%-16s %-50s\n", "Matches \#\($num\):", $path );
            $ret .= sprintf( "%-16s %-20s %-10s %-20s\n", "",
                    "name:$name", "size:$size", "mtime:$mtime_stamp" );

            if ( defined $matches ) {
                my $num_of_match = 1;

                foreach my $match ( @$matches ) {
                    $ret .= sprintf("%-20s %-5s %-5s %-20s %-20s\n",
                        "", "\<$num_of_match\>\.", $match->{'cert'} . '%',
                        $match->{'func'}, $match->{'args'} );

                    $ret .= " " x 24 . "$match->{'msg'}\n";
                    $num_of_match++;
                }
            }

            $num++;
        }
    }

    return $ret;
}

# mainly for the body content of mail
sub __html {
    my $result = shift;
    my $ret = undef;

    if ( defined $result ) {
        my $num = 1;
        $ret = '';

        foreach my $path ( sort keys %$result ) {
            my ( $matches, $mtime, $name, $size )
                = @{$result->{$path}}{
                    qw/matches mtime name size/
                  };

            my $mtime_stamp = localtime($mtime);
            $ret .= "\n"; \n"; 




185




0





 





 





 





 





 



             $ret .= "(#$num) $path$size$mtime_stamp




186




 





 





 





 





 





 



   




187




0




  
  0
  




 





 





 





 



             if ( defined $matches ) { 




188




0





 





 





 





 





 



                 my $num_of_match = 1; 




189




 





 





 





 





 





 



   




190




0





 





 





 





 





 



                 foreach my $match ( @$matches ) { 




191




0





 





 





 





 





 



                     $ret .= "\n" . \n" . \n" . \n" . \n" . \n" . 




192




 





 





 





 





 





 



                             "\<$num_of_match\>




193




 





 





 





 





 





 



                                 "$match->{'cert'}\%




194




 





 





 





 





 





 



                                 "$match->{'func'}




195




 





 





 





 





 





 



                                 "$match->{'args'}




196




 





 





 





 





 





 



                                 "$match->{'msg'}




197




 





 





 





 





 





 



                             "
            $ret .= "

            if ( defined $matches ) {
                my $num_of_match = 1;

                foreach my $match ( @$matches ) {
                    $ret .= "
                            "
                                "
                                "
                                "
                                "
                            "

                    $num_of_match++;
                }
            }

            $num++;
        }

        $ret .= "