[vhffs-dev] [1253] added some cron stuff'

[subversion@xxxxxxxxxxxxx]

Revision: 1253
Author:   gradator
Date:     2008-09-21 01:25:28 +0200 (Sun, 21 Sep 2008)

Log Message:
-----------
added some cron stuff'

Added Paths:
-----------
    trunk/vhffs-api/src/Vhffs/Robots/Cron.pm


Added: trunk/vhffs-api/src/Vhffs/Robots/Cron.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Cron.pm	                        (rev 0)
+++ trunk/vhffs-api/src/Vhffs/Robots/Cron.pm	2008-09-20 23:25:28 UTC (rev 1253)
@@ -0,0 +1,60 @@
+#!%PERL%
+# Copyright (c) vhffs project and its contributors
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without 
+# modification, are permitted provided that the following conditions 
+# are met:
+#
+# 1. Redistributions of source code must retain the above copyright 
+#   notice, this list of conditions and the following disclaimer.
+#2. Redistributions in binary form must reproduce the above copyright
+#   notice, this list of conditions and the following disclaimer in 
+#   the documentation and/or other materials provided with the 
+#   distribution.
+#3. Neither the name of vhffs nor the names of its contributors 
+#   may be used to endorse or promote products derived from this 
+#   software without specific prior written permission.
+#
+#THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
+#"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
+#LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
+#FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 
+#COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 
+#INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 
+#BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
+#LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER 
+#CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN 
+# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+
+use strict;
+use utf8;
+
+package Vhffs::Robots::Cron;
+
+use Vhffs::Services::Cron;
+use Vhffs::Constants;
+use Vhffs::Functions;
+use Vhffs::Robots;
+
+
+sub get_runnable_jobs
+{
+	my $main = shift;
+
+	my $sql = 'SELECT c.cron_id, c.cronpath, c.interval, c.reportmail, c.lastrundate, c.lastrunreturncode, c.nextrundate, c.running, o.owner_uid, o.owner_gid, o.object_id, o.date_creation, o.description, o.state FROM vhffs_cron c INNER JOIN vhffs_object o ON c.object_id=o.object_id WHERE o.state=? AND running=0 AND ( c.nextrundate IS NULL OR c.nextrundate<? )';
+	my $dbh = $main->get_db_object();
+	my $sth = $dbh->prepare($sql);
+	$sth->execute( Vhffs::Constants::ACTIVATED , time() ) or return undef;
+
+	my $repos = [];
+	while(my $r = $sth->fetchrow_arrayref()) {
+		push(@$repos, _new Vhffs::Services::Cron($main, @$r));
+	}
+	return $repos;
+}
+
+
+1;