This does not fix the problem with not single quoted string '-'
vseva/3.0
Victor Seva 13 years ago
parent 3e2956dc7e
commit 32caed75b2

@ -7,7 +7,6 @@ Requeriments:
- sipp with ssl enabled ( needed for auth ). - sipp with ssl enabled ( needed for auth ).
We provide a version backported to wheezy We provide a version backported to wheezy
- python-yaml - python-yaml
- libyaml-syck-perl
- libgraphviz-perl - libgraphviz-perl
Installation: Installation:
@ -18,7 +17,7 @@ Installation:
#cd /usr/local/src #cd /usr/local/src
#git clone git@git.mgm.sipwise.com:kamailio-config-tests #git clone git@git.mgm.sipwise.com:kamailio-config-tests
#apt-get install python-yaml sip-tester libgraphviz-perl libyaml-syck-perl #apt-get install python-yaml sip-tester libgraphviz-perl
Usage: Usage:
------ ------

@ -3,13 +3,11 @@ use 5.014;
use strict; use strict;
use warnings; use warnings;
use JSON; use JSON;
use YAML::Syck; use YAML;
use File::Spec; use File::Spec;
use Cwd 'abs_path'; use Cwd 'abs_path';
use Data::Dumper; use Data::Dumper;
local $YAML::Syck::SingleQuote = 1 ;
my $filename = "/var/log/ngcp/kamailio-proxy.log"; my $filename = "/var/log/ngcp/kamailio-proxy.log";
my $output_dir = "log"; my $output_dir = "log";
my $path; my $path;
@ -33,7 +31,7 @@ sub save_data
{ {
if (!$data->{'sip_out'}) { print "no sip_out\n"; } if (!$data->{'sip_out'}) { print "no sip_out\n"; }
$path = File::Spec->catfile( $output_dir, (sprintf "%04i", $data->{'msgid'}).".yml"); $path = File::Spec->catfile( $output_dir, (sprintf "%04i", $data->{'msgid'}).".yml");
YAML::Syck::DumpFile($path, $data); YAML::DumpFile($path, $data);
#print "$data->{'msgid'} saved\n"; #print "$data->{'msgid'} saved\n";
} }
$data = { $data = {

Loading…
Cancel
Save