Rename scripts to bin

[dotfiles.git] / scripts / cpve_log.pl

diff --git a/scripts/cpve_log.pl b/scripts/cpve_log.pl
deleted file mode 100755 (executable)
index cb8979d..0000000
--- a/scripts/cpve_log.pl
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/usr/bin/perl -w
-#
-use strict;
-use warnings;
-use v5.10; ## say
-
-#my $log_file = @ARGV[0];
-#
-# TODO:
-# 1. append cpve version to the file name of full log
-# 2. output critical error of CPVE/PME such as "camera" camera error
-# 3. split the full log as sub logs against the call time
-# 4. plot the RTP stats
-
-my $k_start_call = 'originateCall|answercall';
-#my $k_start_call = 'originateCall';
-
-# create jabber_full.log to add jabber.log, jabber.log.1, jabber.log.2
-my $out_dir = `pwd` . '/out/';
-my @logs = glob "jabber.log*";
-my $full_logs = "$out_dir/jabber_full.log";
-
-#my $cpve_version;
-
-#foreach (@logs) { say; }    
-#say @logs;
-#print @logs;
-
-#print for (reverse @logs);
-
-##open LOGS, ">>$full_logs" or die "$!";
-##for (reverse @logs){
-##    open SUB_LOG, "<", $_ or die "$!";
-##    print LOGS while(<SUB_LOG>) ;
-##    close SUB_LOG;
-##}
-##close LOGS;
-##
-##for (reverse @logs){
-##    !system "cat $_ >> $full_logs" or die "$!";
-##}
-
-## merge log files
-!system "cat $_ >> $full_logs" or die "$!"  for reverse @logs;
-
-my $version= 
-
-print "===== write done ====\n";
-## split file  with each call
-my $call = "call0.log";
-
-open CALL, ">> $call" or die "$!";
-open LOG, "<", $full_logs or die "$!";
-my $index = 0;
-while(<LOG>){
-##    print CALL $_;
-##    last if /originateCall/;
-    if ($_ =~ /originateCall/ ){
-        close 
-        $index = $index+1;
-        open LOG, ">>" "call$index" or die "$!";
-        print LOG $_;
-    }
-}