Proxy Perl verändern der Browseranzeige (HTML, CSS und Javascript)

[thread]14570[/thread]

Proxy Perl verändern der Browseranzeige

Leser: 17

Articles: hide open all | hide show old branches

+4 replies
IceRage

2010-01-30 14:44
User since
2008-09-07
93 Artikel
BenutzerIn
Hallo allerseits

Auf der Suche nach einer Möglichkeit html-content an meinen Browser zu verändern, bin ich auf einen Perl-Proxycode gestoßen.

[/code]
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl -w my $PORT = 8017; use HTTP::Daemon; use LWP::UserAgent; my $proxy = HTTP::Daemon->new( LocalPort => $PORT ); die "@_" unless defined $proxy; print "Listening on port $PORT\n"; my $ua = LWP::UserAgent->new; $ua->agent("miniproxy/1.0"); while (my $conn = $proxy->accept) { while (my $request = $conn->get_request) { my $response = $ua->simple_request($request); print $response; $conn->send_response($response); } $conn->close; }
Das sieht soweit super einfach aus, aber ich dachte schon, dass es so einfach wohl nicht wird. Auf diese Weise wird mir zunächst mal, die komplette Page in der Konsole ausgegeben. Allerdings auch noch sehr viel mehr. Ich gehe mal davon aus, dass diese ganzen kryptischen Zeichen, etwas mit PHP Variablen, Sitzungsdaten oder so ähnlich zu tun haben.

Mir geht es eigentlich nur darum Folgendes zu tun:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl -w my $PORT = 8017; use HTTP::Daemon; use LWP::UserAgent; my $proxy = HTTP::Daemon->new( LocalPort => $PORT ); die "@_" unless defined $proxy; print "Listening on port $PORT\n"; my $ua = LWP::UserAgent->new; $ua->agent("miniproxy/1.0"); while (my $conn = $proxy->accept) { while (my $request = $conn->get_request) { my $response = $ua->simple_request($request); $response =~ s/name=\"name\"/name=\name\ value=\"sich verändernder String\"/; print $response; $conn->send_response($response); } $conn->close; }
Damit möchte ich in die Response an den Browser ein bereits ausgefülltes Formularfeld schicken ("sicher verändernder String"). Leider funktioniert das so nicht. Die Seite wird normal angezeigt. Wenn ich einfach als Test irgendeinen String an die response ranhänge ($response .= "teststring"), dann bekomme ich eine leere Seite angezeigt.

Vielen Dank im Voraus,

IceRage
- betterworld
  
  2010-01-30 14:58
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Ich glaube, dass $response hier ein Objekt ist und kein Text. Daher tut der Regex auch nichts, weil der Suchtext in der Textdarstellung des Objektes nicht vorkommt. Und durch anfuegen geht das Objekt kaputt.
  
  Ich wuerde Dir HTTP::Proxy empfehlen.
  Lieblingsmodule: IPC::System::Simple, Path::Class
- topeg
  
  2010-01-30 15:36
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  $response ist ein HTTP::Response Objeckt den inhalt der Seite bekommst du mit my $content=$response->content()
  Setzen kannst den Inhalt mittels $response->content($content)
  
  willst du den Seiteninhalt verändern musst du es so machen:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $content=$response->content(); $content=~ s/name=\"name\"/name=\name\ value=\"sich verändernder String\"/; $response->content($content);
  
  Beim "print" solltest du so was haben wie HTTP::Response=HASH(0x860e208)
- IceRage
  
  2010-01-30 16:39
  
  User since
  2008-09-07
  93 Artikel
  BenutzerIn
  
  Vielen Dank euch Beiden ;-). Ich werde das heute Abend noch ausprobieren. Wobei ich aber überzeugt bin, dass es klappen wird.

View all threads created 2010-01-30 14:44.