#!/usr/local/bin/perl

use strict;
use lib './';
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links qw/$CFG $IN $DB/;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use GT::SQL::Condition;

Links::init('./');

my $sth = $DB->table('Links')->select( ['ID','URL'], GT::SQL::Condition->new('isValidated','=','Yes','URL','LIKE','http://%') ) || die $GT::SQL::error;

while (my $link = $sth->fetchrow_hashref) {
if (length($link->{URL}) <= 7) { next; } # not valid one
if ($link->{URL} !~ m/^http:\/\/www\.(.*?)/i) {

if (check_if_is_a_sub_domain($link->{URL}) > 0) {
print qq|--- $link->{URL} seems to be a subdomain - not doing ---- \n|;
} else {
$link->{URL} =~ s|\Qhttp://\E|http://www.$1|sig;
print "New URL: (ID: $link->{ID}) $link->{URL} \n";
# $DB->table('Links')->update( { URL => $link->{URL} }, { ID => $link->{ID} } ) || die $GT::SQL::error;
}
}
}


sub check_if_is_a_sub_domain {

my $url = $_[0];
my @cut = split /\//, $url;
my $domain = $cut[2];
my @tmp2 = split /\./, $domain;

if ($#tmp2 > 1) {
#print qq|BLA BLA: $#tmp2 for $domain, $url \n|;
return 1;
}
return 0;
}