Changeset 1103

Show
Ignore:
Timestamp:
01/10/08 16:28:11 (7 months ago)
Author:
kindlund
Message:

Integration testing.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r1102 r1103  
    11use strict; 
    22 
    3 use YAML qw'freeze thaw Bless'; 
     3package HoneyClient::Manager::Database; 
     4 
     5use YAML qw'freeze'; 
    46use XML::RPC; 
    5  
    6 package HoneyClient::Manager::Database; 
    77 
    88sub insert { 
    …… 
    1111 
    1212    # Execute insert via XML-RPC and return id 
    13     eval { 
    14         my $xmlrpc = XML::RPC->new('http://localhost:3000/hc_database/api'); 
     13    #eval { 
     14        my $xmlrpc = XML::RPC->new('http://172.16.164.103:3000/hc_database/api'); 
    1515        return $xmlrpc->call("insert",$class,$obj_yaml); 
    16     }; 
    17     if ($@) { 
    18       return 0; 
    19     } 
     16    #}; 
     17    #if ($@) { 
     18    # return 0; 
     19    #} 
    2020} 
    2121 
    …… 
    2828sub submit_urls { 
    2929} 
     30 
     311;