package Prophet::Replica::FS::Backend::LWP;
{
  $Prophet::Replica::FS::Backend::LWP::VERSION = '0.751';
}
use Any::Moose;
use Params::Validate qw/validate validate_pos/;
use LWP::UserAgent;

has url => ( is => 'rw', isa => 'Str');

has lwp_useragent => (
    isa     => 'LWP::UserAgent',
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $ua = LWP::UserAgent->new(
            timeout    => 60,
            keep_alive => 4,
            agent      => "Prophet/" . $Prophet::VERSION
        );
        return $ua;
    }
);

sub read_file {
    my $self = shift;
    my ($file) = validate_pos( @_, 1 );

    return $self->lwp_get( $self->url . "/" . $file );
}

sub read_file_range {
    my $self = shift;
    my %args = validate( @_, { path => 1, position => 1, length => 1 } );

    # XXX: do range get if possible
    my $content = $self->lwp_get( $self->url . "/" . $args{path} );
    return substr( $content, $args{position}, $args{length} );

}

sub lwp_get {
    my $self = shift;
    my $url  = shift;

    my $response;
    for ( 1 .. 4 ) {
        $response = $self->lwp_useragent->get($url);
        if ( $response->is_success ) {
            return $response->content;
        }
    }
    warn "Could not fetch " . $url . " - " . $response->status_line . "\n";
    return;
}

sub write_file {

}

sub append_to_file {

}

sub file_exists {
    my $self = shift;
    my ($file) = validate_pos( @_, 1 );
    return defined $self->read_file($file) ? 1 : 0;
}

sub can_read {
    1;

}

sub can_write {
    0;

}

no Any::Moose;

1;

__END__

=pod

=head1 NAME

Prophet::Replica::FS::Backend::LWP

=head1 VERSION

version 0.751

=head1 AUTHORS

=over 4

=item *

Jesse Vincent <jesse@bestpractical.com>

=item *

Chia-Liang Kao <clkao@bestpractical.com>

=item *

Christine Spang <christine@spang.cc>

=back

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2009 by Best Practical Solutions.

This is free software, licensed under:

  The MIT (X11) License

=head1 BUGS AND LIMITATIONS

You can make new bug reports, and view existing ones, through the
web interface at L<https://rt.cpan.org/Public/Dist/Display.html?Name=Prophet>.

=head1 CONTRIBUTORS

=over 4

=item *

Alex Vandiver <alexmv@bestpractical.com>

=item *

Casey West <casey@geeknest.com>

=item *

Cyril Brulebois <kibi@debian.org>

=item *

Florian Ragwitz <rafl@debian.org>

=item *

Ioan Rogers <ioanr@cpan.org>

=item *

Jonas Smedegaard <dr@jones.dk>

=item *

Kevin Falcone <falcone@bestpractical.com>

=item *

Lance Wicks <lw@judocoach.com>

=item *

Nelson Elhage <nelhage@mit.edu>

=item *

Pedro Melo <melo@simplicidade.org>

=item *

Rob Hoelz <rob@hoelz.ro>

=item *

Ruslan Zakirov <ruz@bestpractical.com>

=item *

Shawn M Moore <sartak@bestpractical.com>

=item *

Simon Wistow <simon@thegestalt.org>

=item *

Stephane Alnet <stephane@shimaore.net>

=item *

Unknown user <nobody@localhost>

=item *

Yanick Champoux <yanick@babyl.dyndns.org>

=item *

franck cuny <franck@lumberjaph.net>

=item *

robertkrimen <robertkrimen@gmail.com>

=item *

sunnavy <sunnavy@bestpractical.com>

=back

=cut
