bin/cpve_log.pl

   1 #!/usr/bin/perl -w
   2 #
   3 use strict;
   4 use warnings;
   5 use v5.10; ## say
   6
   7 #my $log_file = @ARGV[0];
   8 #
   9 # TODO:
  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
  14
  15 my $k_start_call = 'originateCall|answercall';
  16 #my $k_start_call = 'originateCall';
  17
  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";
  22
  23 #my $cpve_version;
  24
  25 #foreach (@logs) { say; }
  26 #say @logs;
  27 #print @logs;
  28
  29 #print for (reverse @logs);
  30
  31 ##open LOGS, ">>$full_logs" or die "$!";
  32 ##for (reverse @logs){
  33 ##    open SUB_LOG, "<", $_ or die "$!";
  34 ##    print LOGS while(<SUB_LOG>) ;
  35 ##    close SUB_LOG;
  36 ##}
  37 ##close LOGS;
  38 ##
  39 ##for (reverse @logs){
  40 ##    !system "cat $_ >> $full_logs" or die "$!";
  41 ##}
  42
  43 ## merge log files
  44 !system "cat $_ >> $full_logs" or die "$!"  for reverse @logs;
  45
  46 my $version=
  47
  48 print "===== write done ====\n";
  49 ## split file  with each call
  50 my $call = "call0.log";
  51
  52 open CALL, ">> $call" or die "$!";
  53 open LOG, "<", $full_logs or die "$!";
  54 my $index = 0;
  55 while(<LOG>){
  56 ##    print CALL $_;
  57 ##    last if /originateCall/;
  58     if ($_ =~ /originateCall/ ){
  59         close
  60         $index = $index+1;
  61         open LOG, ">>" "call$index" or die "$!";
  62         print LOG $_;
  63     }
  64 }