Changeset 11518 for lang/perl/Punc

Show
Ignore:
Timestamp:
05/13/08 18:41:21 (6 months ago)
Author:
mizzy
Message:

インターフェースを全体的にすっきりさせた

Location:
lang/perl/Punc/trunk
Files:
10 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Punc/trunk/bin/punc

    r11152 r11518  
    1717my $punc = Punc::Client->new($target); 
    1818 
    19 my $res = $punc->$module->$method($options); 
     19my $results = $punc->$module->$method($options); 
    2020 
    21 for (@$res) { 
     21while ( my $result = $results->next ) { 
    2222    if ( $method eq 'description' || $method eq 'desc' ) { 
    23         print $_->{response}->{result}; 
     23        print $result->result; 
    2424    } 
    2525    else { 
    26         print to_json($_) . "\n"; 
     26        print to_json($result->as_hash) . "\n"; 
    2727    } 
    2828} 

  • lang/perl/Punc/trunk/bin/puncd

    r10103 r11518  
    1313 
    1414GetOptions( 
    15     '--port=i'    => \my $port, 
    16     '--confdir=s' => \my $confdir, 
     15    '--port=i'            => \my $port, 
     16    '--confdir=s'         => \my $confdir, 
     17    '--puncmaster-host=s' => \my $puncmaster_host, 
    1718); 
    1819 
    … …  
    2526 
    2627my $conf = -f $yaml ? Punc::ConfigLoader->new->load($yaml) : {}; 
     28$conf->{puncmaster_host} ||= $puncmaster_host; 
    2729 
    2830my $daemon = Punc::Slave::Daemon->new({ 

  • lang/perl/Punc/trunk/bin/puncmaster-ca

    r10103 r11518  
    3939 
    4040sub list { 
    41  
     41    $ca->list(); 
    4242} 
    4343 

  • lang/perl/Punc/trunk/lib/Punc/Client/Response.pm

    r8512 r11518  
    33use strict; 
    44use warnings; 
     5use Punc::Client::Result; 
    56 
    67sub new { 
    7     bless [], shift; 
     8    my $self = { 
     9        index => 0, 
     10        results => [], 
     11    }; 
     12    bless $self, shift; 
    813} 
    914 
    1015sub add { 
    1116    my ( $self, $args ) = @_; 
    12     push @$self, $args; 
     17    push @{$self->{results}}, Punc::Client::Result->new($args); 
     18} 
     19 
     20sub next { 
     21    my $self = shift; 
     22    return $self->{results}->[ $self->{index}++ ]; 
    1323} 
    1424 

  • lang/perl/Punc/trunk/lib/Punc/Hosts/File.pm

    r11215 r11518  
    1818        if ( $file =~ /$args->{target}/ ) { 
    1919            my $host = basename($file, '.cert'); 
     20            next if $host eq 'ca'; 
    2021            push @hosts, $host; 
    2122        } 

  • lang/perl/Punc/trunk/lib/Punc/Master/CA.pm

    r10103 r11518  
    6262} 
    6363 
     64sub list { 
     65    my $self = shift; 
     66    my @csrs = glob(File::Spec->catfile($self->{csrdir}, '*.csr')); 
     67    for my $csr ( @csrs ) { 
     68        my ( $host ) = ( $csr =~ m!([^/]+)\.csr$! ); 
     69        print "$host\n"; 
     70    } 
     71 
     72} 
     73 
    64741; 

  • lang/perl/Punc/trunk/lib/Punc/Master/Daemon.pm

    r11215 r11518  
    108108    close $cacert_fh; 
    109109 
    110     return { cert => $cert, cacert => $cacert }; 
     110    return { result => { cert => $cert, cacert => $cacert } }; 
    111111} 
    112112 

  • lang/perl/Punc/trunk/lib/Punc/Slave/Daemon.pm

    r11216 r11518  
    3030    $self->{ssldir}  = File::Spec->catdir($self->{confdir}, 'ssl'); 
    3131    $self->{certdir} = File::Spec->catdir($self->{ssldir}, 'certs'); 
    32     $self->{keydir} = File::Spec->catdir($self->{ssldir}, 'keys'); 
    33     $self->{csrdir} = File::Spec->catdir($self->{ssldir}, 'csrs'); 
     32    $self->{keydir}  = File::Spec->catdir($self->{ssldir}, 'keys'); 
     33    $self->{csrdir}  = File::Spec->catdir($self->{ssldir}, 'csrs'); 
    3434 
    3535    mkpath($self->{certdir}) unless -d $self->{certdir}; 
    … …  
    104104        if ( $module_to_delegate ) { 
    105105            $res = $module_to_delegate->$method($args); 
     106            if ( defined $res ) { 
     107                $res = { result => $res }; 
     108            } else { 
     109                $res = { error => $module_to_delegate->errstr }; 
     110            } 
    106111        } 
    107112        else { 

  • lang/perl/Punc/trunk/lib/Punc/Slave/Module/File.pm

    r11215 r11518  
    1919    open my $fh, '>', $dest_file or do { 
    2020        Punc->context->log( error => $! ); 
    21         return { error => $! }; 
     21        return $self->error($!); 
    2222    }; 
    2323 

  • lang/perl/Punc/trunk/lib/Punc/Slave/Module/Service/RedHat.pm

    r11215 r11518  
    1717    if ( -f "/etc/init.d/$service" ) { 
    1818        `/sbin/service $service $command`; 
    19         return { result => $? }; 
     19        return $?; 
    2020    } 
    2121    else { 
    22         return { error => "no such service: $service" }; 
     22        return $self->error("no such service: $service"); 
    2323    } 
    2424}