head 1.2; access; symbols pkgsrc-2025Q2:1.1.1.1.0.78 pkgsrc-2025Q2-base:1.1.1.1 pkgsrc-2025Q1:1.1.1.1.0.76 pkgsrc-2025Q1-base:1.1.1.1 pkgsrc-2024Q4:1.1.1.1.0.74 pkgsrc-2024Q4-base:1.1.1.1 pkgsrc-2024Q3:1.1.1.1.0.72 pkgsrc-2024Q3-base:1.1.1.1 pkgsrc-2024Q2:1.1.1.1.0.70 pkgsrc-2024Q2-base:1.1.1.1 pkgsrc-2024Q1:1.1.1.1.0.68 pkgsrc-2024Q1-base:1.1.1.1 pkgsrc-2023Q4:1.1.1.1.0.66 pkgsrc-2023Q4-base:1.1.1.1 pkgsrc-2023Q3:1.1.1.1.0.64 pkgsrc-2023Q3-base:1.1.1.1 pkgsrc-2023Q2:1.1.1.1.0.62 pkgsrc-2023Q2-base:1.1.1.1 pkgsrc-2023Q1:1.1.1.1.0.60 pkgsrc-2023Q1-base:1.1.1.1 pkgsrc-2022Q4:1.1.1.1.0.58 pkgsrc-2022Q4-base:1.1.1.1 pkgsrc-2022Q3:1.1.1.1.0.56 pkgsrc-2022Q3-base:1.1.1.1 pkgsrc-2022Q2:1.1.1.1.0.54 pkgsrc-2022Q2-base:1.1.1.1 pkgsrc-2022Q1:1.1.1.1.0.52 pkgsrc-2022Q1-base:1.1.1.1 pkgsrc-2021Q4:1.1.1.1.0.50 pkgsrc-2021Q4-base:1.1.1.1 pkgsrc-2021Q3:1.1.1.1.0.48 pkgsrc-2021Q3-base:1.1.1.1 pkgsrc-2021Q2:1.1.1.1.0.46 pkgsrc-2021Q2-base:1.1.1.1 pkgsrc-2021Q1:1.1.1.1.0.44 pkgsrc-2021Q1-base:1.1.1.1 pkgsrc-2020Q4:1.1.1.1.0.42 pkgsrc-2020Q4-base:1.1.1.1 pkgsrc-2020Q3:1.1.1.1.0.40 pkgsrc-2020Q3-base:1.1.1.1 pkgsrc-2020Q2:1.1.1.1.0.36 pkgsrc-2020Q2-base:1.1.1.1 pkgsrc-2020Q1:1.1.1.1.0.16 pkgsrc-2020Q1-base:1.1.1.1 pkgsrc-2019Q4:1.1.1.1.0.38 pkgsrc-2019Q4-base:1.1.1.1 pkgsrc-2019Q3:1.1.1.1.0.34 pkgsrc-2019Q3-base:1.1.1.1 pkgsrc-2019Q2:1.1.1.1.0.32 pkgsrc-2019Q2-base:1.1.1.1 pkgsrc-2019Q1:1.1.1.1.0.30 pkgsrc-2019Q1-base:1.1.1.1 pkgsrc-2018Q4:1.1.1.1.0.28 pkgsrc-2018Q4-base:1.1.1.1 pkgsrc-2018Q3:1.1.1.1.0.26 pkgsrc-2018Q3-base:1.1.1.1 pkgsrc-2018Q2:1.1.1.1.0.24 pkgsrc-2018Q2-base:1.1.1.1 pkgsrc-2018Q1:1.1.1.1.0.22 pkgsrc-2018Q1-base:1.1.1.1 pkgsrc-2017Q4:1.1.1.1.0.20 pkgsrc-2017Q4-base:1.1.1.1 pkgsrc-2017Q3:1.1.1.1.0.18 pkgsrc-2017Q3-base:1.1.1.1 pkgsrc-2017Q2:1.1.1.1.0.14 pkgsrc-2017Q2-base:1.1.1.1 pkgsrc-2017Q1:1.1.1.1.0.12 pkgsrc-2017Q1-base:1.1.1.1 pkgsrc-2016Q4:1.1.1.1.0.10 pkgsrc-2016Q4-base:1.1.1.1 pkgsrc-2016Q3:1.1.1.1.0.8 pkgsrc-2016Q3-base:1.1.1.1 pkgsrc-2016Q2:1.1.1.1.0.6 pkgsrc-2016Q2-base:1.1.1.1 pkgsrc-2016Q1:1.1.1.1.0.4 pkgsrc-2016Q1-base:1.1.1.1 pkgsrc-2015Q4:1.1.1.1.0.2 pkgsrc-2015Q4-base:1.1.1.1 pkgsrc-base:1.1.1.1 TNF:1.1.1; locks; strict; comment @# @; 1.2 date 2025.07.09.07.16.56; author jnemeth; state dead; branches; next 1.1; commitid kLQuP0CZAP9SB22G; 1.1 date 2015.12.05.23.29.10; author jnemeth; state Exp; branches 1.1.1.1; next ; commitid HrxiuMojJLTuCOLy; 1.1.1.1 date 2015.12.05.23.29.10; author jnemeth; state Exp; branches; next ; commitid HrxiuMojJLTuCOLy; desc @@ 1.2 log @remove seriously outdated Asterisk 13 as per pkgsrc-users e-mail on May 19th @ text @$NetBSD: patch-contrib_scripts_vmail.cgi,v 1.1 2015/12/05 23:29:10 jnemeth Exp $ --- contrib/scripts/vmail.cgi.orig 2015-10-09 21:48:48.000000000 +0000 +++ contrib/scripts/vmail.cgi @@@@ -1,4 +1,4 @@@@ -#!/usr/bin/perl +#!/usr/pkg/bin/perl # # Web based Voicemail for Asterisk # @@@@ -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); @ 1.1 log @Initial revision @ text @d1 1 a1 1 $NetBSD: patch-contrib_scripts_vmail.cgi,v 1.1 2012/12/11 08:22:49 jnemeth Exp $ @ 1.1.1.1 log @`cat ../comment` @ text @@