Is there a way to delete links/sites that are older than a certain age, like 365 days or older gets deleted?
May 19, 2006, 3:15 PM
User (75 posts)
May 19, 2006, 3:15 PM
Post #1 of 7
Views: 2846
May 19, 2006, 6:47 PM
Staff (4101 posts)
May 19, 2006, 6:47 PM
Post #3 of 7
Views: 2735
If you want to automate it, you'll have to write some code to do it. If you just want to do it as a one time deal, you can search for the links using the database editor (Database => Editor (on the left sidebar) => Links, Delete => and enter the Add_Date (Less than) for the search.
Adrian
Adrian
May 20, 2006, 3:31 AM
User (75 posts)
May 20, 2006, 3:31 AM
Post #4 of 7
Views: 2740
I had originally thought I'd automate it, but an occasional manual delete will work just as well.
Thanks
Thanks
May 20, 2006, 8:18 AM
Veteran / Moderator (18441 posts)
May 20, 2006, 8:18 AM
Post #6 of 7
Views: 2712
Hi,
Totally untested, but *should* work =)
Make a new script, in your /admin folder. Call it something like delete_old.cgi. Put the following in it;
use strict;
use lib '/full/path/to/your/admin';
use GT::Base;
use Links qw/$CFG $IN $DB/;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use GT::Date;
local $SIG{__DIE__} = \&Links::fatal;
Links::init('/full/path/to/your/admin');
Links::init_user();
my $days_diff = 365;
my $current = GT::Date::date_get();
my $date_to_del_from = GT::Date::date_sub($current,$days_diff);
for (my $i = 0; $i < 7; $i++) {
my $date_to_del = GT::Date::date_sub($date_to_del_from,$i);
print "DELETING Link with Add_Date on $date_to_del \n":
#$DB->table('Links')->delete( { Add_Date => $date_to_del } ) || die $GT::SQL::error;
}
BE SURE TO EDIT THE "/full/path/to/your/admin" part, so it reflects you admin folder ;))
Then, run via SSH/Telnet, with;
cd /path/to/your/admin
perl delete_old.cgi
You'll notice, that I've commented out this line;
#$DB->table('Links')->delete( { Add_Date => $date_to_del } ) || die $GT::SQL::error;
Once you are happy its getting the dates you want to delete, then you can uncomment this, and they should then get deleted the next time you run it =)
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!
Totally untested, but *should* work =)
Make a new script, in your /admin folder. Call it something like delete_old.cgi. Put the following in it;
Code:
#!/usr/bin/perl -w use strict;
use lib '/full/path/to/your/admin';
use GT::Base;
use Links qw/$CFG $IN $DB/;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use GT::Date;
local $SIG{__DIE__} = \&Links::fatal;
Links::init('/full/path/to/your/admin');
Links::init_user();
my $days_diff = 365;
my $current = GT::Date::date_get();
my $date_to_del_from = GT::Date::date_sub($current,$days_diff);
for (my $i = 0; $i < 7; $i++) {
my $date_to_del = GT::Date::date_sub($date_to_del_from,$i);
print "DELETING Link with Add_Date on $date_to_del \n":
#$DB->table('Links')->delete( { Add_Date => $date_to_del } ) || die $GT::SQL::error;
}
BE SURE TO EDIT THE "/full/path/to/your/admin" part, so it reflects you admin folder ;))
Then, run via SSH/Telnet, with;
cd /path/to/your/admin
perl delete_old.cgi
You'll notice, that I've commented out this line;
#$DB->table('Links')->delete( { Add_Date => $date_to_del } ) || die $GT::SQL::error;
Once you are happy its getting the dates you want to delete, then you can uncomment this, and they should then get deleted the next time you run it =)
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!