From 5f8111de04a4a914c72a1642722476db4728339c Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 16 Jul 2014 06:17:05 -0700 Subject: REST API, RT#28181 --- httemplate/REST/1.0/cust_pkg | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 httemplate/REST/1.0/cust_pkg (limited to 'httemplate/REST/1.0/cust_pkg') diff --git a/httemplate/REST/1.0/cust_pkg b/httemplate/REST/1.0/cust_pkg new file mode 100644 index 000000000..3c58bcf31 --- /dev/null +++ b/httemplate/REST/1.0/cust_pkg @@ -0,0 +1,39 @@ +<% encode_rest($return) %>\ +<%init> + +rest_auth($cgi); + +my( $pkgnum, $command ) = split('/', rest_uri_remain($r, $m), 2 ); + +if ( $r->method eq 'GET' ) { + + my $return = []; + + if ( $pkgnum ) { + + my $cust_pkg = qsearchs('cust_main', { 'pkgnum'=>$pkgnum } ) + or die "unknown pkgnum $pkgnum"; + + if ( $command eq '' ) { + + $return = $cust_pkg->API_getinfo; + + } elsif ( $command eq 'cust_svc' ) { + + $return = [ map $_->API_getinfo, $cust_pkg->cust_svc ]; + + } + + + + #} else { #list + + } + +} elsif ( $r->method eq 'POST' ) { #create new + +} elsif ( $r->method eq 'PUT' ) { #modify + +} + + -- cgit v1.2.1