Advertisement
Guest User

serial logging seriously?

a guest
Jun 6th, 2013
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.19 KB | None | 0 0
  1. use OpenSRF::Utils::Logger qw/:logger/;
  2.  
  3.  
  4. __PACKAGE__->register_method(
  5. method => 'regenerate_summaries',
  6. api_name => 'open-ils.serial.regenerate_summaries',
  7. api_level => 1,
  8. argc => 1,
  9. signature => {
  10. 'desc' => 'Regenerate all the generated_coverage fields for given distributions',
  11. 'params' => [ {
  12. name => 'sdist_ids',
  13. desc => 'IDs of the distribution whose coverage you want to regenerate',
  14. type => 'array'
  15. }
  16. ],
  17. 'return' => {
  18. desc => 'Returns undef if successful, event if failed',
  19. type => 'mixed'
  20. }
  21. #TODO: best practices for return values
  22. }
  23. );
  24.  
  25. sub regenerate_summaries {
  26. my ($self, $conn, $auth, $sdist_ids) = @_;
  27.  
  28.  
  29.  
  30. #HERE HERE HERE#
  31.  
  32. my $obj = Devel::Symdump->new('example');
  33. warn "SERIALS: ". $obj->as_string();
  34. OpenSRF::Utils::Logger->error("SERIALS: ". $obj->as_string());
  35. $logger->error("SERIALS: ". $obj->as_string());
  36.  
  37. #NOT ANYMORE HERE HERE HERE #
  38.  
  39.  
  40. my $e = new_editor("authtoken" => $auth, "xact" => 1);
  41. return $e->die_event unless $e->checkauth;
  42.  
  43.  
  44.  
  45. ............
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement