WebDAV Testscript (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-18 08:41:05
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online

[thread]19301[/thread]

submit to reddit

WebDAV Testscript [gelöst]

[gelöst]

Tags: perl5 WebDAV Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+29 replies
bianca

2014-09-22 16:15

User since
2009-09-13
7016 Artikel
BenutzerIn

Hat jemand ein Perlscript womit ich testen kann, ob ein Webserver die WebDAV Funktionen unterstützt?
10 print "Hallo"
20 goto 10
- GwenDragon
  
  2014-09-22 16:39
  User since
  2005-01-17
  14746 Artikel
  Admin1
  Kommt darauf an, für welches Verzeichnis WebDAV aktiviert ist.
  
  Du musst halt mit HTTP einen Request senden, mit der Methode OPTIONS.
  Die Response enthält dann, ob es WebDAV aktiv hat.
  
  Ein lwp-request -USsed -m OPTIONS http://testserver/dav/ liefert mir auf meinem Windows:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  OPTIONS http://testserver/dav/ User-Agent: lwp-request/6.03 libwww-perl/6.07 200 OK Cache-Control: max-age=604800 Connection: close Date: Mon, 22 Sep 2014 14:33:11 GMT Server: Apache/2.2.25 (Win32) DAV/2 mod_ssl/2.2.25 OpenSSL/0.9.8y PHP/5.4.32 mod_apreq2-20090110/2.8.0 mod_perl/2.0.8 Perl/v5.14.4 Allow: OPTIONS,GET,HEAD,POST,DELETE,TRACE,PROPFIND,PROPPATCH,COPY,MOVE,LOCK,UNLOCK Content-Length: 0 Content-Type: httpd/unix-directory Expires: Mon, 29 Sep 2014 14:33:11 GMT Client-Date: Mon, 22 Sep 2014 14:33:11 GMT Client-Peer: 192.168.138.76:80 Client-Response-Num: 1 DAV: 1,2 MS-Author-Via: DAV
  
  DAV-Befehle sind nämlich: PROPFIND,PROPPATCH,COPY,MOVE,LOCK,UNLOCK
  
  Sicher kannst du auch an DAV/2 im Server- und am DAV-Response-Header erkennen, ob der Server WebDav kann.
  
  Mit LWP kennst du dich doch mittlerweile aus, oder?
  
  Editiert von GwenDragon: Hinweis auf DAV-Kommandos
  Last edited: 2014-09-22 17:22:40 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +27 replies
- GwenDragon
  
  2014-09-22 17:08
  User since
  2005-01-17
  14746 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  
  #!/usr/bin/perl use strict; use warnings; use 5.010; use LWP::UserAgent; use HTTP::Request; sub has_dav { my $uri = shift; my %options = @_; my $ua = LWP::UserAgent->new; my $request = HTTP::Request->new( OPTIONS => $uri ); my $response = $ua->request($request); say STDERR $request->as_string if $options{DEBUG}; say STDERR $response->as_string if $options{DEBUG}; return $response->as_string =~ /DAV/i; } $| = 1; say q(Hat DAV! ) if has_dav('http://testserver/dav/'); # und mit DEBUG say q(--------------------------------- DEBUGMODE Hat DAV! --------------------------------- ) if has_dav( 'http://testserver/dav/', DEBUG => 1 );
  
  Hat DAV! OPTIONS http://testserver/dav/ User-Agent: libwww-perl/6.07 HTTP/1.1 200 OK Cache-Control: max-age=604800 Connection: close Date: Mon, 22 Sep 2014 15:19:32 GMT Server: Apache/2.2.25 (Win32) DAV/2 mod_ssl/2.2.25 OpenSSL/0.9.8y PHP/5.4.32 mod_apreq2-20090110/2.8.0 mod_perl/2.0.8 Perl/v5.14.4 Allow: OPTIONS,GET,HEAD,POST,DELETE,TRACE,PROPFIND,PROPPATCH,COPY,MOVE,LOCK,UNLOCK Content-Length: 0 Content-Type: httpd/unix-directory Expires: Mon, 29 Sep 2014 15:19:32 GMT Client-Date: Mon, 22 Sep 2014 15:19:32 GMT Client-Peer: 192.168.138.76:80 Client-Response-Num: 1 DAV: 1,2 MS-Author-Via: DAV --------------------------------- DEBUGMODE Hat DAV! ---------------------------------
  
  Editiert von GwenDragon: richtigen Code + Ausgabe
  Last edited: 2014-09-22 17:20:10 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +11 replies
  - bianca
    
    2014-09-22 17:46
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Klasse! Vielen Dank, es klappt. Zwar nur Allow: GET,HEAD,POST,OPTIONS aber immerhin.
    Jetzt käme die nächste Frage, wo kann ich mich einlesen (wenn es geht in Deutsch), wie ich mit einem serverseitigen Perlscript solche Request beantworte? Geht das wie bei CGI? Alles einlesen und dann Header+Content auf STDOUT printen?
    10 print "Hallo"
    20 goto 10
    - +10 replies
    - GwenDragon
      
      2014-09-23 08:29
      
      User since
      2005-01-17
      14746 Artikel
      Admin1
      
      2014-09-22T15:46:46 bianca
      Zwar nur Allow: GET,HEAD,POST,OPTIONS aber immerhin.
      Das sin aber auch die normalen Methoden bei HTTP, mit WebDAV haben die vier nichts zu tun.
      
      2014-09-22T15:46:46 bianca
      (...) wo kann ich mich einlesen (wenn es geht in Deutsch), wie ich mit einem serverseitigen Perlscript solche Request beantworte? Geht das wie bei CGI? Alles einlesen und dann Header+Content auf STDOUT printen?
      WebDav ist HTTP nur um ein paar Kommandos erweitert.
      Wozu musst du solche Request beantworten?
      Last edited: 2014-09-23 08:32:14 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +9 replies
      - bianca
        
        2014-09-23 10:21
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2014-09-23T06:29:34 GwenDragon
        Wozu musst du solche Request beantworten?
        
        Ich habe einen eigenen Kalender und Adressbuch als Server Perlscript gebaut und möchte eine Synchro durchführen z.B. mit Outlook und einem Android Kalender. Dachte das könnte man über diese standardisierten Schnittstellen ganz gut machen. Ausserdem gibt es auf dem Server Dokumente, die ich gern mit jemand anderem zusammen bearbeiten können möchte.
        Oder ist die Idee Murks?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        rosti
        
        2014-09-23 10:39
        
        User since
        2011-03-19
        3471 Artikel
        BenutzerIn
        
        Quote
        Oder ist die Idee Murks?
        
        Na, die Idee ist schon gut. Allerdings kannst Du mit GET, POST, PUT, DELETE auch schon ne ganze Menge machen. Kommt darauf an, was der Client unterstützt.
        
        bianca
        
        2014-09-23 10:52
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ich würde gern folgende Funktionen bauen:
        - Kalender: raus- und reinsynchronisieren, das heisst, Termine die im Client fehlen ergänzen und Termine die im Serverscript fehlen dort ergänzen (vermutlich im iCal Format?)
        - Adressen: genau wie bei Kalender (vermutlich im vCard Format?)
        - Dokumente (erstmal nur Word/Writer): gemeinsame Bearbeitung ermöglichen, das heisst, sie liegen immer auf dem Server und werden nur zur Bearbeitung temporär ausgeliefert und zentral versioniert und historisiert, hier ist mir noch unklar, wie man die gemeinsame Bearbeitung ermöglicht, wie das professionelle Cloud Systeme können?
        
        Letztlich möchte ich (animiert durch ownCloud) im Server Perlscript also quasi die Funktionen nachbauen, die ein herkömmliches Cloud System bietet. Nachbauen deshalb, weil es bereits eine Weboberfläche auf dem Server gibt, über die die Daten gepflegt werden. Es soll halt jetzt nur noch eine Synchronisation hinzu kommen.
        Last edited: 2014-09-23 10:53:13 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        +6 replies
        
        GwenDragon
        
        2014-09-23 11:18
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Die Idee ist in Ordnung. Nimm WebDAV.
        
        Mit HTTP::DAV hast du es einfach in Perl verwenden.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        bianca
        
        2014-09-23 12:23
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Aber das sieht aus wie ein Client. Ist das wirklich auf dem Server verwendbar? Wie beantworte ich denn damit eine Sync Anforderung für den Kalender?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        GwenDragon
        
        2014-09-23 12:34
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Du willst einen WebDAV-Server betreiben, der auch CalDAV kann?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        bianca
        
        2014-09-23 18:42
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ich möchte die Kommunikation dafür nachbauen, ja.
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2014-09-23 19:16
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Das alles emulieren, ich weiß nicht. Es ist sehr kompliziert WebDAV und CalDAV nachzubauen.
        
        Schau dir mal das an
        zu Webdav
        http://www.heise.de/netze/artikel/WebDAV-mit-Apach...
        http://www.webdav.org/mod_dav/
        http://webdav.org/projects/
        RFC https://de.wikipedia.org/wiki/WebDAV#Weblinks
        
        zu CalDav
        http://andrew.triumf.ca/dingo/
        Last edited: 2014-09-23 19:21:01 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2014-09-24 07:25
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Danke dir, hab ich was zu lesen. Wird etwas dauern, bis ich das alles durch habe.
        10 print "Hallo"
        20 goto 10
  - +15 replies
  - bianca
    
    2015-01-01 16:01
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Hierzu eine Frage: Wie sähe die Syntax aus, wenn ich ein Login mit User und Passwort und danach ein PUT einer Datei machen möchte? Also aus reiner Client-Sicht ohne spezielles Modul sondern einfach nur mit LWP::UserAgent. Hab jetzt bei der Telekom einen Account eröffnet, 25 G kostenfrei und würde jetzt gern mal testen, wie man in Perl Client-Seitig damit umgeht.
    10 print "Hallo"
    20 goto 10
    - +14 replies
    - GwenDragon
      
      2015-01-02 10:39
      
      User since
      2005-01-17
      14746 Artikel
      Admin1
      
      Beispiel ~~für lokalen Server Apache 2.2 + WebDAV)~~, den Rest musst du anpassen.
      Bitte https://metacpan.org/pod/distribution/libwww-perl/... wegen der Ermittlung des Realm lesen
      Und um zu testen, ob eine Datei schon existiert musst du halt mit LWP ein get() nehmen.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
      
      use strict; use warnings; use LWP::UserAgent; ### hole Daten binär my $filename = 'test.txt'; my $content; { #slurp mode $/ = undef; open (my $fh, '<', $filename) or die $!; binmode $fh; $content = <$fh>; close $fh; } ### Erzeuge Client my $ua = LWP::UserAgent->new; $ua->agent("MyApp/0.1 "); my $url = 'https://webdav.mediencenter.t-online.de/' . "$filename"; # Authentifizierung, https://metacpan.org/pod/distribution/libwww-perl/lwptut.pod#HTTP-Authentication $ua->credentials( 'webdav.mediencenter.t-online.de:443', # Domain:Port 'webdav-ng', # Authentication realm 'xxx-yyyyyyyyyyyy@t-online.de' => 'test123' # Loginname, Passwort ); # PUT-Request absenden my $res = $ua->put($url, content => $content ); if ( $res->is_success ) { #print $res->content; } else { print $res->status_line, "\n"; }
      
      Ich kann es nicht testen, weil ich bei T-Online das Mediacenter nicht aktiviert habe.
      Last edited: 2015-01-02 13:18:32 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +13 replies
      - bianca
        
        2015-01-03 08:33
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Danke dir, Login klappt! Nun wollte ich mal das directory abrufen und stehe schon vor dem ersten Problem :)
        
        LWP::UserAgent kennt das Kommando propfind nicht. Also versucht, HTTP::DAV zu installieren, leider erfolglos auf Win 7 64 Bit mit Strawberry 5.16.3:
        
        Quote
        CPAN.pm: Building C/CO/COSIMO/HTTP-DAV-0.47.tar.gz
        
        Checking if your kit is complete...
        Looks good
        Writing Makefile for HTTP::DAV
        Writing MYMETA.yml and MYMETA.json
        cp lib/HTTP/DAV/Response.pm blib\lib\HTTP\DAV\Response.pm
        cp lib/HTTP/DAV/ResourceList.pm blib\lib\HTTP\DAV\ResourceList.pm
        cp lib/HTTP/DAV.pm blib\lib\HTTP\DAV.pm
        cp lib/HTTP/DAV/Comms.pm blib\lib\HTTP\DAV\Comms.pm
        cp lib/HTTP/DAV/Resource.pm blib\lib\HTTP\DAV\Resource.pm
        cp lib/HTTP/DAV/Utils.pm blib\lib\HTTP\DAV\Utils.pm
        cp lib/HTTP/DAV/Changes.pod blib\lib\HTTP\DAV\Changes.pod
        cp lib/HTTP/DAV/Lock.pm blib\lib\HTTP\DAV\Lock.pm
        C:\strawberry\perl\bin\perl.exe -MExtUtils::Command -e cp -- bin/dave blib\script\dave
        pl2bat.bat blib\script\dave
        COSIMO/HTTP-DAV-0.47.tar.gz
        C:\strawberry\c\bin\dmake.exe -- OK
        Running make test
        C:\strawberry\perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib\lib', 'blib\arch')" t/*.t
        t/1_loadme.t ............ Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/1_loadme.t ............ ok
        t/1_utils.t ............. ok
        t/2_options.t ........... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/2_options.t ........... ok
        t/3_put_get_delete.t .... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/3_put_get_delete.t .... ok
        t/4_multistatus.t ....... ok
        t/5_propfind.t .......... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/5_propfind.t .......... ok
        t/5_proppatch.t ......... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/5_proppatch.t ......... ok
        t/6_dav_copy_move.t ..... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/6_dav_copy_move.t ..... ok
        t/6_dav_get_callback.t .. ok
        t/6_dav_globs.t ......... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/6_dav_globs.t ......... ok
        t/6_dav_lock.t .......... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/6_dav_lock.t .......... ok
        t/6_dav_lock2.t ......... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/6_dav_lock2.t ......... ok
        t/6_dav_open_put_get.t .. ok
        t/6_dav_options.t ....... Use of uninitialized value $ENV{"PERLDAV_TEST"} in lc at t/TestDetails.pm line 42.
        t/6_dav_options.t ....... ok
        t/9_RT_19616.t .......... ok
        t/9_RT_38677.t .......... ok
        t/9_RT_42877.t .......... ok
        t/9_RT_47500.t .......... ok
        t/9_RT_52665.t .......... ok
        t/9_RT_59674.t .......... ok
        t/9_RT_60457.t .......... ok
        t/9_RT_68936.t .......... ok
        t/9_RT_69439.t .......... 1/11
        # Failed test at t/9_RT_69439.t line 36.
        
        # Failed test at t/9_RT_69439.t line 37.
        
        # Failed test 'Removed temp files'
        # at t/9_RT_69439.t line 39.
        # got: '0'
        # expected: '2'
        cannot unlink file for .http-dav-test-tmpdir.2412\dave3HeCXwg2d5tp7.tmp: Permission denied at t/9_RT_69439.t line 41.
        cannot unlink file for .http-dav-test-tmpdir.2412\daveSWKD7ig4XV6Iy.tmp: Permission denied at t/9_RT_69439.t line 41.
        cannot remove directory for .http-dav-test-tmpdir.2412: Directory not empty at t/9_RT_69439.t line 41.
        
        # Failed test 'Cleaned up temp dir'
        # at t/9_RT_69439.t line 41.
        # Looks like you failed 4 tests of 11.
        t/9_RT_69439.t .......... Dubious, test returned 4 (wstat 1024, 0x400)
        Failed 4/11 subtests
        
        Test Summary Report
        -------------------
        t/9_RT_69439.t (Wstat: 1024 Tests: 11 Failed: 4)
        Failed tests: 8-11
        Non-zero exit status: 4
        Files=23, Tests=228, 9 wallclock secs ( 0.12 usr + 0.03 sys = 0.16 CPU)
        Result: FAIL
        Failed 1/23 test programs. 4/228 subtests failed.
        dmake.exe: Error code 132, while making 'test_dynamic'
        COSIMO/HTTP-DAV-0.47.tar.gz
        C:\strawberry\c\bin\dmake.exe test -- NOT OK
        //hint// to see the cpan-testers results for installing this module, try:
        reports COSIMO/HTTP-DAV-0.47.tar.gz
        Running make install
        make test had returned bad status, won't install without force
        Stopping: 'install' failed for 'HTTP::DAV'.
        Failed during this command:
        COSIMO/HTTP-DAV-0.47.tar.gz : make_test NO
        
        Ich weiß nicht, ob es Sinn macht, mit force zu installieren? Würdet ihr das force'n?
        Wie hieß noch gleich die Webseite, wo Module mit verschiedensten Perl Versionen getestet wurden?
        
        Danach in den Quellcode von HTTP::DAV::Resource geschaut, in der sub propfind auch fündig geworden aber das alles selbst nochmal nachzubauen? Ich weiß nicht. Würdet ihr das nachbauen?
        
        Also weiter nach anderen Module gesucht und als einzigen weiteren sinnvollen Treffer das hier bewertet: HTTP::Webdav. Aber das ist alt und ich weiß nicht, was das "Neon HTTP" im Text bedeutet. Weiß das von euch einer?
        Außerdem erschreckt mich die Zahl der Kommandos oben in der Doku. Was ist das alles?
        
        Gibt es noch andere Perlmodule, mit denen man einen vollwertigen (damit meine ich die Unterstützung aller WebDAV spezifischen Kommandos) DAV Client bauen kann ohne den ganzen Traffic im Detail mit dem ganzen XML Zeug nachbauen zu müssen?
        
        Mich wundert auch, dass mir hier bisher nur GwenDragon so richtig geantwortet hat. Arbeitet hier keiner sonst mit WebDAV? In Zeiten wo Cloud an jeder Häuserecke steht? GwenDragon, das ist keine Undankbarkeit, ich wundere mich nur über die geringe Resonanz. Hoffentlich liegt es nicht daran, dass ich das Thema gestartet habe. Wenn ich im Edeka durch die Zeitschriften blättere finde ich so gut wie nichts außer Cloud. Ist das bei Perl noch nicht angekommen oder wie oder was? :)
        10 print "Hallo"
        20 goto 10
        
        +8 replies
        
        GwenDragon
        
        2015-01-03 11:15
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Ja, LWP kennt die HTTP-Erweiterungen des WebDAV nicht!
        
        Klar ist der Upload in Clounds in aller Munde, WebDAV wird ja auch woanders verwendet.
        
        versuche bitte mal ältere Versionen (könnten laut Testermatrix installieren):
        
        Code: (dl )
        
        1 2 3 4
        
        cpan https://cpan.metacpan.org/authors/id/O/OP/OPERA/HTTP-DAV-0.41.tar.gz cpan https://cpan.metacpan.org/authors/id/O/OP/OPERA/HTTP-DAV-0.42.tar.gz cpan https://cpan.metacpan.org/authors/id/O/OP/OPERA/HTTP-DAV-0.43.tar.gz cpan https://cpan.metacpan.org/authors/id/O/OP/OPERA/HTTP-DAV-0.44.tar.gz
        
        Immer dasselbe Problem mit Windows.
        Vielleicht kann ich rausfinden wo das Testen bei der 0.47 hakt und einen Patch dem Modulautor senden.
        
        Ansonsten probier mal Net::Async::HTTP::DAV.
        
        Ich habe bislang keinen Windows-WebDAV-Client mit Perl, deswegen bis du das Test-Opfer. ;)
        Last edited: 2015-01-03 11:23:56 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        bianca
        
        2015-01-05 19:12
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2015-01-03T10:15:33 GwenDragon
        Ansonsten probier mal Net::Async::HTTP::DAV
        
        Wo gebe ich denn da die credentials an?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2015-01-05 20:10
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Ich habs nicht probiert.
        Wohl wie in https://metacpan.org/pod/distribution/Net-Async-HT...
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2015-01-06 07:48
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, habs gefunden, steht ganz oben winzig :)
        10 print "Hallo"
        20 goto 10
        
        bianca
        
        2015-01-05 19:22
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2015-01-03T10:15:33 GwenDragon
        Ansonsten probier mal Net::Async::HTTP::DAV
        
        Leider auch nicht:
        
        Quote
        Test Summary Report
        -------------------
        t\41routine.t (Wstat: 6400 Tests: 18 Failed: 0)
        Non-zero exit status: 25
        Parse errors: No plan found in TAP output
        Files=59, Tests=1153, 125 wallclock secs ( 0.41 usr + 0.05 sys = 0.45 CPU)
        Result: FAIL
        Failed 1/59 test programs. 0/1153 subtests failed.
        PEVANS/IO-Async-0.64.tar.gz
        C:\strawberry\perl\bin\perl.exe ./Build test -- NOT OK
        //hint// to see the cpan-testers results for installing this module, try:
        reports PEVANS/IO-Async-0.64.tar.gz
        Running Build install
        make test had returned bad status, won't install without force
        Stopping: 'install' failed for 'P/PE/PEVANS/IO-Async-0.64.tar.gz'.
        Failed during this command:
        PEVANS/IO-Async-0.64.tar.gz : make_test NO
        
        Wenn ich morgen dazu komme probiere ich mal ein altes HTTP::DAV
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        bianca
        
        2015-01-06 07:53
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2015-01-03T10:15:33 GwenDragon
        versuche bitte mal ältere Versionen (könnten laut Testermatrix installieren)
        
        Wie macht man das?
        
        Code: (dl )
        
        1 2 3 4 5
        
        cpan> install https://cpan.metacpan.org/authors/id/O/OP/OPERA/HTTP-DAV-0.44.tar.gz Database was generated on Mon, 05 Jan 2015 18:09:10 GMT Running make for https://cpan.metacpan.org/authors/id/O/OP/OPERA/HTTP-DAV-0.44.tar.gz Catching error: "mkdir C:\\strawberry\\cpan\\sources\\authors\\id\\https:\\: Invalid argument; Die Syntax f³r den Dateinamen, Verzeichnisnamen oder die Datentrõgerbezeichnung ist falsch at C:\\strawberry\\perl\\lib/CPAN/FTP.pm line 519.\cJ" at C:/strawberry/perl/lib/CPAN.pm line 392, <IN> line 3. CPAN::shell() called at -e line 1
        
        Code: (dl )
        
        1 2 3
        
        cpan> get https://cpan.metacpan.org/authors/id/O/OP/OPERA/HTTP-DAV-0.44.tar.gz Catching error: "mkdir C:\\strawberry\\cpan\\sources\\authors\\id\\https:\\: Invalid argument; Die Syntax f³r den Dateinamen, Verzeichnisnamen oder die Datentrõgerbezeichnung ist falsch at C:\\strawberry\\perl\\lib/CPAN/FTP.pm line 519.\cJ" at C:/strawberry/perl/lib/CPAN.pm line 392, <IN> line 5. CPAN::shell() called at -e line 1
        
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2015-01-06 18:40
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        cpan O/OP/OPERA/HTTP-DAV-0.41.tar.gz
        cpan O/OP/OPERA/HTTP-DAV-0.42.tar.gz
        cpan O/OP/OPERA/HTTP-DAV-0.43.tar.gz
        cpan O/OP/OPERA/HTTP-DAV-0.44.tar.gz
        
        oder
        
        cpan> install O/OP/OPERA/HTTP-DAV-0.41.tar.gz
        cpan> install O/OP/OPERA/HTTP-DAV-0.42.tar.gz
        cpan> install O/OP/OPERA/HTTP-DAV-0.43.tar.gz
        cpan> install O/OP/OPERA/HTTP-DAV-0.44.tar.gz
        
        //EDIT:
        Für neuere wie .45 oder .46 finde ich kein mit cpan ladbare Quelle.
        
        //EDIT2:
        Du kannst mit cpan mit:
        o conf urllist push http://backpan.perl.org/
        alte Module aus CPAN hinzufügen.
        
        Aber nur die HTTP::DAV 0.44 installiert mit der 5.16!
        Last edited: 2015-01-06 19:04:25 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2015-01-07 18:34
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2015-01-03T10:15:33 GwenDragon
        
        Code: (dl )
        
        cpan https://cpan.metacpan.org/authors/id/O/OP/OPERA/HTTP-DAV-0.44.tar.gz
        
        KLAAAAPT!! Danke dir, bist ein Schatz!
        Bin eingeloggt und bekomme ein Directory mittels propfind(). Jetzt schau ich mal, wie es weiter geht.
        Nochmal Danke!!
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        pq
        
        2015-01-03 13:09
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ist auf jeder cpan-seite verlinkt und verbirgt sich hinter dem matrix-icon unter dem punkt "Testers": http://matrix.cpantesters.org/?dist=HTTP-DAV+0.47
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        bianca
        
        2015-01-06 07:59
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2015-01-03T12:09:22 pq
        ist auf jeder cpan-seite verlinkt und verbirgt sich hinter dem matrix-icon unter dem punkt "Testers": http://matrix.cpantesters.org/?dist=HTTP-DAV+0.47
        
        Meinst du das, was ich im Attachment markiert habe?
        Das ist bei mir super langsam (jeder Klick so 5 bis 10 Sekunden in allen Browsern) und ich meinte die andere Darstellung, wo man zu einem Modul in einer Riesentabelle alle Versionen von Perl, dem Modul und dem Betriebssystem gesehen hatte. Gibt es das noch?
        Anhänge
        
        image/png
        841 x 724
        
        tester_link.png
        
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        pq
        
        2015-01-06 11:31
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        nein, ich meine das, was ich auch verlinkt habe. der punkt heisst einfach nur "Testers" und nicht "CPAN Testers List" und befindet sich in der linken navi. am ende ist ein matrix-icon.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        bianca
        
        2015-01-06 18:50
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Jaaaaa, das meinte ich! Danke dir!! Ich versuche, es mir zu merken.
        10 print "Hallo"
        20 goto 10

View all threads created 2014-09-22 16:15.