speziellen Header parameter "X-Requested-With: XYZ". (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]17426[/thread]

speziellen Header parameter "X-Requested-With: XYZ".

Tags: LWP Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+7 replies
perl-snaks

2012-05-16 12:40
User since
2012-04-19
54 Artikel
BenutzerIn
Hallo Zusammen,
ich will einen URL aufrufen. Dieser URL erfordert einen speziellen Header parameter "X-Requested-With: XYZ".
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

use LWP::UserAgent; my $url = 'https://server.de/upload/topic123.php'; my $ua = LWP::UserAgent->new; $ua->default_header('X-Requested-With' => 'XMLHttpRequest'); $ua->timeout(180); $ua->requests_redirectable(undef); # Redirects ausschalten! $ua->credentials(server.de:Port', 'realm', 'abcdef', '123456'); my $response = $ua->post($url); if ($response->is_success) { print $response->decoded_content; } else { die $response->status_line; }
Wenn ich diesen Skript ausführe bekomme ich die Fehlermeldung:
Code: (dl )

401 Unauthorized at C://Apache/cgi-bin/Bearbeiten.pl line 58
Code: (dl )

1 2

line 58: die $response->status_line;
kann ich mit LWP::Useragent einen URL (erfordert Header) aufrufen?
Danke im Voraus
Last edited: 2012-05-31 13:28:22 +0200 (CEST)
- pq
  
  2012-05-16 13:00
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Netzwerkprogrammierung und Netzwerke mit Perl
  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
- +5 replies
- rosti
  
  2012-05-16 19:44
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  Das Mudul, was du dazu einbinden musst: HTTP::Headers;
  
  Dem Request wird dann das damit erstellte Header-Object übergeben
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  $h = HTTP::Headers->new(); # mit $h eigene Header hinzufügen, siehe POD my $req = HTTP::Request->new('POST', $url, $h, $content); ^ Header-Object
  
  Den UA wie gehabt mit LWP::UserAgent erstellen und dann den Request feuern. Btw., Du brauchst die SSL Erweiterung, http://search.cpan.org/~nanis/Crypt-SSLeay-0.58/SS... weil https.
  - +4 replies
  - perl-snaks
    
    2012-05-18 17:18
    User since
    2012-04-19
    54 Artikel
    BenutzerIn
    
    Hallo rosti vielen Dank für die Antwort. es hat einwandsfrei funktioniert.
    Jetzt habe ein Problem und zwar, dass ich ein URL zusammenbauen möchte und aufrufen. Also die parameter werden von einem Formular mit der Post-Methode übertragen und sollen in uRL hinzugefügt werden und aufgerufen.
    
    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
    
    use strict; use LWP::UserAgent; use HTTP::Request; use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = new CGI; my $aktion = CGI::param('?name'); my $var = CGI::param('referenz'); #my $url1 = 'https://server.de/topic/?name=stefan&id=r_ft=anything'; my $url1 = 'https://server.de/topic/'; my $ua = LWP::UserAgent->new; $ua->add_handler("request_send", sub { shift->dump; return }); $ua->add_handler("response_done", sub { shift->dump; return }); my $h = HTTP::Headers->new(Content_Type => 'text/html; version=3.2', 'X-Requested-With' => 'XMLHttpRequest'); $h->user_agent('Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 6.0)'); my $req = HTTP::Request->new( 'POST', $url1,['referenz => $var','r_format =>$res_format'],$h); my $response = $ua->request($req); if ($response->is_success){ #print $response->decoded_content; } else { print "Failed: \n"; print $response->status_line, "\n"; }
    
    Wenn ich dieser Skript aufrufe, bekomme ich die Fehlermeldung-:
    
    Code: (dl )
    
    Client-Warning: Internal response Not a SCALAR reference at C:/Perl/lib/LWP/Protocol/http.pm line 193.\n Failed: 500 Not a SCALAR reference
    
    Kennt jemand den Fehler?
    Ich will nur der Referen und r_format, die vom user eingegeben werden in der URL übertragen?
    Vielen Dank im Voraus.
    Last edited: 2012-05-31 13:29:17 +0200 (CEST)
    - +2 replies
    - rosti
      
      2012-05-18 18:00
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      hi,
      
      zum Senden von Parametern gibt es mehrere Möglichkeiten.
      
      Code: (dl )
      
      1 2
      
      Egal ob POST oder GET: foo=1;bar=2;baz=3
      
      ist eine der Möglichkeiten, aber nicht sehr schön ;)
      
      Besser lesbar ist dieses Konstrukt:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      # Request und die erforderlichen Parameter my $req = POST $url, Content => [ nick => 'Otto', login => 1, ];
      
      Gucks Dir mal alles zusammen an:
      http://rolfrost.de/map/perlbase/mechanize_login.ht...
      
      da ist zwar auch noch ein Cookie im Spiel, aber den kannst Du Dir ja wegdenken. Weiter oben stehen alle benötigten Module, die spielen wunderbar zusammen, da haben die Entwickler ganze Arbeit geleistet, nutze es einfach so und vergiss Deine Fehlermeldung ;)
      
      --Rosti
      - perl-snaks
        
        2012-05-21 17:58
        
        User since
        2012-04-19
        54 Artikel
        BenutzerIn
        
        Hi rosti,
        vielen Dank für die Antwort.
        Ich habe die zweite Variate ausprobiert. Es hat leider aber nicht funktioniert.
        kommt die Fehlermeldung: Missing required parameter, Failed: 400 Bad Request.
        Irgendwie werden die Parameter nicht angehängt mit der URL.
    - Gast wer
      
      2012-05-18 18:17
      
      Code (perl): (dl )
      
      my $aktion = CGI::param('?name');
      
      das sieht nicht richtig aus. Du meinst wohl:
      
      Code (perl): (dl )
      
      my $aktion = CGI::param('name');
      
      Der Inhalt ist ein String:
      
      Code (perl): (dl )
      
      1 2
      
      my $content="name=$aktion&referenz=$var&r_format=$res_format"; my $req = HTTP::Request->new( 'POST', $url1, $h, $content);
      
      Die Fehler, die du machst deuten darauf hin das du das Manual zu HTTP::Request nicht gelesen hast und nicht weißt wie das HTT-Protokoll funktioniert. Ich rate dir das Nachzuholen.
      Last edited: 2012-05-18 18:19:03 +0200 (CEST)

View all threads created 2012-05-16 12:40.