Hi,
This should work (to get the data out);
Code:
#!/usr/bin/perl
use strict;
use lib './admin';
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links qw/$CFG $IN $DB/;
use Links::Plugins;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use GT::Date;
Links::init('./admin');
my $sth = $DB->table('CatLinks')->select;
print qq|Title Cat_Full_Name URL Description\n|;
while (my $hit = $sth->fetchrow_hashref) {
my $link = $DB->table('Links')->select( { ID => $hit->{LinkID} } )->fetchrow_hashref;
my $cat = $DB->table('Category')->select( { ID => $hit->{CategoryID} } )->fetchrow_hashref;
print qq|$link->{Title} $cat->{Full_Name} $hit->{URL} $hit->{Description}\n|;
}
..save as get_data.cgi, and upload into the OLD LSQL 2 admin area,? CHMOD to 755 - then run from your browser.
Then, view the source, and should have create a tab delimited data list (of your links , from the old install).
Let me know if that works
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my
Amazon Wish List GLinks ULTRA Package | GLinks ULTRA Package PRO Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin |
Pre-Made Template Sets |
FREE GLinks Plugins!