IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 28525 for trunk/Nebulous/lib


Ignore:
Timestamp:
Jun 28, 2010, 2:59:29 PM (16 years ago)
Author:
watersc1
Message:

Final update to nebulous for this iteration. Changes:

  • nebdiskd reads its configuration from a sane location.
  • neb-ls is useful.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Nebulous/lib/Nebulous/Client.pm

    r28446 r28525  
    99no warnings qw( uninitialized );
    1010
    11 our $VERSION = '0.17';
     11our $VERSION = '0.18';
    1212
    1313use Digest::MD5;
     
    741741}
    742742
     743sub find_objects_wildcard
     744{
     745    my $self = shift;
     746
     747    my @args = validate_pos( @_,
     748        {
     749            type        => SCALAR,
     750            optional    => 1,
     751        },
     752    );
     753
     754    $log->debug( "entered - @_" );
     755
     756    my $response = $self->{ 'server' }->find_objects_wildcard( @args );
     757    if ( $response->fault ) {
     758        $self->set_err($response->faultstring);
     759
     760        if ($response->faultstring =~ /no keys found/) {
     761            $log->debug( "leaving" );
     762            return;
     763        }
     764        if ($response->faultstring =~ /does not match any key or directory/) {
     765            $log->debug( "leaving" );
     766            return;
     767        }
     768
     769        $log->logdie("unhandled fault - ", $self->err);
     770    }
     771
     772    my $keys = $response->result;
     773
     774    $log->debug( "server found: @$keys" );
     775
     776#    foreach my $path ( @{ $uris } ) {
     777#        $path = _get_file_path( $path );
     778#    }
     779
     780    $log->debug( "leaving" );
     781
     782    return $keys;
     783}
     784
    743785
    744786sub find_instances
Note: See TracChangeset for help on using the changeset viewer.