Changeset 1135

Show
Ignore:
Timestamp:
01/28/08 16:57:00 (7 months ago)
Author:
mbriggs
Message:

Allow varying function arguments to ATUOLOAD

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/trunk/lib/HoneyClient/Manager/Database.pm

    r1134 r1135  
    218218# XXX: Comment this. 
    219219sub _AUTOLOAD { 
    220     my $obj = shift; 
    221     my $obj_yaml = YAML::freeze(Data::Structure::Util::unbless($obj)); 
     220  #XXX: Moved to AUTOLOAD. This allows varying parameters 
     221    #my $obj = shift; 
     222    #my $obj_yaml = YAML::freeze(Data::Structure::Util::unbless($obj)); 
    222223    my $name = $AUTOLOAD; 
    223224    $name =~  s/.*://; 
    …… 
    226227    # XXX: Externalize this URL. 
    227228    my $xmlrpc = XML::RPC->new('http://172.16.164.103:3000/hc_database/api'); 
    228     my $ret = $xmlrpc->call($name,$obj_yaml); 
     229    #my $ret = $xmlrpc->call($name,$obj_yaml); 
     230    my $ret = $xmlrpc->call($name,@_); 
    229231 
    230232    # Error checking. 
    …… 
    258260# Outputs: the returned data from the web service 
    259261sub AUTOLOAD { 
    260     return _AUTOLOAD(shift); 
     262    my $obj = shift; 
     263    my $obj_yaml = YAML::freeze(Data::Structure::Util::unbless($obj)); 
     264 
     265  return _AUTOLOAD($obj_yaml); 
    261266} 
    262267 
    …… 
    265270    $AUTOLOAD = "Database::get_queue_urls"; 
    266271    # Results from this call are YAML-encoded; need to deserialize them. 
    267     return YAML::thaw(_AUTOLOAD(shift)); 
     272    return YAML::thaw(_AUTOLOAD(@_)); 
    268273} 
    269274