10 package FS::UI::Web::JSRPC;
12 use vars qw(@ISA $DEBUG);
13 use Storable qw(nfreeze);
15 use JavaScript::RPC::Server::CGI;
18 @ISA = qw( JavaScript::RPC::Server::CGI );
37 warn "FS::UI::Web::start_job\n".
38 join('', map " $_ => $param{$_}\n", keys %param )
41 #progressbar prototype code... should be generalized
43 #first get the CGI params shipped off to a job ASAP so an id can be returned
46 #my $job = new FS::queue { 'job' => 'FS::rate::process' };
47 my $job = new FS::queue { 'job' => $self->{'job'} };
49 #too slow to insert all the cgi params as individual args..,?
50 #my $error = $queue->insert('_JOB', $cgi->Vars);
52 #my $bigstring = join(';', map { "$_=". scalar($cgi->param($_)) } $cgi->param );
53 # my $bigstring = join(';', map { "$_=". $param{$_} } keys %param );
54 # my $error = $job->insert('_JOB', $bigstring);
56 #warn 'froze string of size '. length(nfreeze(\%param)). " for job args\n"
59 my $error = $job->insert( '_JOB', encode_base64(nfreeze(\%param)) );