summaryrefslogtreecommitdiff
path: root/httemplate/edit/process/addr_block
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/edit/process/addr_block')
-rwxr-xr-xhttemplate/edit/process/addr_block/add.cgi20
-rwxr-xr-xhttemplate/edit/process/addr_block/allocate.cgi16
-rwxr-xr-xhttemplate/edit/process/addr_block/deallocate.cgi20
-rwxr-xr-xhttemplate/edit/process/addr_block/manual_flag.cgi30
-rwxr-xr-xhttemplate/edit/process/addr_block/split.cgi27
5 files changed, 0 insertions, 113 deletions
diff --git a/httemplate/edit/process/addr_block/add.cgi b/httemplate/edit/process/addr_block/add.cgi
deleted file mode 100755
index 39d6348ce..000000000
--- a/httemplate/edit/process/addr_block/add.cgi
+++ /dev/null
@@ -1,20 +0,0 @@
-<% include( '../elements/process.html',
- 'table' => 'addr_block',
- 'redirect' => popurl(4). 'browse/addr_block.cgi?dummy=',
- 'error_redirect' => popurl(4). 'browse/addr_block.cgi?',
- 'agent_virt' => 1,
- 'agent_null_right' => 'Broadband global configuration',
-
- )
-%>
-<%init>
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-die "access denied"
- unless $curuser->access_right('Broadband configuration')
- || $curuser->access_right('Broadband global configuration');
-
-$cgi->param('routernum', 0) # in FS::addr_block::check instead?
- unless $cgi->param('routernum');
-
-</%init>
diff --git a/httemplate/edit/process/addr_block/allocate.cgi b/httemplate/edit/process/addr_block/allocate.cgi
deleted file mode 100755
index 40d04b369..000000000
--- a/httemplate/edit/process/addr_block/allocate.cgi
+++ /dev/null
@@ -1,16 +0,0 @@
-<% include( '../elements/process.html',
- 'table' => 'addr_block',
- 'copy_on_empty' => [ fields 'addr_block' ],
- 'error_redirect' => popurl(3). 'allocate.html?',
- 'popup_reload' => 'Block allocated',
- )
-%>
-<%init>
-
-my $conf = new FS::Conf;
-my $curuser = $FS::CurrentUser::CurrentUser;
-die "access denied"
- unless $curuser->access_right('Broadband configuration')
- || $curuser->access_right('Broadband global configuration');
-
-</%init>
diff --git a/httemplate/edit/process/addr_block/deallocate.cgi b/httemplate/edit/process/addr_block/deallocate.cgi
deleted file mode 100755
index 128824ec7..000000000
--- a/httemplate/edit/process/addr_block/deallocate.cgi
+++ /dev/null
@@ -1,20 +0,0 @@
-<% include( '../elements/process.html',
- 'table' => 'addr_block',
- 'copy_on_empty' => [ grep { $_ ne 'routernum' }
- fields 'addr_block' ],
- 'redirect' => popurl(4). 'browse/addr_block.cgi?',
- 'error_redirect' => popurl(4). 'browse/addr_block.cgi?',
- 'agent_virt' => 1,
- 'agent_null_right' => 'Broadband global configuration',
- )
-%>
-<%init>
-
-my $conf = new FS::Conf;
-my $curuser = $FS::CurrentUser::CurrentUser;
-die "access denied"
- unless $curuser->access_right('Broadband configuration')
- || $curuser->access_right('Broadband global configuration');
-
-$cgi->param('routernum', 0); # just to be explicit about what we are doing
-</%init>
diff --git a/httemplate/edit/process/addr_block/manual_flag.cgi b/httemplate/edit/process/addr_block/manual_flag.cgi
deleted file mode 100755
index dc0cbbbf5..000000000
--- a/httemplate/edit/process/addr_block/manual_flag.cgi
+++ /dev/null
@@ -1,30 +0,0 @@
-<% $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string ) %>
-<%init>
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-
-die "access denied"
- unless $curuser->access_right('Broadband configuration')
- || $curuser->access_right('Broadband global configuration');
-
-my $error = '';
-$cgi->param('blocknum') =~ /^(\d+)$/ or die "invalid blocknum";
-my $blocknum = $1;
-
-my $addr_block = qsearchs({ 'table' => 'addr_block',
- 'hashref' => { blocknum => $blocknum },
- 'extra_sql' => ' AND '. $curuser->agentnums_sql(
- 'null_right' => 'Broadband global configuration'
- ),
- })
- or $error = "Unknown blocknum: $blocknum";
-
-$addr_block->manual_flag($cgi->param('manual_flag'))
- unless $error;
-
-$error ||= $addr_block->replace;
-
-$cgi->param('error', $error)
- if $error;
-
-</%init>
diff --git a/httemplate/edit/process/addr_block/split.cgi b/httemplate/edit/process/addr_block/split.cgi
deleted file mode 100755
index 045fd30de..000000000
--- a/httemplate/edit/process/addr_block/split.cgi
+++ /dev/null
@@ -1,27 +0,0 @@
-<% $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string ) %>
-<%init>
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-
-die "access denied"
- unless $curuser->access_right('Broadband configuration')
- || $curuser->access_right('Broadband global configuration');
-
-my $error = '';
-$cgi->param('blocknum') =~ /^(\d+)$/ or die "invalid blocknum";
-my $blocknum = $1;
-
-my $addr_block = qsearchs({ 'table' => 'addr_block',
- 'hashref' => { blocknum => $blocknum },
- 'extra_sql' => ' AND '. $curuser->agentnums_sql(
- 'null_right' => 'Broadband global configuration'
- ),
- })
- or $error = "Unknown blocknum: $blocknum";
-
-$error ||= $addr_block->split_block;
-
-$cgi->param('error', $error)
- if $error;
-
-</%init>