#!/usr/bin/perl
# Copyright (c) 2002 Gavin Brown. All rights reserved. This program is
# free software; you can redistribute it and/or modify it under the same
# terms as Perl itself. 
#
# stub file for handling crontab requests.
# $Id: gnome-crontab,v 1.6 2003/04/20 16:35:52 jodrell Exp $
use strict;

if ($ARGV[0] ne '') {
	use lib $ENV{LIBDIR};
	my $gc;
	if ($ARGV[0] eq 'remote') {
		use Gnome::Crontab::Remote;
		$gc = Gnome::Crontab::Remote->new();
		$gc->init();
	} else {
		use Gnome::Crontab;
		$gc = Gnome::Crontab->new();
		$gc->init($ARGV[0]);
	}
} else {
	$ENV{VISUAL} = $0;
	system('crontab -e');
}

exit;
