The only difference in version 1.5 and 1.1 of jump.cgi and a change to some constant names:
Code:
use strict;
use lib '/www/pugdog/cgi-bin/LinkSQL/admin';
use Links qw/$DB $IN $CFG/;
use Links::SiteHTML;
Links::init();
Links::init_date();
main();
In 1.5 $USER was added to the globals, and the two init routines were removed.
But, the calls to Links::init_date() are still made further down in the program.
here's the diff....
Code:
bash-2.03$ diff jump.cgi jump_11.cgi
6,7c6,7
< # Support : http://gossamer-threads.com/scripts/support/
< # Revision : $Id: jump.cgi,v 1.5 2000/11/09 21:16:57 alex Exp $
---
> # Support : support@gossamer-threads.com
> # Revision : $Id: jump.cgi,v 1.1 2000/09/30 00:14:51 alex Exp $
16c16
< use Links qw/$DB $USER $IN $CFG/;
---
> use Links qw/$DB $IN $CFG/;
18a19,21
> Links::init();
> Links::init_date();
>
43c46
< print Links::SiteHTML::display ('error', { error => Links::language ('JUMP_INVALIDID', $id) });
---
> print Links::SiteHTML::display ('error', { error => Links::language ('JUMPBADID', $id) });
49c52
< print Links::SiteHTML::display ('error', { error => Links::language ('JUMP_INVALIDID', $id) });
---
> print Links::SiteHTML::display ('error', { error => Links::language ('JUMPBADID', $id) });
71c74
< print Links::SiteHTML::display ('error', { error => Links::language ('JUMP_INVALIDID', $id) });
---
> print Links::SiteHTML::display ('error', { error => Links::language ('JUMPBADID', $id) });
81c84
< print Links::SiteHTML::display ('error', { error => Links::language ('JUMP_INVALIDID', $id) });
---
> print Links::SiteHTML::display ('error', { error => Links::language ('JUMPBADID', $id) });
bash-2.03$
The 1.1 version won't run, because Links::init() is undefined, and the 1.5 version won't run, because the CGI object is undefined (param() is never initialized)
PUGDOGŪ PUGDOGŪ Enterprises, Inc.
FAQ: http://postcards.com/FAQ