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 ).
We provide a version backported to wheezy
- python-yaml
- libyaml-syck-perl
- libgraphviz-perl
Installation:
@ -18,7 +17,7 @@ Installation:
#cd /usr/local/src
#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:
------

@ -3,13 +3,11 @@ use 5.014;
use strict;
use warnings;
use JSON;
use YAML::Syck;
use YAML;
use File::Spec;
use Cwd 'abs_path';
use Data::Dumper;
local $YAML::Syck::SingleQuote = 1 ;
my $filename = "/var/log/ngcp/kamailio-proxy.log";
my $output_dir = "log";
my $path;
@ -33,7 +31,7 @@ sub save_data
{
if (!$data->{'sip_out'}) { print "no sip_out\n"; }
$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";
}
$data = {

Loading…
Cancel
Save