7 #my $log_file = @ARGV[0];
10 # 1. append cpve version to the file name of full log
11 # 2. output critical error of CPVE/PME such as "camera" camera error
12 # 3. split the full log as sub logs against the call time
13 # 4. plot the RTP stats
15 my $k_start_call = 'originateCall|answercall';
16 #my $k_start_call = 'originateCall';
18 # create jabber_full.log to add jabber.log, jabber.log.1, jabber.log.2
19 my $out_dir = `pwd` . '/out/';
20 my @logs = glob "jabber.log*";
21 my $full_logs = "$out_dir/jabber_full.log";
25 #foreach (@logs) { say; }
29 #print for (reverse @logs);
31 ##open LOGS, ">>$full_logs" or die "$!";
32 ##for (reverse @logs){
33 ## open SUB_LOG, "<", $_ or die "$!";
34 ## print LOGS while(<SUB_LOG>) ;
39 ##for (reverse @logs){
40 ## !system "cat $_ >> $full_logs" or die "$!";
44 !system "cat $_ >> $full_logs" or die "$!" for reverse @logs;
48 print "===== write done ====\n";
49 ## split file with each call
50 my $call = "call0.log";
52 open CALL, ">> $call" or die "$!";
53 open LOG, "<", $full_logs or die "$!";
57 ## last if /originateCall/;
58 if ($_ =~ /originateCall/ ){
61 open LOG, ">>" "call$index" or die "$!";