| [vhffs-dev] [410] Big cleanup, removed every unused functions in Vhffs::Robots |
[ Thread Index |
Date Index
| More vhffs.org/vhffs-dev Archives
]
Revision: 410
Author: beuss
Date: 2007-01-19 13:22:03 +0000 (Fri, 19 Jan 2007)
Log Message:
-----------
Big cleanup, removed every unused functions in Vhffs::Robots
Removed old robots.
Modified Paths:
--------------
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Cvs.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Group.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mysql.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Postgres.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Repository.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Svn.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/User.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Web.pm
branches/vhffs_4.1/vhffs-robots/src/create_dns.pl
branches/vhffs_4.1/vhffs-robots/src/create_mail.pl
branches/vhffs_4.1/vhffs-robots/src/delete_dns.pl
branches/vhffs_4.1/vhffs-robots/src/delete_mail.pl
Removed Paths:
-------------
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/DNS.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mail.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mailinglist.pm
branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Panel.pm
branches/vhffs_4.1/vhffs-robots/src/old/
Modified: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Cvs.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Cvs.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Cvs.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -36,33 +36,6 @@
use Vhffs::Constants;
use Vhffs::Functions;
-
-sub getall_refused
-{
- my( $main ) = @_;
-
- my $query = "SELECT c.cvsroot, c.object_id FROM vhffs_cvs c, vhffs_object o WHERE o.state='".Vhffs::Constants::VALIDATION_REFUSED."' AND c.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('cvsroot') );
-}
-
-
-
-sub get_all_cvs_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT c.cvsroot, c.object_id FROM vhffs_cvs c, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND c.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('cvsroot') );
-}
-
sub create_cvs
{
my $cvs = shift;
@@ -132,17 +105,5 @@
}
}
-sub getall_cvs_to_delete
-{
- my( $main ) = @_;
-
- my $query = "SELECT c.cvsroot, c.object_id FROM vhffs_cvs c, vhffs_object o WHERE o.state='".Vhffs::Constants::TO_DELETE."' AND c.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('cvsroot') );
-}
-
1;
Deleted: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/DNS.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/DNS.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/DNS.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -1,70 +0,0 @@
-#!/usr/bin/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.
-
-
-package Vhffs::Robots::DNS;
-
-use Vhffs::Services::DNS;
-use Vhffs::Constants;
-use Vhffs::Functions;
-
-use strict;
-
-
-sub getall_refused
-{
- my( $main ) = @_;
-
- my $query = "SELECT n.domain, n.object_id FROM vhffs_dns_global n, vhffs_object o WHERE o.state='".Vhffs::Constants::VALIDATION_REFUSED."' AND n.object_id = o.object_id";
-
- my $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('domain') );
-}
-
-
-sub get_all_domains_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT n.domain, n.object_id FROM vhffs_dns_global n, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND n.object_id = o.object_id";
-
- my $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('domain') );
-}
-
-
-
-1;
-
Modified: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Group.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Group.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Group.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -37,32 +37,6 @@
use Vhffs::Functions;
use Vhffs::Constants;
-sub get_all_groups_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT g.groupname,g.gid FROM vhffs_groups g, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND g.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('groupname') );
-}
-
-sub get_all_groups_refused
-{
- my( $main ) = @_;
-
- my $query = "SELECT g.groupname,g.gid FROM vhffs_groups g, vhffs_object o WHERE o.state='".Vhffs::Constants::VALIDATION_REFUSED."' AND g.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('groupname') );
-}
-
-
-
sub create_groupdir
{
my $main = shift;
@@ -143,19 +117,6 @@
return( $request->fetchall_hashref('gid') );
}
-sub getall_user_group_to_delete
-{
- my $main = shift;
- my $query = "SELECT * FROM vhffs_user_group WHERE state='".Vhffs::Constants::TO_DELETE."'";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('gid') );
-}
-
-
-
sub del_user
{
my $user = shift;
Deleted: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mail.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mail.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mail.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -1,111 +0,0 @@
-#!/usr/bin/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.
-
-
-package Vhffs::Robots::Mail;
-
-use Vhffs::Services::Mail;
-use Vhffs::Constants;
-use Vhffs::Functions;
-
-
-sub getall_refused
-{
- my( $main ) = @_;
-
- my $query = "SELECT m.domain, m.object_id FROM vhffs_mxdomain m, vhffs_object o WHERE o.state='".Vhffs::Constants::VALIDATION_REFUSED."' AND m.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('domain') );
-}
-
-
-sub get_all_mail_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT m.domain, m.object_id FROM vhffs_mxdomain m, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND m.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('domain') );
-
-}
-
-
-sub get_all_mail_to_delete
-{
- my( $main ) = @_;
-
- my $query = "SELECT m.domain, m.object_id FROM vhffs_mxdomain m, vhffs_object o WHERE o.state='".Vhffs::Constants::TO_DELETE."' AND m.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('domain') );
-
-}
-
-
-sub delete_mail
-{
- my ( $main , $domain ) = @_;
-
- my $mail = new Vhffs::Services::Mail( $main , $domain );
- my $retour;
- if( ($retour = $mail->fetch) > 0 )
- {
- $mail->add_history( "Will delete this mail domain" );
- $mail->delete;
- }
-}
-
-
-sub create_mail
-{
- my ( $main , $domain ) = @_;
-
- my $mail = new Vhffs::Services::Mail( $main , $domain );
- my $retour;
- if( ($retour = $mail->fetch) > 0 )
- {
- $mail->add_history( "Robots will activated this mail domain" );
- $mail->set_status( Vhffs::Constants::ACTIVATED );
- $mail->commit;
- }
-}
-
-
-1;
-
Deleted: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mailinglist.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mailinglist.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mailinglist.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -1,114 +0,0 @@
-#!/usr/bin/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.
-
-
-package Vhffs::Robots::Mailinglist;
-
-use Vhffs::Services::Mail;
-use Vhffs::Constants;
-use Vhffs::Functions;
-
-
-
-sub getall_lists
-{
- my $main = shift;
-
- my $query = "SELECT l.ml_id, l.local_part , l.domain, l.object_id FROM vhffs_ml l, vhffs_object o WHERE l.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('ml_id') );
-
-}
-
-
-sub get_all_list_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT l.ml_id, l.domain, l.object_id FROM vhffs_ml l, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND l.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('ml_id') );
-
-}
-
-
-sub get_all_list_to_delete
-{
- my( $main ) = @_;
-
- my $query = "SELECT l.ml_id, l.domain, l.object_id FROM vhffs_ml l, vhffs_object o WHERE o.state='".Vhffs::Constants::TO_DELETE."' AND l.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('ml_id') );
-
-}
-
-
-sub delete_list
-{
- my ( $main , $lpart , $domain ) = @_;
-
- my $ml = new Vhffs::Services::Mailing( $main , $lpart , $domain );
- my $retour;
- if( ($retour = $ml->fetch) > 0 )
- {
- $ml->add_history( "Will delete this list" );
- $ml->delete;
- }
-}
-
-
-sub create_list
-{
- #my ( $main , $lpart , $domain ) = @_;
- my $ml = shift;
-
- #my $ml = new Vhffs::Services::Mailing( $main , $lpart , $domain );
- my $retour;
- if( ($retour = $ml->fetch) > 0 )
- {
- $ml->add_history( "Robots will activated this list" );
- $ml->set_status( Vhffs::Constants::ACTIVATED );
- $ml->commit;
- }
-}
-
-
-1;
-
Modified: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mysql.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mysql.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Mysql.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -45,47 +45,6 @@
bindtextdomain("panel", "/vhffs/vhffs-panel/intl");
textdomain("panel");
-
-sub getall_refused
-{
- my( $main ) = @_;
-
- my $query = "SELECT m.dbname, m.object_id FROM vhffs_mysql m, vhffs_object o WHERE o.state='".Vhffs::Constants::VALIDATION_REFUSED."' AND m.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('dbname') );
-}
-
-
-sub get_all_db_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT m.dbname, m.object_id FROM vhffs_mysql m, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND m.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('dbname') );
-}
-
-
-sub get_all_db_to_delete
-{
- my( $main ) = @_;
-
- my $query = "SELECT m.dbname, m.object_id FROM vhffs_mysql m, vhffs_object o WHERE o.state='".Vhffs::Constants::TO_DELETE."' AND m.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('dbname') );
-}
-
-
-
sub delete_db
{
my $main = shift;
@@ -126,27 +85,6 @@
-sub fix_password
-{
- my ( $main , $dbname ) = @_;
-
- my $db = new Vhffs::Services::Mysql( $main , $dbname );
- my $query;
-
- if( $db->fetch > 0 )
- {
- my $dbi = mysql_admin_db_connect( $main );
- if( $dbi != 1 )
- {
- $query = "UPDATE user SET PASSWORD=PASSWORD('".$db->get_dbpassword."') WHERE user='".$db->get_dbusername."'";
- $dbi->do( $query ) or $db->add_history("Error while creating the database");
- $dbi->do( "FLUSH PRIVILEGES" );
- $dbi->disconnect;
- }
- }
-}
-
-
sub create_db
{
my $main = shift;
@@ -220,19 +158,4 @@
}
}
-sub get_all_db_to_update
-{
- my( $main ) = @_;
-
- my $query = "SELECT m.dbname, m.object_id FROM vhffs_mysql m, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_MODIFICATION."' AND m.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('dbname') );
-}
-
-
-
-
1;
Deleted: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Panel.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Panel.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Panel.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -1,39 +0,0 @@
-#!/usr/bin/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.
-
-
-package Vhffs::Robots::Panel;
-
-
-
-
-1;
-
Modified: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Postgres.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Postgres.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Postgres.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -38,58 +38,6 @@
use strict;
-sub getall_refused
-{
- my( $main ) = @_;
-
- my $query = "SELECT p.dbname, p.object_id FROM vhffs_pgsql p, vhffs_object o WHERE o.state='".Vhffs::Constants::VALIDATION_REFUSED."' AND p.object_id = o.object_id";
-
- my $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('dbname') );
-}
-
-
-sub get_all_db_to_delete
-{
- my( $main ) = @_;
-
- my $query = "SELECT p.dbname, p.object_id FROM vhffs_pgsql p, vhffs_object o WHERE o.state='".Vhffs::Constants::TO_DELETE."' AND p.object_id = o.object_id";
-
- my $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('dbname') );
-}
-
-sub get_all_db_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT p.dbname, p.object_id FROM vhffs_pgsql p, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND p.object_id = o.object_id";
-
- my $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('dbname') );
-
-}
-
-
-sub get_all_db_to_update
-{
- my( $main ) = @_;
-
-my $query = "SELECT p.dbname, p.object_id FROM vhffs_pgsql p, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_MODIFICATION."' AND p.object_id = o.object_id";
-
- my $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('dbname') );
-
-}
-
sub update_db
{
my $main = shift;
Modified: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Repository.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Repository.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Repository.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -37,32 +37,6 @@
use Vhffs::Functions;
-sub getall_refused
-{
- my( $main ) = @_;
-
- my $query = "SELECT r.name, c.object_id FROM vhffs_repository r, vhffs_object o WHERE o.state='".Vhffs::Constants::VALIDATION_REFUSED."' AND r.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('name') );
-}
-
-
-
-sub get_all_repository_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT r.name, c.object_id FROM vhffs_repository r, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND r.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('name') );
-}
-
sub create_repository
{
my $repo = shift;
@@ -139,17 +113,5 @@
return 1;
}
-sub getall_repository_to_delete
-{
- my( $main ) = @_;
-
- my $query = "SELECT r.name, c.object_id FROM vhffs_repository r, vhffs_object o WHERE o.state='".Vhffs::Constants::TO_DELETE."' AND r.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('name') );
-}
-
1;
Modified: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Svn.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Svn.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Svn.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -36,17 +36,6 @@
use Vhffs::Constants;
use Vhffs::Functions;
-sub getall_svn_reponame
-{
- my( $main ) = @_;
-
- my $query = "SELECT s.reponame, s.object_id FROM vhffs_svn s, vhffs_object o WHERE s.object_id = o.object_id";
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('reponame') );
-}
-
sub change_conf
{
my $svn = shift;
Modified: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/User.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/User.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/User.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -35,31 +35,6 @@
use Vhffs::User;
use Vhffs::Constants;
-sub getall_active_users
-{
- my $main = shift;
-
- my $query = "SELECT u.username,u.uid FROM vhffs_users u, vhffs_object o WHERE o.state='".Vhffs::Constants::ACTIVATED."' AND u.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('username') );
-}
-
-sub get_all_home_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT u.username,u.uid,u.homedir FROM vhffs_users u, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND u.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('username') );
-
-}
-
sub create
{
my $user = shift;
@@ -76,8 +51,6 @@
delete_home( $vhffs , $user );
}
-
-
sub delete_home
{
my( $main , $username , $user , $homedir , @subdirs , $path , $value );
Modified: branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Web.pm
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Web.pm 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-api/src/Vhffs/Robots/Web.pm 2007-01-19 13:22:03 UTC (rev 410)
@@ -37,33 +37,6 @@
use Vhffs::Functions;
use Vhffs::Robots;
-sub get_all_web_refused
-{
- my( $main ) = @_;
-
- my $query = "SELECT w.servername, w.object_id FROM vhffs_httpd w, vhffs_object o WHERE o.state='".Vhffs::Constants::VALIDATION_REFUSED."' AND w.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('servername') );
-
-}
-
-
-
-sub get_all_web_to_create
-{
- my( $main ) = @_;
-
- my $query = "SELECT w.servername, w.object_id FROM vhffs_httpd w, vhffs_object o WHERE o.state='".Vhffs::Constants::WAITING_FOR_CREATION."' AND w.object_id = o.object_id";
-
- $request = $main->{'db'}->prepare( $query ) or return -2;
- return undef if ( $request->execute() <= 0 );
-
- return( $request->fetchall_hashref('servername') );
-}
-
sub create_web
{
use Vhffs::Group;
Modified: branches/vhffs_4.1/vhffs-robots/src/create_dns.pl
===================================================================
--- branches/vhffs_4.1/vhffs-robots/src/create_dns.pl 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-robots/src/create_dns.pl 2007-01-19 13:22:03 UTC (rev 410)
@@ -30,8 +30,7 @@
# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
-
-use Vhffs::Robots::DNS;
+use Vhffs::Services::DNS;
use Vhffs::Robots;
use Vhffs::Main;
Modified: branches/vhffs_4.1/vhffs-robots/src/create_mail.pl
===================================================================
--- branches/vhffs_4.1/vhffs-robots/src/create_mail.pl 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-robots/src/create_mail.pl 2007-01-19 13:22:03 UTC (rev 410)
@@ -32,7 +32,7 @@
#This robot create mail domain
#It actives it
-use Vhffs::Robots::Mail;
+use Vhffs::Services::Mail;
use Vhffs::Robots;
use Vhffs::Main;
Modified: branches/vhffs_4.1/vhffs-robots/src/delete_dns.pl
===================================================================
--- branches/vhffs_4.1/vhffs-robots/src/delete_dns.pl 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-robots/src/delete_dns.pl 2007-01-19 13:22:03 UTC (rev 410)
@@ -30,7 +30,7 @@
# POSSIBILITY OF SUCH DAMAGE.
use Vhffs::Robots;
-use Vhffs::Robots::DNS;
+use Vhffs::Services::DNS;
use Vhffs::Main;
use strict;
Modified: branches/vhffs_4.1/vhffs-robots/src/delete_mail.pl
===================================================================
--- branches/vhffs_4.1/vhffs-robots/src/delete_mail.pl 2007-01-19 07:21:44 UTC (rev 409)
+++ branches/vhffs_4.1/vhffs-robots/src/delete_mail.pl 2007-01-19 13:22:03 UTC (rev 410)
@@ -30,7 +30,6 @@
# POSSIBILITY OF SUCH DAMAGE.
-use Vhffs::Robots::Mail;
use Vhffs::Services::Mail;
use Vhffs::Services::Mailing;
use Vhffs::Robots;