The UNIX and Linux Forums  


Go Back   UNIX og Linux Forums > Top Forums > Shell Programmering og Scripting
.
google unix.com



Shell Programmering og Scripting Post spørgsmål om ksh, CSH, SH, Bash, Perl, PHP, SED, AWK og ANDRE shell scripts og Shell scriptsprog her.

Mere UNIX og Linux Forum Emner du måske kan finde Helpful
Tråd Thread Starter Forum Svar Last Post
Proxy-server på Digital UNIX V4.0E? alvoryx UNIX for dummyer Spørgsmål & svar 0 10-25-2006 03:29 PM
hvordan du kan få IP til proxyserver ppass Linux 3 09-26-2005 09:46 AM
(perl) Microsoft SQL Server-klienten til Solaris. cant find det ... Optimus_P Shell Programmering og Scripting 3 10-14-2002 12:13 PM
UNIX-server bag MS proxyserver RSlegers UNIX for dummyer Spørgsmål & svar 2 09-16-2002 11:08 PM
rejsen via en proxy-server Garry IP Networking 2 01-30-2002 05:18 AM

Closed Thread
English Japanese Spanish French German Portuguese Italian Dutch Swedish Russian Norwegian Hungarian Hebrew Danish Bulgarian Greek Powered by Powered by Google
 
LinkBack Thread Tools Søg denne tråd Rate Thread Display Modes
  #1 (permalink)  
Old 09-29-2008
Dabheeruz Dabheeruz is offline
Registreret Bruger
  
 

Join Date: Sep 2008
Stillinger: 19
Proxy server / klient i Perl

Jeg har leget med en Proxy klient / server-app, der vil lytte på klientsystemet, om lad os sige havn 7.070. Brugerens browser proxy-indstillingen er konfigureret til "localhost" port "7.070".
Når denne proxy app får en anmodning om en webadresse det skulle hente webadressen og vise den på browseren.

Jeg har allerede lavet lytteren del af scriptet (det var nemt), men hvordan kan jeg så ringe og få den webadresse, som brugeren vil anmode om deres browser og vise det til browseren opfører sig som en proxy.

Her er koden hidtil. Jeg er helt i stå .. enhver hjælp er meget værdsat


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);

  #2 (permalink)  
Old 10-09-2008
otheus's Avatar
otheus otheus is offline Forum Staff  
Redaktør ala Mode
  
 

Join Date: Feb 2007
Sted: Innsbruck, Østrig
Posts: 1.886
Apache har en indbygget Tilnærmelse modul. Er der en særlig grund, som ikke vil arbejde for dig?
Closed Thread

Bogmærker

Thread Tools Søg denne tråd
Søg denne tråd:

Avanceret søgning
Display Modes Bedøm denne tråd
Bedøm denne tråd:

Udstationering Regler
Du kan ikke post nye tråde
Du kan ikke post svar
Du kan ikke post vedhæftede filer
Du kan ikke redigere dine indlæg

BB-kode er
Smilies er
[IMG] koden er
HTML-koden er Slukket
Trackbacks er
Pingbacks er
Refbacks er




Alle tidspunkter er GMT -4. Den tid er nu 08:48 AM.


Powered by: vBulletin, Copyright © 2000 - 2006, Jelsoft Enterprises Limited. Oversættelser Powered by .
vBCredits v1.4 Copyright © 2007 - 2008, PixelFX Studios
UNIX og Linux Forums Content Copyright © 1993-2009. Alle rettigheder Reserved.Ad Management ved RedTyger

Content Relevant webadresser ved vBSEO 3.2.0