alterator-asterisk/backend3/helper/asterisk-helper.pl

   1 #!/usr/bin/perl -w
   2
   3 use Data::Dumper;
   4 use Asterisk::config;
   5 use strict;
   6 use warnings;
   7 use Getopt::Long;
   8
   9
  10 use vars qw / $opt_action $opt_fname $opt_section $opt_key $opt_value $opt_data /;
  11 GetOptions("action=s","fname:s","section:s","key:s@"=>\$opt_key,"value:s@"=>\$opt_value,"data:s");
  12
  13 ##        &&(defined($opt_section))&&(defined(@{$opt_key}))&&(defined(@{$opt_value})))
  14
  15 unless (($opt_action)&&(defined($opt_fname)))
  16 {
  17     print STDERR "Not enough params\n";
  18 }
  19
  20 if ($opt_action=~/listsections/i)
  21 {
  22     listsections();
  23     exit 0;
  24 }
  25
  26 if ($opt_action=~/addsectionvaluesxt/i)
  27 {
  28     addsectionvaluesxt();
  29     exit 0;
  30 }
  31
  32 if ($opt_action=~/addsectionvalues/i)
  33 {
  34     addsectionvalues();
  35     exit 0;
  36 }
  37
  38 if ($opt_action=~/getsectionvaluesxt/i)
  39 {
  40     getsectionvaluesxt();
  41     exit 0;
  42 }
  43
  44 if ($opt_action=~/getsectionvalues/i)
  45 {
  46     getsectionvalues();
  47     exit 0;
  48 }
  49
  50 if ($opt_action=~/delsection/i)
  51 {
  52     delsection();
  53     exit 0;
  54 }
  55
  56 #####################################################################
  57
  58 sub listsections {
  59     my $rc = new Asterisk::config(file=>$opt_fname);
  60     my $section_list = $rc->fetch_sections_list();
  61     foreach my $section( sort @{$section_list})
  62         {
  63         print "$section "
  64         }
  65 }
  66
  67 sub addsectionvalues {
  68     my $rc = new Asterisk::config(file=>$opt_fname);
  69     $rc->assign_addsection(section=>$opt_section);
  70     for (my $i=@{$opt_key}-1; $i>-1;$i--)
  71         {
  72         $rc->assign_append(point=>'down',section=>$opt_section,data=>"${$opt_key}[$i]=${$opt_value}[$i]");
  73         }
  74     $rc->save_file(new_file=>$opt_fname);
  75 }
  76
  77 sub addsectionvaluesxt{
  78     my $rc = new Asterisk::config(file=>$opt_fname);
  79     $rc->assign_addsection(section=>$opt_section);
  80     for (my $i=@{$opt_key}-1; $i>-1;$i--)
  81         {
  82         $rc->assign_append(point=>'down',section=>$opt_section,data=>"${$opt_key}[$i] => ${$opt_value}[$i]");
  83         }
  84     $rc->save_file(new_file=>$opt_fname);
  85 }
  86
  87 sub getsectionvalues {
  88     my $rc = new Asterisk::config(file=>$opt_fname);
  89     my $key_ref = $rc->fetch_keys_hashref(section=>$opt_section);
  90         if ( $key_ref == '0') { print "Section not found!\n";}
  91         else {
  92                 for my $k1 ( sort keys %$key_ref )
  93                 {
  94                 for my $k2 ( @{$key_ref->{ $k1 }} )
  95                     {
  96                     print "$k1=$k2\n";
  97                     }
  98                 }
  99         }
 100
 101 }
 102
 103 sub getsectionvaluesxt {
 104     my $rc = new Asterisk::config(file=>$opt_fname);
 105     my $key_ref = $rc->fetch_keys_hashref(section=>$opt_section);
 106         if ( $key_ref == '0') { print "Section not found!\n";}
 107         else {
 108     for my $k1 ( sort keys %$key_ref )
 109         {
 110         for my $k2 ( @{$key_ref->{ $k1 }} )
 111             {
 112             print "$k1 => $k2\n";
 113             }
 114         }
 115         }
 116 }
 117
 118 sub delsection{
 119     my $rc = new Asterisk::config(file=>$opt_fname);
 120     $rc->assign_delsection(section=>$opt_section);
 121     $rc->save_file(new_file=>$opt_fname);
 122 }