Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]222[/thread]

Dateiupload per HTTPS mit NetSSLeay



<< >> 8 Einträge, 1 Seite
Gast Gast
 2004-04-04 20:20
#1898 #1898
Hallo,

ich habe ein kleines Problem.
Ich will eine Datei per HTTPS an einen Server senden. Nur fehlt mir irgendwo der Wink, was an nachfolgendem Script falsch ist:


Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use LWP::UserAgent;
use HTTP::Cookies;
use Net::SSLeay;
use MIME::Base64;

my ($page, $result, %headers) =
     Net::SSLeay::post_https('$server', 443, '$url',
          Net::SSLeay::make_headers(
               Authorization => 'Basic ' . MIME::Base64::encode_base64("$user:$pasword",''),
               Cookie => "x-main=YvjPkwfntqDKun0QEmVRPcTTZDMe?Tn?",
               Content-Type => "text/xml"),
          content_file => ["test.txt"]);

print "Page: $page\n";
print "Result: $result\n";

Das Ergebnis sieht wie folgt aus:
Page: <FileError>NO_FILE_ATTACHED</FileError>
Result: HTTP/1.1 202 Accepted

Das Problem ist, das die Datei nicht mit gesendet wird. Sonst ist alles fehlerfrei.

Wo liegt mein Denkfehler?

MfG Axel...
esskar
 2004-04-04 20:37
#1899 #1899
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
schau die mal die LWP module an...
mit denen geht es einfacher!
Arties
 2004-04-04 20:47
#1900 #1900
User since
2004-04-04
3 Artikel
BenutzerIn
[default_avatar]
[quote=esskar,04.04.2004, 18:37]schau die mal die LWP module an...
mit denen geht es einfacher![/quote]
Das Problem bei LWP ist, das ich nirgends gefunden habe, wo ich dort die -Authorization- angeben kann für den SSL Header.
[E|B]
 2004-04-04 20:57
#1901 #1901
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
HiHo!

Code: (dl )
1
2
my $ua = LWP::UserAgent->new();
$ua->credentials( $netloc, $realm, $uname, $pass )


=> CPAN: LWP::UserAgent
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
Arties
 2004-04-04 22:15
#1902 #1902
User since
2004-04-04
3 Artikel
BenutzerIn
[default_avatar]
[E|B
,04.04.2004, 18:57]HiHo!

Code: (dl )
1
2
my $ua = LWP::UserAgent->new();
$ua->credentials( $netloc, $realm, $uname, $pass )


=> CPAN: LWP::UserAgent

Hi!

Das wird nix, da $user+$password zusammen Base64 codiert werden müssen. -> Kann es also nicht einzeln angeben, wie bei $ua->credentials benötigt.

Irgendwie muß mann doch bei Net::SSLeay::post_https eine Datei mit angeben können, welche er zum Server schicken soll.
Bzw. wie kann ich einen "String" als Anhang definieren? Dann würd ich vorher die Datei in eine Variable einlesen.
esskar
 2004-04-05 03:36
#1903 #1903
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
bist du sicher, dass UserAgent das mit dem usernamen und dem password in der funktion selbst nicht richtig machen wird?
esskar
 2004-04-05 03:37
#1904 #1904
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
bye the way

liegt die datei
Code: (dl )
content_file => ["test.txt"]);

auch wirklich im aktuellen pfad?
Arties
 2004-04-05 03:49
#1905 #1905
User since
2004-04-04
3 Artikel
BenutzerIn
[default_avatar]
Ich habe testweise die Größe der Datei ausgelesen. 76324 Byte, also der Pfad ist okay. (Liegt ja im gleichen Verzeichniss)
Das andere werd ich morgen mal testen...
Jetzt erstmal Gute N8! :o)
<< >> 8 Einträge, 1 Seite



View all threads created 2004-04-04 20:20.