#!/usr/bin/perl
#
#  Purpose: This should allow you to add a channel to AmphetaDesk while it's not running...
#
#  Special thanks to Aaron <http://aaronland.info/> for the original solution and code, and to 
#  Morbus Iff <http://www.disobey.com/> for debugging help, and you know, creating AmphetaDesk ;)
#
#  This script needs to live in your amphetadesk folder, so for me that's at:
#
#    /Applications/amphetadesk-osx-v0.93.1/
#
#  I'm sure there's some way around this, but heck if I know...
#
#  usage: perl amphetafeed.pl http://rasterweb.net/raster/rasterweb.rss
#
#  $Id: amphetafeed.pl,v 1.1 2003/04/04 14:28:23 pete Exp pete $
#
#  This is free software, you may use it and distribute it under the 
#  same terms as Perl itself.
#


# This should point to your AmpehatDesk installation's 'lib' directory

use lib '/Applications/amphetadesk-osx-v0.93.1/lib';

use AmphetaDesk;
use AmphetaDesk::Settings;  
use AmphetaDesk::MyChannels;
use AmphetaDesk::OS::MacOSX;  # if not using Mac OS X, change this, try 'Linux' or 'Windows'

&load_my_settings(); 

&load_my_channels(get_setting(files_myChannels));

&add_url(@ARGV);


exit;

__END__