To the best of my knowledge, this is all that's needed:
use CGI qw(:standard);
use lib "admin"; #change to full path if you have problems
require "links.cfg";
require "links.def";
require "site_html_templates.pl";
my $id = param(id);
$id =~ /^\d+$/ or die "invalid ID";
my %rec = get_record($id);
print header();
print site_html_detailed(%rec);
Let me know if you have any problems, as I don't have Links installed anymore, nor my original info.cgi script.
--Philip
Links 2.0 moderator
Code:
#!/usr/loca/bin/perl use CGI qw(:standard);
use lib "admin"; #change to full path if you have problems
require "links.cfg";
require "links.def";
require "site_html_templates.pl";
my $id = param(id);
$id =~ /^\d+$/ or die "invalid ID";
my %rec = get_record($id);
print header();
print site_html_detailed(%rec);
Let me know if you have any problems, as I don't have Links installed anymore, nor my original info.cgi script.
--Philip
Links 2.0 moderator