🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #753

Re: cgi

#753
From: Jacek
Date: Sat, 06 Dec 1997 09:43
72 lines
2849 bytes
Witam,

Sorry za przyklad w shellu, ale ponizszy przyklad w perlu tez dziala
podobnie:

plik: nph-test-pl

#!/usr/bin/perl

#flush after each write
$| = 1;

print "HTTP/1.0 200 OK\n";
print "Content-type: text/plain\n";
print "Server: $SERVER_SOFTWARE\n";
print "\n";
print "CGI/1.0 test script report:\n\n";
print "SERVER_SOFTWARE = $SERVER_SOFTWARE\n";
print "SERVER_NAME = $SERVER_NAME\n";

sleep 10;

print "GATEWAY_INTERFACE = $GATEWAY_INTERFACE\n";
print "SERVER_PROTOCOL = $SERVER_PROTOCOL\n";
print "SERVER_PORT = $SERVER_PORT\n";
print "REQUEST_METHOD = $REQUEST_METHOD\n";
print "HTTP_ACCEPT = $HTTP_ACCEPT\n";
print "PATH_INFO = $PATH_INFO\n";
print "PATH_TRANSLATED = $PATH_TRANSLATED\n";
print "SCRIPT_NAME = $SCRIPT_NAME\n";
print "QUERY_STRING = $QUERY_STRING\n";


Dzieki i licze na dalsza pomoc

Jacek

Piotr Piatkowski schrieb in Nachricht
<66a9er$jqa$1@galaxy.uci.agh.edu.pl>...
>Jacek <jacek@infosys.de> wrote:
>: Witam,
>
>: Chcialbym napisac skrypt, ktory w miare tworzenia strony wysylal ja do
>: przegladarki. Uzylem prostego skryptu na poczatek: (linux, apache 1.1.1)
>
>: plik nph-test-cgi
>
>: #!/bin/sh
>: echo HTTP/1.0 200 OK
>: echo Content-type: text/plain
>: echo Server: $SERVER_SOFTWARE
>...
>: sleep 10
>...
>: echo GATEWAY_INTERFACE = $GATEWAY_INTERFACE
>
>: Liczylem, ze czesc zmiennych otrzymam natychmiast, reszte po 10 sek.
>: Niestety po 10 sek. otrzymalem calosc. Czy mozna inaczej?
>
>Problem polega chyba na tym, że Twój program buforuje wejście i nie
>wyświetla go po każdym echo, a dopiero na końcu działania programu. I
>szczerze mówiąc nie wiem jak to zmienić w shellu.
>
>Ale napisz to samo w perlu, wstawiając na początku skryptu
>$|=1;
>żeby wyłączyć buforowanie, i zobacz czy działa.
>
>Oops... Wyjaśnij mi przy okazji co Twoje pytanie miało wspólnego z
>perlem???
>
>--
>Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND
Technical Details
Message-ID: <66b6ia$3qm$1@roadrunner.micro-net.net>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!uw.edu.pl!news.icm.edu.pl!fu-berlin.de!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!news-peer.sprintlink.net!news-sea-19.sprintlink.net!news-in-west.sprintlink.net!news.sprintlink.net!Sprint!207.182.64.3!news.micro-net.net!not-for-mail
References: <669l15$qh2$1@roadrunner.micro-net.net> <66a9er$jqa$1@galaxy.uci.agh.edu.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!uw.edu.pl!news.icm.edu.pl!fu-berlin.de!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!news-peer.sprintlink.net!news-sea-19.sprintlink.net!news-in-west.sprintlink.net!news.sprintlink.net!Sprint!207.182.64.3!news.micro-net.net!not-for-mail
From: "Jacek" <jacek@infosys.de>
Newsgroups: pl.comp.lang.perl
Subject: Re: cgi
Date: Sat, 6 Dec 1997 10:43:23 +0100
Organization: Micro-Net Online Services LLC
Lines: 74
Message-ID: <66b6ia$3qm$1@roadrunner.micro-net.net>
References: <669l15$qh2$1@roadrunner.micro-net.net> <66a9er$jqa$1@galaxy.uci.agh.edu.pl>
NNTP-Posting-Host: 194.231.30.190
Mime-Version: 1.0
X-Newsreader: Microsoft Outlook Express 4.71.1712.3
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit