httemplate/view/svc_export/run_script.cgi

   1 <% $server->process %>
   2 <%init>
   3
   4 my @args = $cgi->param('arg');
   5 my %param = ();
   6   while ( @args ) {
   7     my( $field, $value ) = splice(@args, 0, 2);
   8     unless ( exists( $param{$field} ) ) {
   9       $param{$field} = $value;
  10     } elsif ( ! ref($param{$field}) ) {
  11       $param{$field} = [ $param{$field}, $value ];
  12     } else {
  13       push @{$param{$field}}, $value;
  14     }
  15   }
  16
  17 my $exportnum;
  18 my $method;
  19 for (grep /^*_script$/, keys %param) {
  20         $exportnum = $param{$param{$_}.'_exportnum'};
  21         $method = $param{$param{$_}.'_script'};
  22 }
  23
  24 my $part_export = qsearchs('part_export', { 'exportnum'=> $exportnum, } )
  25         or die "unknown exportnum $exportnum";
  26
  27 my $class = 'FS::part_export::'.$part_export->{Hash}->{exporttype}.'::'.$method;
  28
  29 my $server = new FS::UI::Web::JSRPC $class, $cgi;
  30
  31 </%init>