[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
CVS Update: gleipnir
- To: cvs@lists.cleannorth.org
- Subject: CVS Update: gleipnir
- From: Dan Brosemer <odin@cleannorth.org>
- Date: Mon, 11 Aug 2008 00:20:25 -0400 (EDT)
- List-help: <mailto:cvs-request@lists.cleannorth.org?subject=help>
- List-post: <mailto:cvs@lists.cleannorth.org>
- List-subscribe: <mailto:cvs-request@lists.cleannorth.org?subject=subscribe>
- List-unsubscribe: <mailto:cvs-request@lists.cleannorth.org?subject=unsubscribe>
- Resent-date: Mon, 11 Aug 2008 00:20:28 -0400 (EDT)
- Resent-from: cvs@lists.cleannorth.org
- Resent-message-id: <_sEwkC.A.GXF.i47nIB@skroob.cleannorth.org>
- Resent-sender: cvs-request@lists.cleannorth.org
Log Message:
-----------
Fix inherretance from global namespace
Modified Files:
--------------
gleipnir/public_html:
kb.pl
Revision Data
-------------
Index: kb.pl
===================================================================
RCS file: /cvs/gleipnir/public_html/kb.pl,v
retrieving revision 1.32
retrieving revision 1.33
diff -Lpublic_html/kb.pl -Lpublic_html/kb.pl -u -r1.32 -r1.33
--- public_html/kb.pl
+++ public_html/kb.pl
@@ -114,6 +114,7 @@
my $topic = $options{-topic};
my $kbdir = $gleipnir->cfetch( dirs => 'kbdir' );
+ my $cgi = $gleipnir->cgi;
my $remote_host = $cgi->remote_host();
my @parts = split(/\./, $remote_host);
@parts = map {unpack("H2",pack("C1",$_))} @parts;
@@ -190,6 +191,7 @@
my %options = @_;
my $topic = $options{-topic};
my $gleipnir = $options{-gleipnir};
+ my $cgi = $gleipnir->cgi;
$gleipnir->setredir();
my $ot = $topic;
- Prev by Date: CVS Update: gleipnir
- Next by Date: CVS Update: svartalfheim.net
- Previous by thread: CVS Update: gleipnir
- Next by thread: CVS Update: gleipnir
- Index(es):