#!/usr/bin/perl
# ==============================================================
# -------------
# Links SQL
# -------------
# Links Manager
#
# Author: Alex Krohn
# Email: alex@gossamer-threads.com
# Web: http://www.gossamer-threads.com/
# Version: 1.1b3
#
# COPYRIGHT NOTICE:
#
# Copyright 1999 Gossamer Threads Inc. All Rights Reserved.
# No redistribution of this script may be made without prior
# written consent.
#
# By using this program you agree to indemnify Gossamer Threads
# Inc. from any liability.
#
# Please see the README for full license details.
#
# Modified to run via telnet, no CGI enabled.
#==============================================================

# Load required modules.
# ---------------------------------------------------
use Links;
use Links: BSQL;
use strict;
$| = 1;
my ($s, $e, $f, $in, $links, $cat, $total);

print "Links Manager: Indexing Links\n\n";

$s = time();

# Get our Links db object.
$links = new Links: BSQL "$LINKS{admin_root_path}/defs/Links.def";
$total = $links->total;

print qq|Indexing $total links. Started at |, scalar localtime($s), "\n";

$links->reindex_all();

# Reindex categories.
$cat = new Links: BSQL "$LINKS{admin_root_path}/defs/Category.def";
$total = $cat->total;

print qq|\n\nIndexing $total Categories. Started at |, scalar localtime($s), "\n";

$cat->reindex_all();

# All done.
$f = time();
$e = $f - $s;

print "\nDone ($e s)\n\n";