#!/usr/local/bin/perl -w
# put-test.pl -- File-Upload Webclient, verwendet die HTTP PUT-Methode.
#          Der Webserver sollte die PUT-Methode unterstuetzen!

# Verwendung: put-test.pl http://localhost/puttest/atest.html myfile.html
# Versucht, die Datei myfile.html mit Hilfe der PUT-Methode zur
# URL http://localhost/puttest/atest.html zu uebertragen.

use LWP::UserAgent;          # Wir sind ja ein Webclient.
use HTTP::Request::Common;   # Um eine HTTP-PUT Anforderung zu erzeugen.

my $url   = shift;   # 1. Kdo-Zeilenargument: ZielURL
my $fname = shift;   # 2. Kdo-Zeilenargument: Zu uebertragenden Datei.

# lesen wir zunaechst die zu uebertragenden Datei komplett in
# den Putter $content ein. Wir verwenden die Slurp-Methode.
{
    local $/;    # slurp mode
    open (FILE, "< $fname") or die "can't open file $fname: $!\n";
      $content = <FILE>;
    close FILE;
}

# Wir erzeugen eine HTTP PUT-Anforderung und senden als Inhalt
# die in $content eingelesene Datei zum Webserver:
$ua  = new LWP::UserAgent;
$res = $ua->request(PUT $url,
            'Content' => $content);

# Ueberpruefen wir, ob alles okay war:
if ($res->is_success()) {
    print "OK: ", $res->content;
} else {
    print $res->as_string;
}