#!/usr/bin/perl

# inspired by wmWeather - http://nis-www.lanl.gov/~mgh/WindowMaker/DockApps.shtml
# from Mike Hendersons

# Licence : GPL
# Author: Yann Hirou <hirou@xname.org>


$home = (getpwuid($<))[7];
$ok = chdir() || chdir($home);

# retrieve login & password
open(FILE, "< $home/.wmXName/config");
while(<FILE>){
	if(/^Login: (.*)$/){
		$login = $1;
	}
	if(/^Password: (.*)$/){
		$password = $1;
	}
	if(/^lynx_options: (.*)$/){
		$lynxoptions = $1;
	}
}
close FILE;


#  Check to see if .wmXName exists.
#  If not, make it and move to it.
if ( !(-e ".wmXName") ){
	mkdir(".wmXName", 0775);
}
chdir(".wmXName");


$URL="\"https://www.xname.org/backend.php?login=" . $login . "&password=" . $password . "\"";

$GrabCmd = "lynx $lynxoptions $URL > $home/.wmXName/data";
system "$GrabCmd";
