Displaying 3 results from an estimated 3 matches for "uri_escape".
2007 May 28
1
[1.2.18] Wrong steps in extensions.conf?
...RID(name)})
exten => group,n,Dial(${EXT204})
=========
;/var/lib/asterisk/agi-bin/web.agi
#!/usr/bin/perl
#use LWP::Simple;
use URI::Escape;
use LWP 5.64;
open STDOUT, '>/dev/null';
#Causes double entry?
fork and exit;
my $cidnum = $ARGV[0];
my $cidname = $ARGV[1];
$safe_cidname = uri_escape($cidname);
my $browser = LWP::UserAgent->new;
my $url = "http://www.acme.com/input.php?";
$url .= "name=" . $safe_cidname . "&";
$url .= "number=" . $cidnum . "&";
($min, $hrs, $day, $month, $year) = (localtime) [1,2,3,4,5];
$currentda...
2005 Apr 17
0
Listener count in stream title
...*<pre>(.*)</pre>|$1|s;
foreach my $line (split(/\n/, $content)) {
if ($line =~ /^$mounts,/) {
if ($line =~ /^([^,]*),[^,]*,[^,]*,(\d+),[^,]*, - (.*),$/) {
my $mount = $1;
my $listeners = $2;
my $title = $3;
$title =~ s|^\[\d+/\d+\] ||;
my $newtitle = uri_escape("[$listeners/$maxclients] $title");
$ua->credentials($host, $realm, $user, $pass);
my $res2 = $ua->get("http://$host/admin/metadata?mode=updinfo&mount=$mount&song=$newtitle");
warn $res2->status_line unless $res2->is_success;
}
}
}
--...
2015 Oct 29
7
[PATCH 0/7] v2v: Miscellaneous refactorings.
Just refactoring.
Rich.