blob: 9ea0d0d1ce424c081b36e2633bbc38d18ddc7757 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
%if ($config) {
<% $config %>
%}else{
<% include("/elements/errorpage.html", "No configuration data produced.") %>
%}
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('View customer services');
my $exportnum;
if ( $cgi->param('exportnum') ) {
$cgi->param('exportnum') =~ /^(\d+)$/ or die "unparsable exportnum";
$exportnum = $1;
}
die "no export provided"
unless $exportnum;
my $svcnum;
if ( $cgi->param('svcnum') ) {
$cgi->param('svcnum') =~ /^(\d+)$/ or die "unparsable svcnum";
$svcnum = $1;
}
my $devicenum;
if ( $cgi->param('devicenum') ) {
$cgi->param('devicenum') =~ /^(\d+)$/ or die "unparsable devicenum";
$devicenum = $1;
}
die "no device or service provided"
unless $svcnum || $devicenum;
my $part_export = qsearchs('part_export', { 'exportnum' => $exportnum })
or die "Unknown exportnum $exportnum\n";
my $phone_device;
my $svc_phone;
if ($devicenum) {
$phone_device = qsearchs('phone_device', { 'devicenum' => $devicenum })
or die "Unknown device $devicenum\n";
$svc_phone = $phone_device->svc_phone;
} else {
$svc_phone = qsearchs('svc_phone', { 'svcnum' => $svcnum })
or die "Unknown svc_phone $svcnum\n";
}
my $config = $part_export->export_device_config($svc_phone, $phone_device);
if ($config) {
http_header('Content-Type' => 'application/octet-stream');
http_header('Content-Disposition' => 'attachment;filename="config"');
http_header('Content-Length' => length($config));
}
</%init>
|
