Changeset 333

Timestamp:

07/16/12 21:21:43 (1 year ago)

Author:

keith

Message:

Updated to latest tail_n_mail version

Files:

• trunk/tools/tailnmail/tail_n_mail (modified) (59 diffs)

trunk/tools/tailnmail/tail_n_mail

@@ -6 +6 @@
-## Greg Sabino Mullane <greg@endpoint.com>
-## Selena Deckelmann <selena@chesnok.com>
+## See more contributors in the 'Changes' file
-## BSD licensed
-## For full documentation, please see: http://bucardo.org/wiki/Tail_n_mail
@@ -25 +26 @@
-use 5.008003;
-
-2.1
+6.0
-
-## Default message subject if not set elsewhere. Keywords replaced: FILE HOST NUMBER UNIQUE
@@ -81 +82 @@
-              tempfile         => -1,
-## Allow override of the log file to check
-
+
+
+
-## Do not send email
-              nomail           => 0,
@@ -98 +101 @@
-## Send an email even if 0 matches were found
-              mailzero         => 0,
+## Append a signature to the end of mailed messages
+              mailsig          => [],
-## Perform some final prettification of queries
-              pretty_query     => 1,
@@ -136 +141 @@
-   'duration=i',
-   'tempfile=i',
-
+
+
-   'type=s',
-   'flatten!',
@@ -154 +160 @@
-   'mailport=s',
-   'mailzero',
+   'mailsig=s@',
-   'smtp',
-   'tsep=s',
@@ -200 +207 @@
-
-## Quick expansion of leading tildes for the file argument
-
+
+
+
-
-## Save away our hostname
-my $hostname = qx{hostname};
-chomp $hostname;
-
-## We use a CURRENT key for future expansion
-my $curr = 'CURRENT';
-
-## Global option variables
@@ -234 +240 @@
-## Process the log_line_prefix and change it into a regex
-my ($havetime,$havepid) = (0,0);
-
+
+
+
+
-## This assumes timestamp comes before the pid!
-$llp =~ s/%t/(\\d\\d\\d\\d\-\\d\\d\-\\d\\d \\d\\d:\\d\\d:\\d\\d \\w\\w\\w\\w?)/ and $havetime=1;
@@ -251 +260 @@
-$llp =~ s/%r/\\S*/;
-$llp =~ s/%h/\\S*/;
+$llp =~ s/%a/\\S*/;
-
-if ($arg{pglog} eq 'syslog') {
@@ -300 +310 @@
-
-## Global regex: may change per file
-
+, $exclude_prefix
-
-## Note if we bumped into maxsize when trying to read a file
@@ -331 +341 @@
-## If they requested no lastfile, remove it now
-if ($arg{nolastfile}) {
-$curr}{
+
-}
-
+## If they want a mail signature, open the file(s) and read it in now
+if (defined $arg{mailsig}->[0]) {
+    ## Combine all files in order into a single string
+    my $sigstring = '';
+    my $fh;
+    for my $sigfile (@{$arg{mailsig}}) {
+        $sigfile =~ s{^~/?}{$ENV{HOME}/};
+        if (! open $fh, '<', $sigfile) {
+            warn qq{Could not open signature file "$sigfile": $!\n};
+            exit 1;
+        }
+        { local $/; $sigstring .= <$fh>; }
+        close $fh or warn qq{Could not close "$sigfile": $!\n};
+    }
+    $arg{mailsignature} = $sigstring;
+}
-
-## Parse each file returned by pick_log_file until we start looping
-my $last_logfile = '';
-my @files_parsed;
+my $filenumber = 0;
+my $fileinfo = $opt{file}[$filenumber];
+
-{
+
-    ## Generate the next log file to parse
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-    $arg{debug} and warn " Parsing file: $logfile\n";
-
-
-
-
-
+
-
-    if ($count >= 0) {
@@ -365 +396 @@
-}
-
-$opt{$curr}{filename} = $last_logfile;
-
-## We're done parsing the message, send an email if needed
-$curr}{
+
-final_cleanup();
-
@@ -377 +406 @@
-
-    ## Figure out which files we need to parse
+    ## Sole argument is a hashref of file information:
+    ##   name: logfile to open
+    ##   original: original name
+    ##   lastfile: we scanned last time this ran. May be an empty string or not exist
+
+    my $info = shift;
+
+    my $name = $info->{name} or die 'No name for the file found!';
+    my $orig = $info->{original} or die 'No original file found!';
+    my $lastfile = $info->{lastfile} || '';
-
-    ## Basic flow:
@@ -382 +421 @@
-    ## Then walk forward until we hit the most recent one
-
-    ## If a custom file, we always just return the main filename
-    ## We also remove the lastfile, as it's not important anymore
-    ## Same for a reset - we only want the latest file
-    if ($arg{file} or $arg{reset}) {
-        delete $opt{$curr}{lastfile};
-        return $arg{file} || $opt{$curr}{filename};
-    }
-
-    my $lastfile = $opt{$curr}{lastfile};
-    my $orig = $opt{$curr}{original_filename} || '';
-
-    ## Handle the LATEST case right away
-    if ($orig =~ s{([^/\\]*)LATEST([^/\\]*)$}{}o) {
@@ -401 +429 @@
-        ## We need all files newer than that one, in order, until we run out
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-    } ## end of LATEST time travel
-
-    ## No lastfile makes it easy
-exists $opt{$curr}{lastfile} or return $opt{$curr}{filename}
+return $name if ! $lastfile
-
-    ## If we haven't processed the lastfile, do that one first
-exists $find{$lastfile} or return $lastfile
-
-
-$lastfile eq $opt{$curr}{filename} and return $lastfil
+return $lastfile if ! exists $find{$lastfile}
+
+ the name
+return $name if $lastfile eq $nam
-
-    ## We've processed the last file, are there any files in between the two?
@@ -455 +488 @@
-    if ($orig =~ /%/) {
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                }
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    }
-
-    ## Just return the current file
-opt{$curr}{filename}
+name
-
-} ## end of pick_log_file
@@ -521 +563 @@
-        while (<$rc>) {
-            next if /^\s*#/;
-\w
+[\w\_\-]
-            my ($name,$value) = (lc $1,$2);
-curr}{$
+
-            $arg{$name} = $value;
-            ## If we are disabled, simply exit quietly
@@ -582 +624 @@
-
-        ## A non-comment after one or comments allows us to map them to each other
-\w
+[\w\_\-]
-            chomp;
-            for my $c (@comment) {
@@ -593 +635 @@
-        }
-
-
-
-
-
+
+
+
+
+
+
+
-            if ($filename !~ /\w/) {
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                }
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-        } ## end of FILE:
-
-        ## The last filename we used
-
-
+
+
+
-        }
-        ## Who to send emails to for this file
@@ -668 +735 @@
-            }
-        }
+        ## Allow a very local log_line_prefix
+        elsif (/^LOG_LINE_PREFIX:\s*(.+)/) {
+            $arg{log_line_prefix} = $localopt{log_line_prefix} = $1;
+        }
-        ## How to sort the output
-        elsif (/^SORTBY:\s*(\w+)/) {
@@ -684 +755 @@
-            push @{$localopt{exclude}}, $1;
-        }
+        ## Which prefix lines to exclude from the report
+        elsif (/^EXCLUDE_PREFIX:\s*(.+?)\s*$/) {
+            push @{$localopt{exclude_prefix}}, $1;
+        }
-        ## Which lines to include in the report
-        elsif (/^INCLUDE:\s*(.+)/) {
-            push @{$localopt{include}}, $1;
-        }
-
-
-
-
-
+
+
+
+
+
+
-        elsif (/^MAXSIZE:\s*(\d+)/) {
-            $localopt{maxsize} = $1;
-        }
- for this file
+
-        elsif (/^MAILSUBJECT:\s*(.+)/) { ## Trailing whitespace is significant here
-            $localopt{mailsubject} = $1;
@@ -705 +781 @@
-            $localopt{mailzero} = $1;
-        }
+        ## Allow (possibly multiple) mail signatures
+        elsif (/^MAILSIG:\s*(.+)/) {
+            push @{$localopt{mailsig}}, $1;
+            push @{$arg{mailsig}}, $1;
+        }
-        ## Size at which we cutoff long statements
-        elsif (/^STATEMENT_SIZE:\s*(.+)/) {
@@ -711 +792 @@
-    }
-    close $c or die qq{Could not close "$configfile": $!\n};
+
+    ## Adjust the file suffixes as needed
+    ## This allows us to simply add multiple bare 'FILE:' entries before the first rewrite
+    ## We also plug in the LASTFILE AND OFFSET values now
+    my %numused;
+    for my $file (@{ $localopt{file} }) {
+        $file->{suffix} ||= 0;
+        next if ! $file->{suffix};
+        if ($numused{$file->{suffix}}++) {
+            die "The same FILE suffix ($file->{suffix}) was used more than once!\n";
+        }
+    }
+    for my $file (@{ $localopt{file} }) {
+
+        ## No need to change anything if we forced via the command line
+        next if $file->{commandline};
+
+        ## Only need to adjust 0s
+        if (! $file->{suffix}) {
+
+            ## Replace with the first free number
+            my $x = 1;
+            {
+                if (! $numused{$x}++) {
+                    $file->{suffix} = $x;
+                    last;
+                }
+                if ($x++ > 999) {
+                    die "Something went wrong: 999 iterations to find a FILE suffix!\n";
+                }
+                redo;
+            }
+        }
+
+        ## Put the lastfile into place if it exists
+        $file->{lastfile} = $localopt{lastfile}{$file->{suffix}} || '';
+
+        ## Put the offset into place if it exists
+        $file->{offset} = $localopt{offset}{$file->{suffix}} || 0;
+
+    }
-
-    ## Move the local vars into place, also record that we found them here
@@ -722 +844 @@
-            }
-        }
-
-
+
+
+
-    if ($arg{debug}) {
-        local $Data::Dumper::Varname = 'opt';
+        warn Dumper \%opt;
+        local $Data::Dumper::Varname = 'arg';
-        warn Dumper \%arg;
-    }
@@ -738 +863 @@
-    ## Call parse_inherit_file on each item in $opt{inherit}
-
-$curr}{
+
-        parse_inherit_file($file);
-    }
@@ -819 +944 @@
-        ## How to sort the output
-        elsif (/^SORTBY:\s*(\w+)/) {
-$curr}{
+
-        }
-        ## Which lines to exclude from the report
-        elsif (/^EXCLUDE:\s*(.+?)\s*$/) {
-
+
+
+
+
+
-        }
-        ## Which lines to include in the report
-        elsif (/^INCLUDE:\s*(.+)/) {
-$curr}{
+
-        }
-        ## Maximum file size
-        elsif (/^MAXSIZE:\s*(\d+)/) {
-$curr}{
+
-        }
-        ## Exclude durations below this number
@@ -859 +988 @@
-        ## Who to send emails from
-        elsif (/^FROM:\s*(.+?)\s*$/) {
-$curr}{
+
-        }
-        ## Who to send emails to for this file
-        elsif (/^EMAIL:\s*(.+?)\s*$/) {
-$curr}{
+
-        }
-        ## Force mail to be sent - overrides any other setting
-        elsif (/^MAILZERO:\s*(.+)/) {
-$curr}{
+
-        }
-        ## The file to use
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        }
-        ## The mail subject
-        elsif (/^MAILSUBJECT:\s*(.+)/) {
-
-
+
+
+
+
+
+
-        }
-        ## The log line prefix
@@ -886 +1031 @@
-        ## Size at which we cutoff long statements
-        elsif (/^STATEMENT_SIZE:\s*(.+)/) {
-$curr}{
+
-        }
-        else {
@@ -895 +1040 @@
-    close $fh or warn qq{Could not close file "$file": $!\n};
-
+    ## Merge all the "FILE" entries and adjust suffixes
+    ## We allow overlap between the normal and inherited lists
+
+    if (exists $opt{tempifile}) {
+
+        my %numused;
+        for my $file (@{ $opt{tempifile} }) {
+            $file->{suffix} ||= 0;
+            next if ! $file->{suffix};
+            if ($numused{$file->{suffix}}++) {
+                die "The same FILE suffix ($file->{suffix}) was used more than once inside $filename!\n";
+            }
+        }
+
+        for my $file (@{ $opt{tempifile} }) {
+
+            ## Change zero to the first free number
+            if (! $file->{suffix}) {
+                my $x = 1;
+                {
+                    if (! $numused{$x}++) {
+                        $file->{suffix} = $x;
+                        last;
+                    }
+                    if ($x++ > 999) {
+                        die "Something went wrong: 999 iterations to find a FILE suffix inside $filename!\n";
+                    }
+                    redo;
+                }
+            }
+
+            ## Create our real entry
+            push @{ $opt{file} } =>
+                {
+                 name      => transform_filename($file->{original}),
+                 original  => $file->{original},
+                 suffix    => $file->{suffix},
+                 inherited => 1,
+                 };
+        }
+
+        ## Remove our temporary list
+        delete $opt{tempifile};
+    }
+
-    return;
-
@@ -902 +1092 @@
-sub parse_file {
-
-
+
+
+
+
+
+
+
+
-    ## Returns the number of matches
-
-    my $filename = shift;
+    my $fileinfo = shift;
+
+    ## The file we scanned last time we ran
+    my $lastfile = $fileinfo->{lastfile} || '';
+
+    ## Set this as the latest (but not the lastfile)
+    $fileinfo->{latest} = $filename;
-
-    ## Touch the hash so we know we've been here
@@ -923 +1127 @@
-    my $size = -s $filename;
-    my $offset = 0;
-$curr}{maxsize} ? $opt{$curr}
+maxsize} ? $opt
-
-    ## Is the offset significant?
-
-
-
-
+
+
-        ) {
-        ## Allow the offset to equal the size via --reset
-        if ($arg{reset}) {
-opt{$curr}{newoffset} = $
+
-            $arg{verbose} and warn "  Resetting offset to $offset\n";
-        }
@@ -946 +1148 @@
-            }
-        }
-if (exists $opt{$curr}{offset}) 
-opt{$curr}{offset}
+e
+fileinfo->{offset} || 0
-        }
-    }
@@ -963 +1165 @@
-
-    ## If the offset is equal to the size, we're done!
-
+
+
+
+
+
+
+
+
-
-    ## Store the original offset
@@ -1021 +1230 @@
-
-        } ## end pos > 1
+
-    } ## end find_line_number
-
-    ## Get exclusion and inclusion regexes for this file
-
+,$exclude_prefix
-
-    ## Discard the previous line if needed (we rewound by 10 characters above)
@@ -1035 +1245 @@
-    my %pidline;
-
-
+
+
-        if (! defined $csv) {
-            eval {
@@ -1069 +1280 @@
-        my $lastline = '';
-        my $syslognum = 0; ## used by syslog only
+        my $bailout = 0; ## emergency bail out in case we end up sleep seeking
-      LOGLINE: while (<$fh>) {
+
+            ## We ran into a truncated line last time, so we are most likely done
+            last if $bailout;
+
-            ## Easiest to just remove the newline here and now
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-            if ($arg{pgmode}) {
-                ## 1=prefix 2=timestamp 3=PID 4=rest
-                if ($_ =~ s/$pgpidre/$4/) {
-
-
+
+
+
-                    $pgprefix =~ s/\s+$//o;
-                    ## We want the timestamp and the pid, even if we have to fake it
-                    ($pgts,$pgpid,$pgnum) = ($2||'',$3||1, 1);
-                    if ($arg{pglog} eq 'syslog') {
-                        if ($pgprefix =~ /\[(\d+)\-\d+/) {
@@ -1117 +1348 @@
-                    }
-
+                    ## Optionally strip out SQLSTATE codes
+                    if ($arg{sqlstate}) {
+                        $_ =~ s/^(?:FATAL|ERROR):  ([0-9A-Z]{5}): /ERROR:  /o;
+                    }
+
-                    ## Assign this string to the current pgnum slot
-                    $pidline{$pgpid}{string}{$pgnum} = $_;
@@ -1185 +1421 @@
-    ## Get the new offset and store it
-    seek $fh, 0, 1;
-
+
+
+
+
-
-    close $fh or die qq{Could not close "$filename": $!\n};
@@ -1230 +1469 @@
-    ## Currently, all files get the same regex, so we cache it
-    if (exists $opt{globalexcluderegex}) {
-
+
+
-    }
-
-    ## Build an exclusion regex
-    my $lexclude = '';
-$curr}{
+
-        $arg{debug} and warn "  Adding exclusion: $ex\n";
-        my $regex = qr{$ex};
@@ -1243 +1483 @@
-    $arg{verbose} and $lexclude and warn "  Exclusion: $lexclude\n";
-
+    ## Build a prefix exclusion regex
+    my $lexclude_prefix = '';
+    for my $ex (@{$opt{exclude_prefix}}) {
+        $arg{debug} and warn "  Adding exclusion_prefix: $ex\n";
+        my $regex = qr{$ex};
+        $lexclude_prefix .= "$regex|";
+    }
+    $lexclude_prefix =~ s/\|$//;
+    $arg{verbose} and $lexclude_prefix and warn "  Exclusion_prefix: $lexclude_prefix\n";
+
-    ## Build an inclusion regex
-    my $linclude = '';
-$curr}{
+
-        $arg{debug} and warn "  Adding inclusion: $in\n";
-        my $regex = qr{$in};
@@ -1254 +1504 @@
-
-    $opt{globalexcluderegex} = $lexclude;
+    $opt{globalexcludeprefixregex} = $lexclude_prefix;
-    $opt{globalincluderegex} = $linclude;
-
-
+, $lexclude_prefix
-
-} ## end of generate_regexes
@@ -1313 +1564 @@
-        ## Bail if it matches the exclusion regex
-        return 0 if $exclude and $string =~ $exclude;
+
+        ## Bail if it matches the prefix exclusion regex
+        return 0 if $exclude_prefix and $pgprefix =~ $exclude_prefix;
-    }
-
@@ -1318 +1572 @@
-    if ($arg{type} eq 'duration' and $arg{duration} >= 0) {
-        return 0 if ($string =~ / duration: (\d+)/o and $1 < $arg{duration});
-    }
-
-    ## If in tempfile mode, and we have a minimum cutoff, discard smaller ones
-    if ($arg{type} eq 'tempfile' and $arg{tempfile} >= 0) {
-        #return 0 if ($string =~ / temporary file:.+?size (\d+)/o and $1 < $arg{tempfile});
-    }
-
@@ -1380 +1629 @@
-        }geix;
-
-
+ = ''
-
-        $string =~ s{(VALUES|REPLACE)\s*\((.+)\)}{ ## For emacs: ()()()
@@ -1717 +1966 @@
-
-    ## Subject with replaced keywords:
-$curr}{
+
-    $subject =~ s/FILE/$last_file_parsed/g;
-    $subject =~ s/HOST/$hostname/g;
-$curr}{
+
-        $subject =~ s/NUMBER/$grand_total/g;
-        $subject =~ s/UNIQUE/$unique_matches/g;
@@ -1740 +1989 @@
-
-    ## Allow no specific email for dryruns
-@{$opt{$curr}
+exists $opt{email} or ! @{$opt
-        if ($arg{dryrun} or $arg{nomail}) {
-$curr}{email}} => 'dryrun@example.com';
+email}} => 'dryrun@example.com'; ## no critic (RequireInterpolationOfMetachars)
-        }
-    }
-
-    ## Fill out the "To:" fields
-$curr}{
+
-        push @header => "To: $email";
-    }
-$curr}{
+
-        die "Cannot send email without knowing who to send to!\n";
-    }
-
-$curr}{
+
-
-    ## Custom From:
-$curr}{
+
-    if ($from_addr ne '') {
-        push @header => "From: $from_addr";
@@ -1788 +2037 @@
-        push @msg => "Total matches: $pretty_grand_total";
-        my $maxcount = 1;
+        my $maxname = 1;
-        my $maxletter = 1;
-        for my $file (@files_parsed) {
@@ -1793 +2043 @@
-            $file->[1] = pretty_number($file->[1]);
-            $maxcount = length $file->[1] if length $file->[1] > $maxcount;
+            $maxname = length $file->[0] if length $file->[0] > $maxname;
-            my $name = chr(65+$letter);
-            if ($letter >= 26) {
@@ -1805 +2056 @@
-            next if ! $file->[1];
-            my $name = $fab{$file->[0]};
-s:
+-*s
-                $maxletter + 2,
-                "[$name]",
-
+
+
-                $maxcount,
-                $file->[1];
@@ -1845 +2097 @@
-    }
-
-$curr}{
+
-
-    ## Sanity check on number of loops below
@@ -1938 +2190 @@
-            last if tell $bigfh >= $stop_point;
-        }
+
+        ## If we have a signature, add it
+        if ($arg{mailsignature}) {
+            ## Caller's responsibility to add a "--" line
+            print {$efh} $arg{mailsignature};
+        }
+
-        close $efh or warn qq{Could not close $emailfile: $!\n};
-
@@ -1946 +2205 @@
-        }
-        else {
-$curr}{
+
-            if ($arg{mailmode} eq 'sendmail') {
-                system $COM;
@@ -2008 +2267 @@
-
-    ## Absorb any values set by rc files, and sanity check things
-$curr}{
+
-    if ($mailserver eq 'example.com') {
-        die qq{When using smtp mode, you must specify a mailserver!\n};
-    }
-$curr}{
+
-    if ($mailuser eq 'example') {
-        die qq{When using smtp mode, you must specify a mailuser!\n};
-    }
-$curr}{
+
-    if ($mailpass eq 'example') {
-        die qq{When using smtp mode, you must specify a mailpass!\n};
-    }
-$curr}{
+
-
-    ## Attempt to connect to the server
@@ -2069 +2328 @@
-    sub sortsub { ## no critic (ProhibitNestedSubs)
-
-$curr}{
+
-
-        if ($arg{type} eq 'duration') {
@@ -2156 +2415 @@
-            $meancount++;
-            my $item = sprintf '(item %d, count is %d)', $f->{displaycount}, $f->{count};
-"%10s %-22s"
+'%10s %-22s'
-            $maxmean = $f->{displaycount} if $f->{displaycount} > $maxmean;
-            last if $arg{tempfile_limit} and $meancount >= $arg{tempfile_limit};
@@ -2169 +2428 @@
-            $totalcount++;
-            my $item = sprintf '(item %d, count is %d)', $f->{displaycount}, $f->{count};
-"%10s %-22s"
+'%10s %-22s'
-            $maxtotal = $f->{displaycount} if $f->{displaycount} > $maxtotal;
-            last if $arg{tempfile_limit} and $totalcount >= $arg{tempfile_limit};
@@ -2181 +2440 @@
-        {
-            last if ! defined $mean[$count] and ! defined $totaltemp[$count];
-"%-s |"
+'%-s |'
-            printf "%s\n", defined $totaltemp[$count] ? $totaltemp[$count] : '';
-            $count++;
@@ -2373 +2632 @@
-    my $olen = $len;
-    my $waschopped = 0;
-$curr}{
-$curr}{
+
+
-        : $arg{statement_size};
-
@@ -2401 +2660 @@
-    $arg{debug} and warn "  Performing final cleanup\n";
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-## This file is automatically updated
-## Last updated: $now
-};
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-    return;