#!/usr/bin/perl -w

use strict;
my $me = 'p2f_cheesy.pl';

use vars qw( %task );

$task{$me}{timespec} = '51 0-23/2 * * *';
$task{$me}{timespec_panic_1} = ''; # not important
$task{$me}{code} = sub {

	my($virtual_user, $constants, $slashdb, $user) = @_;

	my $bd = $constants->{basedir}; # convenience
	for my $name (qw( cheesyportal )) {
		prog2file(
			"$bd/$name.pl", 
			"ssi=yes virtual_user=$virtual_user", 
			"$bd/$name.shtml"
		);
	}

};