🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: PERL CGI Parsing

#813
From: Tom Phoenix
Date: Thu, 11 Dec 1997 06:09
37 lines
2317 bytes
On Wed, 10 Dec 1997, Ruben Safir wrote:

> Newsgroups: comp.lang.perl.misc, comp.os.linux.networking,
>     pl.comp.lang.perl, uk.comp.os.linux, alt.os.linux.slackware

I'm not sure that this has anything to do with Linux networking, or even
anything Linux-specific. And did you have a special reason for including
pl.comp.lang.perl? 

[ A screenful of irrelevant stuff snipped. :-) ]

> When I get to the print DATAOUT command, I'm getting an error message in
> the Appache log as follows
> 
> Undefined subroutine &main::DATAOUT called at 
> /var/lib/httpd/cgi-bin/add_lable.cgi line 27
> <DATAIN> chunk1.

When you get an unfamiliar error message from Perl, you can find it in the
perldiag manpage. This one's entry says:

    =item Undefined subroutine &%s called

    (F) The subroutine indicated hasn't been defined, or if it was, it
    has since been undefined.

I'd say that you should look at line 27 of add_lable.cgi and see why Perl
thinks you're calling a sub called DATAOUT there. Maybe you put an
ampersand before the filehandle name DATAOUT?

Hope this helps!

-- 
Tom Phoenix           http://www.teleport.com/~rootbeer/
rootbeer@teleport.com  PGP   Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/
              Ask me about Perl trainings!
Technical Details
Message-ID: <Pine.GSO.3.96.971210220144.20868G-100000@user2.teleport.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.nask.pl!news.icm.edu.pl!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news-peer.sprintlink.net!news-sea-19.sprintlink.net!news-in-west.sprintlink.net!news.sprintlink.net!Sprint!199.2.96.62!news.rain.net!news.teleport.com!user2.teleport.com!rootbeer
References: <OnL$e1ZB9GA.204@nih2naab.prod2.compuserve.com>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.nask.pl!news.icm.edu.pl!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news-peer.sprintlink.net!news-sea-19.sprintlink.net!news-in-west.sprintlink.net!news.sprintlink.net!Sprint!199.2.96.62!news.rain.net!news.teleport.com!user2.teleport.com!rootbeer
From: Tom Phoenix <rootbeer@teleport.com>
Newsgroups: comp.lang.perl.misc,pl.comp.lang.perl
Subject: Re: PERL CGI Parsing
Date: Wed, 10 Dec 1997 22:09:09 -0800
Organization: Society for the Elimination of Unwarranted Excess Superfluous Text in Internet Header Lines
Lines: 38
Message-ID: <Pine.GSO.3.96.971210220144.20868G-100000@user2.teleport.com>
References: <OnL$e1ZB9GA.204@nih2naab.prod2.compuserve.com>
NNTP-Posting-Host: usertest.teleport.com
Mime-Version: 1.0
To: Ruben Safir <75762.2332@CompuServe.COM>
In-Reply-To: <OnL$e1ZB9GA.204@nih2naab.prod2.compuserve.com>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit