#!/usr/bin/perl

# This perl script searches for the past week's GNKSA-related articles
# It depends on functionality present in Mac OS (Internet Config) only.

# Contributed by John Moreno <phenix@interpath.com>, Jul 15 1998

# John Moreno: "While using dejanews I came across a GNKSA discussion
# from back in January that I would have liked to have participated in.
# This prompted me to write this perl script."

use Mac::InternetConfig;

$instance=ICStart;

ICGeneralFindConfigFile $instance;

$dejnqry='http://www.dejanews.com/dnquery.xp?';
$djqry=$djqry.'QRY=gnksa+or+js/gnksa+or+(good+net-keeping)';
$djqry=$djqry.'&ST=PS&CT=&DBS=1&fromdate=X/X/X';

$thetime=time-(7*24*60*60);

@tarray=localtime($thetime);

$y=$tarray[5]+1900; $m=$tarray[4]+1; $d=$tarray[3];  # get last week

$dejnqry=~ s#X/X/X#$m/$d/$y#;

ICLaunchURL ($instance,'',$dejnqry);

ICStop $instance;