head 1.1;
access;
symbols
pkgsrc-2026Q1:1.1.0.16
pkgsrc-2026Q1-base:1.1
pkgsrc-2025Q4:1.1.0.14
pkgsrc-2025Q4-base:1.1
pkgsrc-2025Q3:1.1.0.12
pkgsrc-2025Q3-base:1.1
pkgsrc-2025Q2:1.1.0.10
pkgsrc-2025Q2-base:1.1
pkgsrc-2025Q1:1.1.0.8
pkgsrc-2025Q1-base:1.1
pkgsrc-2024Q4:1.1.0.6
pkgsrc-2024Q4-base:1.1
pkgsrc-2024Q3:1.1.0.4
pkgsrc-2024Q3-base:1.1
pkgsrc-2024Q2:1.1.0.2
pkgsrc-2024Q2-base:1.1;
locks; strict;
comment @# @;
1.1
date 2024.04.08.03.20.07; author jnemeth; state Exp;
branches;
next ;
commitid o1bJzPWaTgOnZh5F;
desc
@@
1.1
log
@comms/asterisk21: import asterisk-21.2.0
Asterisk is a complete PBX in software. It provides all of the
features you would expect from a PBX and more. Asterisk does voice
over IP in three protocols, and can interoperate with almost all
standards-based telephony equipment using relatively inexpensive
hardware.
Asterisk provides Voicemail services with Directory, Call Conferencing,
Interactive Voice Response, Call Queuing. It has support for
three-way calling, caller ID services, ADSI, SIP and IAX.
This is an standard version. It is secheduled to go to security
fixes only on November 18th, 2025, and EOL on November 18th, 2026.
See here for more information about Asterisk versions:
https://docs.asterisk.org/About-the-Project/Asterisk-Versions
Note that many things that have long been deprecated have now been
removed, such as chan_sip and app_macro. See here for a complete
list: http://docs.asterisk.org/Development/Asterisk-Module-Deprecations
@
text
@$NetBSD: patch-contrib_scripts_vmail.cgi,v 1.1 2021/11/14 02:30:21 jnemeth Exp $
--- contrib/scripts/vmail.cgi.orig 2015-10-09 21:48:48.000000000 +0000
+++ contrib/scripts/vmail.cgi
@@@@ -145,7 +145,7 @@@@ sub check_login($$)
$context = "default";
}
if (!$filename) {
- $filename = "/etc/asterisk/voicemail.conf";
+ $filename = "@@ASTETCDIR@@/voicemail.conf";
}
# print header;
# print "Including
$filename
while in
$category
...\n";
@@@@ -153,7 +153,7 @@@@ sub check_login($$)
while() {
chomp;
if (/include\s\"([^\"]+)\"$/) {
- ($tmp, $category) = &check_login("/etc/asterisk/$1", $category);
+ ($tmp, $category) = &check_login("@@ASTETCDIR@@/$1", $category);
if (length($tmp)) {
# print "Got '$tmp'\n";
return ($tmp, $category);
@@@@ -200,7 +200,7 @@@@ sub check_login_users {
my ($mbox, $context) = split(/\@@/, param('mailbox'));
my $pass = param('password');
my ($found, $fullname) = (0, "");
- open VMAIL, ") {
chomp;
if (m/\[(.*)\]/) {
@@@@ -242,7 +242,7 @@@@ sub validmailbox($$$$)
$context = "default";
}
if (!$filename) {
- $filename = "/etc/asterisk/voicemail.conf";
+ $filename = "@@ASTETCDIR@@/voicemail.conf";
}
if (!$category) {
$category = "general";
@@@@ -251,7 +251,7 @@@@ sub validmailbox($$$$)
while () {
chomp;
if (/include\s\"([^\"]+)\"$/) {
- ($tmp, $category) = &validmailbox($mbox, $context, "/etc/asterisk/$1");
+ ($tmp, $category) = &validmailbox($mbox, $context, "@@ASTETCDIR@@/$1");
if ($tmp) {
return ($tmp, $category);
}
@@@@ -298,7 +298,7 @@@@ sub mailbox_options()
local $tmp2;
local $tmp;
if (!$filename) {
- $filename = "/etc/asterisk/voicemail.conf";
+ $filename = "@@ASTETCDIR@@/voicemail.conf";
}
if (!$category) {
$category = "general";
@@@@ -386,7 +386,7 @@@@ sub mailbox_list()
sub msgcount()
{
my ($context, $mailbox, $folder) = @@_;
- my $path = "/var/spool/asterisk/voicemail/$context/$mailbox/$folder";
+ my $path = "@@ASTSPOOLDIR@@/voicemail/$context/$mailbox/$folder";
if (opendir(DIR, $path)) {
my @@msgs = grep(/^msg....\.txt$/, readdir(DIR));
closedir(DIR);
@@@@ -410,7 +410,7 @@@@ sub msgcountstr()
sub messages()
{
my ($context, $mailbox, $folder) = @@_;
- my $path = "/var/spool/asterisk/voicemail/$context/$mailbox/$folder";
+ my $path = "@@ASTSPOOLDIR@@/voicemail/$context/$mailbox/$folder";
if (opendir(DIR, $path)) {
my @@msgs = sort grep(/^msg....\.txt$/, readdir(DIR));
closedir(DIR);
@@@@ -435,7 +435,7 @@@@ sub getfields()
{
my ($context, $mailbox, $folder, $msg) = @@_;
my $fields;
- if (open(MSG, ") {
s/\#.*$//g;
if (/^(\w+)\s*\=\s*(.*)$/) {
@@@@ -560,7 +560,7 @@@@ _EOH
-
+
@@@@ -588,7 +588,7 @@@@ sub message_audio()
}
&untaint($format);
- my $path = "/var/spool/asterisk/voicemail/$context/$mailbox/$folder/msg${msgid}.$format";
+ my $path = "@@ASTSPOOLDIR@@/voicemail/$context/$mailbox/$folder/msg${msgid}.$format";
$msgid =~ /^\d\d\d\d$/ || die("Msgid Liar ($msgid)!");
grep(/^${format}$/, keys %formats) || die("Format Liar ($format)!");
@@@@ -809,11 +809,11 @@@@ sub message_rename()
die("Invalid old Message \n");
}
- my $path = "/var/spool/asterisk/voicemail/$context/$mbox/$newfolder";
+ my $path = "@@ASTSPOOLDIR@@/voicemail/$context/$mbox/$newfolder";
$path =~ /^(.*)$/;
$path = $1;
mkdir $path, 0770;
- $path = "/var/spool/asterisk/voicemail/$context/$mbox/$oldfolder";
+ $path = "@@ASTSPOOLDIR@@/voicemail/$context/$mbox/$oldfolder";
opendir(DIR, $path) || die("Unable to open directory\n");
my @@files = grep /^msg${old}\.\w+$/, readdir(DIR);
closedir(DIR);
@@@@ -823,7 +823,7 @@@@ sub message_rename()
$tmp = $1;
$oldfile = $path . "/$tmp";
$tmp =~ s/msg${old}/msg${new}/;
- $newfile = "/var/spool/asterisk/voicemail/$context/$mbox/$newfolder/$tmp";
+ $newfile = "@@ASTSPOOLDIR@@/voicemail/$context/$mbox/$newfolder/$tmp";
# print "Renaming $oldfile to $newfile \n";
rename($oldfile, $newfile);
}
@@@@ -884,15 +884,15 @@@@ sub message_copy()
die("Invalid old Message \n");
}
- my $path = "/var/spool/asterisk/voicemail/$context/$newmbox";
+ my $path = "@@ASTSPOOLDIR@@/voicemail/$context/$newmbox";
$path =~ /^(.*)$/;
$path = $1;
mkdir $path, 0770;
- $path = "/var/spool/asterisk/voicemail/$context/$newmbox/INBOX";
+ $path = "@@ASTSPOOLDIR@@/voicemail/$context/$newmbox/INBOX";
$path =~ /^(.*)$/;
$path = $1;
mkdir $path, 0770;
- $path = "/var/spool/asterisk/voicemail/$context/$mbox/$oldfolder";
+ $path = "@@ASTSPOOLDIR@@/voicemail/$context/$mbox/$oldfolder";
opendir(DIR, $path) || die("Unable to open directory\n");
my @@files = grep /^msg${old}\.\w+$/, readdir(DIR);
closedir(DIR);
@@@@ -902,7 +902,7 @@@@ sub message_copy()
$tmp = $1;
$oldfile = $path . "/$tmp";
$tmp =~ s/msg${old}/msg${new}/;
- $newfile = "/var/spool/asterisk/voicemail/$context/$newmbox/INBOX/$tmp";
+ $newfile = "@@ASTSPOOLDIR@@/voicemail/$context/$newmbox/INBOX/$tmp";
# print "Copying $oldfile to $newfile \n";
&file_copy($oldfile, $newfile);
}
@@@@ -932,7 +932,7 @@@@ sub message_delete()
} else {
die("Invalid Message \n");
}
- my $path = "/var/spool/asterisk/voicemail/$context/$mbox/$folder";
+ my $path = "@@ASTSPOOLDIR@@/voicemail/$context/$mbox/$folder";
opendir(DIR, $path) || die("Unable to open directory\n");
my @@files = grep /^msg${msg}\.\w+$/, readdir(DIR);
closedir(DIR);
@@@@ -968,7 +968,7 @@@@ sub message_forward()
my $txt;
$context = &untaint($context);
$newmbox = &untaint($newmbox);
- my $path = "/var/spool/asterisk/voicemail/$context/$newmbox/INBOX";
+ my $path = "@@ASTSPOOLDIR@@/voicemail/$context/$newmbox/INBOX";
if ($msgs[0]) {
if (&lock_path($path) == 0) {
$msgcount = &msgcount($context, $newmbox, "INBOX");
@@@@ -1018,7 +1018,7 @@@@ sub message_delete_or_move()
$context = &untaint($context);
$mbox = &untaint($mbox);
$folder = &untaint($folder);
- $path = "/var/spool/asterisk/voicemail/$context/$mbox/$folder";
+ $path = "@@ASTSPOOLDIR@@/voicemail/$context/$mbox/$folder";
if ($msgs[0]) {
if (&lock_path($path) == 0) {
my $msgcount = &msgcount($context, $mbox, $folder);
@