Hi. You would probably need a simple script;
use strict;
use lib './';
use Links qw/$IN $DB $CFG/;
use Links::SiteHTML;
use GT::CGI;
use CGI::Carp qw(fatalsToBrowser);
local $SIG{__DIE__} = \&Links::fatal;
Links::init('./');
my $fields = q~Title|URL|Description|Hits|Votes~;
my $sth = $DB->table('Links')->select();
my @fields = split /|/, $fields;
open(WRITEIT,">myoutput.txt") || die $!;
print WRITEIT "$fields\n";
while (my $hit = $sth->fetchrow_hashref) {
my $back = '';
print "Writing link: $hit->{Title} \n";
foreach (@fields) {
print WRITEIT $hit->{$_} . "|";
}
}
close(WRITEIT);
print qq|\n\nDone :)|;
Just run it via Telnet/SSH, with;
cd /path/to/admin/folder
perl script.cgi
Hope that helps.
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!
Code:
#!/usr/bin/perl use strict;
use lib './';
use Links qw/$IN $DB $CFG/;
use Links::SiteHTML;
use GT::CGI;
use CGI::Carp qw(fatalsToBrowser);
local $SIG{__DIE__} = \&Links::fatal;
Links::init('./');
my $fields = q~Title|URL|Description|Hits|Votes~;
my $sth = $DB->table('Links')->select();
my @fields = split /|/, $fields;
open(WRITEIT,">myoutput.txt") || die $!;
print WRITEIT "$fields\n";
while (my $hit = $sth->fetchrow_hashref) {
my $back = '';
print "Writing link: $hit->{Title} \n";
foreach (@fields) {
print WRITEIT $hit->{$_} . "|";
}
}
close(WRITEIT);
print qq|\n\nDone :)|;
Just run it via Telnet/SSH, with;
cd /path/to/admin/folder
perl script.cgi
Hope that helps.
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!