Subversion Repositories configs

package Http_get;
require 5.002;
use Socket;
use strict;

sub new{
        my $self = {};
        $self->{CONTENT} = undef;
        $self->{SUCCESS} = undef;
        bless($self);
        return $self;
}

sub request{
        my $self = shift;
        $self->{CONTENT} = undef;
        $self->{SUCCESS} = undef;
        my $url = shift || return;
        my $port = 80;

        if(substr($url, 0, 7) ne 'http://') {
                return;
        }

        my $host;
        my $uri;
        if((my $first_slash=index($url, '/', 7))!=-1) {
                if((my $dots=rindex($url, ':', $first_slash))>7) {
                        $port=substr($url, $dots+1, $first_slash-$dots-1);
                        $first_slash=$dots;
                }
                $host=substr($url, 7, $first_slash-7);
                $uri=substr($url, $first_slash);
        }
        else {
                $host=substr($url, 7);
                $uri = '/';
        }
        
        my $iaddr = inet_aton($host) || return;

        my $paddr = sockaddr_in($port, $iaddr);
        my $proto = getprotobyname('tcp');

        socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or return;
        connect(SOCKET, $paddr) or return;

        # flush SOCKET after every write
        select(SOCKET); $|=1; select(STDOUT);

        print SOCKET "GET $uri HTTP/1.0\n";
        print SOCKET "Host: $host\n\n";

        # skip headers
        while (<SOCKET> =~ /[^\s]/) { }
        
        $self->{SUCCESS}=1;
        while (<SOCKET>) {
                $self->{CONTENT}.=$_ ;
        }

        close SOCKET;
        return $self;
}

sub is_success {
        my $self = shift;
        return $self->{SUCCESS};
}

sub content {
        my $self = shift;
        return $self->{CONTENT};
}

1;