Hi All, First thanks for reading this.
I'm trying to add web dav support into my perl backup program (simplebackup http://migas.kicks-ass.org/index.php?pag=en.myapps&subpag=simplebackup). I'm trying to make it work under Windows XP (32 Bits) using activestate perl 5.8.8 I have made backups/uploads to work but i can't make restore/downloads to work. Running the HTTP::DAV in debug level 1 i get this strange error get:http://localhost:8080/webdav/testar_okok.25%20full%20monday%2018-09-2006%20crc1752165928.rar -> C:\DOCUME~1\miandsio\DEFINI~1\Temp\_tmp_testar_okok.25 full monday 18-09-2006 crc1752165928.rar no element found at line 1, column 0, byte -1 at c:/Perl/lib/XML/Parser.pm line 187 Here is my sample code... .... (code up including use strict;) my $special_error_flag = 0; my $network_connection_p= new HTTP::DAV; # create the web dav object $network_connection_p->DebugLevel(2); $network_connection_p->credentials( -user=>"someuser",-pass =>"somepass", -url =>"http://localhost:8080/webdav"; ); $network_connection_p->open( -url=>"http://localhost:8080/webdav";) or $special_error_flag = 1; # attempt to open a connection into the web dav server if ( $special_error_flag == 1 ) { # check if we manage to connect print "failed connecting into web dav server } my $from_file = "http://localhost:8080/webdav/some_file.rar";; my $to_file_tmp = "c:\\_tmp_some_file.rar"; if ( !$network_connection->get( -url=>"$from_file", -to=>"$to_file_tmp" ) ) { print "download failed\n"; } else { print "download worked\n"; } Probably Parser.pm is being baddly called but... what have i got to do with it ;) Any help would be great !!!! Stay Happy ! Miguel Angelo - Migas http://migas.kicks-ass.org ICQ: 40421832 Msn: [EMAIL PROTECTED] Google Talk: [EMAIL PROTECTED] _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
