The UNIX and Linux Forums  
Hallo en welkom van de Verenigde Staten aan de UNIX en Linux Forum! Bedankt voor uw bezoek en Deelnemen aan onze wereldwijde gemeenschap.

Go Back   De Unix-en Linux Forum > Top Forums > Programmeren en Shell Scripting
.
google unix.com



Programmeren en Shell Scripting Post vragen over KSH, CSH, SH, Bash, Perl, PHP, sed, awk en andere shell scripts en shell scripting talen hier.

Meer UNIX en Linux Forum Onderwerpen Misschien vindt u Helpful
Draad Thread Starter Forum Antwoorden Last Post
Proxy-server op Digital UNIX V4.0E? alvoryx UNIX voor Dummies Questions & Answers 0 10-25-2006 02:29 PM
hoe je IP voor proxy-server ppass Linux 3 09-26-2005 08:46
(perl) Microsoft SQL Server-client voor Solaris. cant vinden ... Optimus_P Programmeren en Shell Scripting 3 10-14-2002 11:13
Unix-server achter MS proxyserver RSlegers UNIX voor Dummies Questions & Answers 2 09-16-2002 10:08 PM
routering via een proxy-server Garry IP Networking 2 01-30-2002 05:18

 
English Japanese Spanish French German Portuguese Italian Dutch Swedish Russian Norwegian Hungarian Hebrew Danish Bulgarian Greek Powered by Powered by Google
 
LinkBack Thread Tools Zoeken in deze Thread Rate Thread Display Modes
  #1 (permalink)  
Old 09-29-2008
Dabheeruz Dabheeruz is offline
Geregistreerde gebruiker
  
 

Join Date: Sep 2008
Posts: 19
Proxy server / client in Perl

Ik ben al spelen met een Proxy-client / server app die zal luisteren op het CLIENT systeem op laten we zeggen poort 7070. Gebruiker browser proxy-instellingen is geconfigureerd voor "localhost" port "7070".
Wanneer deze volmacht app krijgt een verzoek om een URL moet FETCH de URL en de weergave van de browser.

Ik heb al maakte de luisteraar gedeelte van het script (het gemakkelijk was), maar hoe kan ik dan bellen en je de URL die de gebruiker op verzoek van de browser weer te geven en om de browser te handelen als een proxy.

Hier is de code tot nu toe. Ik ben helemaal vastgelopen .. alle hulp zeer gewaardeerd

Code:
#!/usr/bin/perl
use IO::Socket;

my $sock= new IO::Socket::INET (
                                LocalHost=> 'localhost',
                                LocalPort=> '7070',
                                Proto=> 'tcp',
                                Listen=> 1,
                                Reuse=> 1,
                                Type=> SOCK_STREAM,
                                );
die "Could not create socket:  $!\n" unless $sock;

my $new_sock = $sock->accept();
        while (<$new_sock>) {
                print $_;
        }
        close ($sock);
 

Bladwijzers

Thread Tools Zoeken in deze Thread
Zoeken in deze Thread:

Uitgebreid zoeken
Display Modes Beoordeel deze draad
Beoordeel deze draad:

Posting Regels
Jij mag niet Post Nieuwe threads
Jij mag niet na antwoorden
Jij mag niet post attachments
Jij mag niet bewerk uw berichten

BB code is Aan
Smilies zijn Aan
[IMG] code Aan
HTML-code is Uit
Trackbacks zijn Aan
Pingbacks zijn Aan
Refbacks zijn Aan




Alle tijden zijn GMT -4. Het is nu 05:38.


Powered by: vBulletin, Copyright © 2000 - 2006, Jelsoft Enterprises Limited. Vertalingen Powered by .
vBCredits v1.4 Copyright © 2007 - 2008, PixelFX Studios
De Unix-en Linux Forums Copyright © 1993-2009. Alle rechten Reserved.Ad Beheer door RedTyger

Content Relevante URL's door vBSEO 3.2.0