sysmocom
/
asterisk
11
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update astxs utility to allow auto load/unload and url compile 

git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@2822 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Anthony Minessale II 2004-04-29 19:55:46 +00:00
parent 1f21ca187a
commit 66498eee0b
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
contrib/scripts/astxs
View File

@ -95,6 +95,27 @@ if($args{print}) {
my($base,$ext);
my $cfile = $args{plain}->[0];
if($cfile =~ /http:\/\/.*?\/([^\/]+)$/) {
my $f = $1;
if(! -d "/tmp/astbld") {
mkdir("/tmp/astbld");
}
my $pwd = `pwd`;
chomp $pwd;
chdir("/tmp/astbld");
system("/bin/rm $f");
system("wget $cfile");
chdir($pwd);
$cfile = "/tmp/astbld/$f";
}
if($cfile) {
($base,$ext) = $cfile =~ /^([^\.]+)\.(.)/;
}
@ -109,6 +130,16 @@ $bad = esystem("$vars{CC} $vars{CFLAGS} -c ${base}.c -o ${base}.o");
$bad = esystem("$vars{CC} $vars{SOLINK} -o $vars{LDFLAGS} ${base}.so $base.o $vars{EXTOBJ}") if(!$bad);
if($args{install} and $vars{MODULES_DIR}) {
my $file = "${base}.so";
my ($mod) = $file =~ /([^\/]*)$/;
if($args{autoload}) {
$bad = esystem("/usr/sbin/asterisk -rx 'unload $mod'");
}
$bad = esystem("/bin/cp -p ${base}.so $vars{MODULES_DIR}") if(!$bad);
if($args{autoload}) {
$bad = esystem("/usr/sbin/asterisk -rx 'load $mod'");
}
}