core, lib, modules: restructured source code tree
[sip-router] / src / modules / app_perl / doc / samples / headers.pl
1 use Kamailio qw ( log );
2 use Kamailio::Constants;
3
4 # Header demos
5
6 sub headernames {
7         my $m = shift;
8
9         my @h = $m->getHeaderNames();
10         foreach (@h) {
11                 my $f = $_;
12                 log(L_INFO, "header $f\n");
13         }
14
15         return 1;
16 }
17
18
19 sub someheaders {
20         my $m = shift;
21
22         foreach ( qw ( To WWW-Contact )) {
23                 my $srch = $_;
24                 my @h = $m->getHeader($srch);
25                 foreach (@h) {
26                         my $f = $_;
27                         log(L_INFO, "$srch retrieved from array is $f\n");
28                 }
29                 log(L_INFO, "$srch as array is @h\n");
30
31                 my $scalarto = $m->getHeader($srch);
32                 log(L_INFO, "$srch as scalar is $scalarto\n");
33         }
34
35         return 1;
36 }
37