diff options
author | ivan <ivan> | 2005-02-17 00:11:29 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-02-17 00:11:29 +0000 |
commit | 76a0c0009d9780cedd74e481ae6530010d210b3f (patch) | |
tree | f0299fb1c0902869fcae355c6fd9aab5d096caac /FS/FS/rate.pm | |
parent | bf122a93c9665f7d5c8f680199adc8db99f36d57 (diff) |
generalize progressbar code in preparation for using it wherever needed
Diffstat (limited to 'FS/FS/rate.pm')
-rw-r--r-- | FS/FS/rate.pm | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/FS/FS/rate.pm b/FS/FS/rate.pm index 7c6a70e..1cc2152 100644 --- a/FS/FS/rate.pm +++ b/FS/FS/rate.pm @@ -313,11 +313,6 @@ use MIME::Base64; sub process { my $job = shift; - #my %param = @_; - - #my $param = shift; - #my %param = split(/[;=]/, $param); - my $param = thaw(decode_base64(shift)); warn Dumper($param) if $DEBUG; @@ -372,51 +367,6 @@ sub process { } -# begin JSRPC code... - -package FS::rate::JSRPC; -use vars qw(@ISA $DEBUG); -use JavaScript::RPC::Server::CGI; -use FS::UID; -@ISA = qw( JavaScript::RPC::Server::CGI ); -$DEBUG = 1; - -sub process_rate { - my $self = shift; - - my %param = @_; - warn "FS::rate::JSRPC::process_rate\n". - join('', map " $_ => $param{$_}\n", keys %param ) - if $DEBUG; - - #progressbar prototype code... should be generalized - - #first get the CGI params shipped off to a job ASAP so an id can be returned - #to the caller - - my $job = new FS::queue { 'job' => 'FS::rate::process' }; - - #too slow to insert all the cgi params as individual args..,? - #my $error = $queue->insert('_JOB', $cgi->Vars); - - #my $bigstring = join(';', map { "$_=". scalar($cgi->param($_)) } $cgi->param ); - my $bigstring = join(';', map { "$_=". $param{$_} } keys %param ); - my $error = $job->insert('_JOB', $bigstring); - - if ( $error ) { - $error; - } else { - $job->jobnum; - } - -} - -sub get_new_query { - FS::UID::cgi(); -} - -# end JSRPC code... - =head1 BUGS =head1 SEE ALSO |