| [vhffs-dev] [2103] renamed init Vhffs to new Vhffs, like other modules do |
[ Thread Index |
Date Index
| More vhffs.org/vhffs-dev Archives
]
Revision: 2103
Author: gradator
Date: 2012-03-03 16:14:54 +0100 (Sat, 03 Mar 2012)
Log Message:
-----------
renamed init Vhffs to new Vhffs, like other modules do
Modified Paths:
--------------
trunk/vhffs-api/examples/add_acl.pl
trunk/vhffs-api/examples/add_acl_dns.pl
trunk/vhffs-api/examples/create_box.pl
trunk/vhffs-api/examples/create_cvs.pl
trunk/vhffs-api/examples/create_cvs_panel.pl
trunk/vhffs-api/examples/create_dns.pl
trunk/vhffs-api/examples/create_forward.pl
trunk/vhffs-api/examples/create_group.pl
trunk/vhffs-api/examples/create_group_by_panel.pl
trunk/vhffs-api/examples/create_list.pl
trunk/vhffs-api/examples/create_mail.pl
trunk/vhffs-api/examples/create_mysql.pl
trunk/vhffs-api/examples/create_mysql_panel.pl
trunk/vhffs-api/examples/create_panel_mail.pl
trunk/vhffs-api/examples/create_postgres.pl
trunk/vhffs-api/examples/create_repository.pl
trunk/vhffs-api/examples/create_user.pl
trunk/vhffs-api/examples/create_web.pl
trunk/vhffs-api/examples/create_web_panel.pl
trunk/vhffs-api/examples/delbox.pl
trunk/vhffs-api/examples/delete_acl.pl
trunk/vhffs-api/examples/generate_password.pl
trunk/vhffs-api/examples/get_list.pl
trunk/vhffs-api/examples/join_group.pl
trunk/vhffs-api/examples/list_themes.pl
trunk/vhffs-api/examples/mailuser.pl
trunk/vhffs-api/examples/mailuser_add_box.pl
trunk/vhffs-api/examples/modify_acl.pl
trunk/vhffs-api/examples/modify_user.pl
trunk/vhffs-api/examples/perm_for_user.pl
trunk/vhffs-api/examples/print_domain.pl
trunk/vhffs-api/examples/show_acl_per_object.pl
trunk/vhffs-api/examples/show_dns_per_group.pl
trunk/vhffs-api/examples/show_dns_per_user.pl
trunk/vhffs-api/examples/show_dumper_cvs.pl
trunk/vhffs-api/examples/show_dumper_group.pl
trunk/vhffs-api/examples/show_dumper_object.pl
trunk/vhffs-api/examples/show_dumper_user.pl
trunk/vhffs-api/examples/show_groups_per_user.pl
trunk/vhffs-api/examples/show_last_users.pl
trunk/vhffs-api/examples/show_mail_conf.pl
trunk/vhffs-api/examples/show_mail_per_group.pl
trunk/vhffs-api/examples/show_members_from_list.pl
trunk/vhffs-api/examples/stats.pl
trunk/vhffs-api/src/Vhffs/Group.pm
trunk/vhffs-api/src/Vhffs/Panel/Avatar.pm
trunk/vhffs-api/src/Vhffs/Stats.pm
trunk/vhffs-api/src/Vhffs/User.pm
trunk/vhffs-api/src/Vhffs/UserGroup.pm
trunk/vhffs-api/src/Vhffs.pm
trunk/vhffs-cron/src/vhffscron.pl
trunk/vhffs-irc/modobot.pl
trunk/vhffs-jabber/vhffspipe.pl
trunk/vhffs-listengine/src/listengine.pl
trunk/vhffs-panel/index.pl
trunk/vhffs-public/index.pl
trunk/vhffs-robots/src/bazaar.pl
trunk/vhffs-robots/src/broadcast.pl
trunk/vhffs-robots/src/cron.pl
trunk/vhffs-robots/src/cvs.pl
trunk/vhffs-robots/src/dns.pl
trunk/vhffs-robots/src/git.pl
trunk/vhffs-robots/src/group.pl
trunk/vhffs-robots/src/group_quota.pl
trunk/vhffs-robots/src/mail.pl
trunk/vhffs-robots/src/mailinglist.pl
trunk/vhffs-robots/src/mailinglist_mhonarc.pl
trunk/vhffs-robots/src/mercurial.pl
trunk/vhffs-robots/src/mysql.pl
trunk/vhffs-robots/src/mysql_dump.pl
trunk/vhffs-robots/src/object_cleanup.pl
trunk/vhffs-robots/src/pgsql.pl
trunk/vhffs-robots/src/pgsql_dump.pl
trunk/vhffs-robots/src/repository.pl
trunk/vhffs-robots/src/repository_quota.pl
trunk/vhffs-robots/src/repository_stats.pl
trunk/vhffs-robots/src/svn.pl
trunk/vhffs-robots/src/user.pl
trunk/vhffs-robots/src/user_cleanup.pl
trunk/vhffs-robots/src/user_quota.pl
trunk/vhffs-robots/src/usergroup.pl
trunk/vhffs-robots/src/web.pl
trunk/vhffs-robots/src/web_stats.pl
trunk/vhffs-tools/src/vhffs-box-add
trunk/vhffs-tools/src/vhffs-dumpmysql
trunk/vhffs-tools/src/vhffs-groupadd
trunk/vhffs-tools/src/vhffs-groupdel
trunk/vhffs-tools/src/vhffs-groupinfo
trunk/vhffs-tools/src/vhffs-makeadmin
trunk/vhffs-tools/src/vhffs-managedns
trunk/vhffs-tools/src/vhffs-managemail
trunk/vhffs-tools/src/vhffs-moderate
trunk/vhffs-tools/src/vhffs-passwd
trunk/vhffs-tools/src/vhffs-quota
trunk/vhffs-tools/src/vhffs-useradd
trunk/vhffs-tools/src/vhffs-userdel
trunk/vhffs-tools/src/vhffs-userinfo
trunk/vhffs-tools/src/vhffs-usermod
trunk/vhffs-tools/src/vhffs-webdir
trunk/vhffs-tools/src/vhffs-webstats
Modified: trunk/vhffs-api/examples/add_acl.pl
===================================================================
--- trunk/vhffs-api/examples/add_acl.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/add_acl.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Services::Web;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 servername username level\n") if(@ARGV != 3);
Modified: trunk/vhffs-api/examples/add_acl_dns.pl
===================================================================
--- trunk/vhffs-api/examples/add_acl_dns.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/add_acl_dns.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Services::DNS;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 domain user level\n") unless(@ARGV == 3);
Modified: trunk/vhffs-api/examples/create_box.pl
===================================================================
--- trunk/vhffs-api/examples/create_box.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_box.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Services::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 mail_domain local_part password\n") unless(@ARGV == 3);
Modified: trunk/vhffs-api/examples/create_cvs.pl
===================================================================
--- trunk/vhffs-api/examples/create_cvs.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_cvs.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -48,7 +48,7 @@
my %infos;
my $group;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
$config = $vhffs->get_config;
Modified: trunk/vhffs-api/examples/create_cvs_panel.pl
===================================================================
--- trunk/vhffs-api/examples/create_cvs_panel.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_cvs_panel.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Panel::Cvs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 cvsroot description owner_username owner_groupname\n") unless(@ARGV == 4);
Modified: trunk/vhffs-api/examples/create_dns.pl
===================================================================
--- trunk/vhffs-api/examples/create_dns.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_dns.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
use Vhffs::Object;
use Vhffs::Services::DNS;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage $0 domain_name, description, user, group") unless(@ARGV == 4);
Modified: trunk/vhffs-api/examples/create_forward.pl
===================================================================
--- trunk/vhffs-api/examples/create_forward.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_forward.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Services::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 mxdomain localpart remote_address\n") unless(@ARGV == 3);
Modified: trunk/vhffs-api/examples/create_group.pl
===================================================================
--- trunk/vhffs-api/examples/create_group.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_group.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Object;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 groupname owner_username description\n") unless(@ARGV == 3);
Modified: trunk/vhffs-api/examples/create_group_by_panel.pl
===================================================================
--- trunk/vhffs-api/examples/create_group_by_panel.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_group_by_panel.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Panel::Group;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 groupname owner_username decription\n") unless(@ARGV == 3);
Modified: trunk/vhffs-api/examples/create_list.pl
===================================================================
--- trunk/vhffs-api/examples/create_list.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_list.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -12,7 +12,7 @@
use Vhffs::Services::Mail;
use Vhffs::Services::MailingList;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 local_part domain admin_email description owner_username owner_groupname\n") unless(@ARGV == 6);
Modified: trunk/vhffs-api/examples/create_mail.pl
===================================================================
--- trunk/vhffs-api/examples/create_mail.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_mail.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
use Vhffs::Object;
use Vhffs::Services::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage $0 domain description owner_username owner_groupname") if(@ARGV != 4);
my ($domain, $description, $username, $groupname) = @ARGV;
Modified: trunk/vhffs-api/examples/create_mysql.pl
===================================================================
--- trunk/vhffs-api/examples/create_mysql.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_mysql.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
use Vhffs::Object;
use Vhffs::Services::Mysql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 dbname dbuser dbpass description owner_username owner_groupname\n") unless(@ARGV == 6);
Modified: trunk/vhffs-api/examples/create_mysql_panel.pl
===================================================================
--- trunk/vhffs-api/examples/create_mysql_panel.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_mysql_panel.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Panel::Mysql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 dbname dbuser dbpass description owner_username owner_groupname\n") unless(@ARGV == 6);
Modified: trunk/vhffs-api/examples/create_panel_mail.pl
===================================================================
--- trunk/vhffs-api/examples/create_panel_mail.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_panel_mail.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -10,7 +10,7 @@
use Vhffs;
use Vhffs::Panel::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 domain description owner_username owner_groupname\n") unless(@ARGV == 4);
Modified: trunk/vhffs-api/examples/create_postgres.pl
===================================================================
--- trunk/vhffs-api/examples/create_postgres.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_postgres.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
use Vhffs::Object;
use Vhffs::Services::Pgsql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 dbname dbuser dbpass description user group\n") unless(@ARGV == 6);
Modified: trunk/vhffs-api/examples/create_repository.pl
===================================================================
--- trunk/vhffs-api/examples/create_repository.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_repository.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
use Vhffs::Object;
use Vhffs::Services::Repository;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 reponame description username groupname\n") unless(@ARGV == 4);
Modified: trunk/vhffs-api/examples/create_user.pl
===================================================================
--- trunk/vhffs-api/examples/create_user.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_user.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Object;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username password\n") unless(@ARGV == 2);
Modified: trunk/vhffs-api/examples/create_web.pl
===================================================================
--- trunk/vhffs-api/examples/create_web.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_web.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
use Vhffs::Object;
use Vhffs::Services::Web;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 servername description owner_username owner_groupname\n") unless(@ARGV == 4);
Modified: trunk/vhffs-api/examples/create_web_panel.pl
===================================================================
--- trunk/vhffs-api/examples/create_web_panel.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/create_web_panel.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Panel::Web;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 servername description owner_username owner_groupname\n") unless(@ARGV == 4);
Modified: trunk/vhffs-api/examples/delbox.pl
===================================================================
--- trunk/vhffs-api/examples/delbox.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/delbox.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -7,7 +7,7 @@
use Vhffs;
use Vhffs::Services::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 mail_domain box\n") unless(@ARGV == 2);
Modified: trunk/vhffs-api/examples/delete_acl.pl
===================================================================
--- trunk/vhffs-api/examples/delete_acl.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/delete_acl.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
use Vhffs::Object;
use Vhffs::Services::Web;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 servername username\n") if(@ARGV != 2);
Modified: trunk/vhffs-api/examples/generate_password.pl
===================================================================
--- trunk/vhffs-api/examples/generate_password.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/generate_password.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs::User;
use Vhffs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/get_list.pl
===================================================================
--- trunk/vhffs-api/examples/get_list.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/get_list.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Services::MailingList;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 mladdress\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/join_group.pl
===================================================================
--- trunk/vhffs-api/examples/join_group.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/join_group.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs::Group;
use Vhffs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username groupname\n") unless(@ARGV == 2);
Modified: trunk/vhffs-api/examples/list_themes.pl
===================================================================
--- trunk/vhffs-api/examples/list_themes.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/list_themes.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -7,7 +7,7 @@
use Vhffs;
use Data::Dumper;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my @themes = Vhffs::Panel::list_themes( $vhffs );
Modified: trunk/vhffs-api/examples/mailuser.pl
===================================================================
--- trunk/vhffs-api/examples/mailuser.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/mailuser.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -12,7 +12,7 @@
use Vhffs::Services::MailUser;
use Vhffs::Panel::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/mailuser_add_box.pl
===================================================================
--- trunk/vhffs-api/examples/mailuser_add_box.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/mailuser_add_box.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -12,7 +12,7 @@
use Vhffs::Services::MailUser;
use Vhffs::Panel::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username password\n") unless(@ARGV == 2);
Modified: trunk/vhffs-api/examples/modify_acl.pl
===================================================================
--- trunk/vhffs-api/examples/modify_acl.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/modify_acl.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Services::Web;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 servername username newlevel\n") unless(@ARGV == 3);
Modified: trunk/vhffs-api/examples/modify_user.pl
===================================================================
--- trunk/vhffs-api/examples/modify_user.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/modify_user.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -7,7 +7,7 @@
use Vhffs::User;
use Vhffs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username new_firstname\n") unless(@ARGV == 2);
Modified: trunk/vhffs-api/examples/perm_for_user.pl
===================================================================
--- trunk/vhffs-api/examples/perm_for_user.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/perm_for_user.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
use Vhffs::Services::Mysql;
use Vhffs::Services::Web;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 servername username\n") unless(@ARGV == 2);
Modified: trunk/vhffs-api/examples/print_domain.pl
===================================================================
--- trunk/vhffs-api/examples/print_domain.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/print_domain.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Services::DNS;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 domainname\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_acl_per_object.pl
===================================================================
--- trunk/vhffs-api/examples/show_acl_per_object.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_acl_per_object.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Services::Mysql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 dbname\n\tShows ACL for MySQL service dbname\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_dns_per_group.pl
===================================================================
--- trunk/vhffs-api/examples/show_dns_per_group.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_dns_per_group.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Panel::DNS;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 groupname\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_dns_per_user.pl
===================================================================
--- trunk/vhffs-api/examples/show_dns_per_user.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_dns_per_user.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Panel::DNS;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_dumper_cvs.pl
===================================================================
--- trunk/vhffs-api/examples/show_dumper_cvs.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_dumper_cvs.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -21,7 +21,7 @@
my $backend;
my %infos;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
$config = $vhffs->get_config;
Modified: trunk/vhffs-api/examples/show_dumper_group.pl
===================================================================
--- trunk/vhffs-api/examples/show_dumper_group.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_dumper_group.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs::Group;
use Vhffs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 groupname\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_dumper_object.pl
===================================================================
--- trunk/vhffs-api/examples/show_dumper_object.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_dumper_object.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -12,7 +12,7 @@
use Vhffs::Services::Web;
use Vhffs::Panel::Group;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 objectID\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_dumper_user.pl
===================================================================
--- trunk/vhffs-api/examples/show_dumper_user.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_dumper_user.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs::User;
use Vhffs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_groups_per_user.pl
===================================================================
--- trunk/vhffs-api/examples/show_groups_per_user.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_groups_per_user.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Panel::Group;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 username\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_last_users.pl
===================================================================
--- trunk/vhffs-api/examples/show_last_users.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_last_users.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Panel::User;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $users = Vhffs::Panel::User::get_last_users( $vhffs );
Modified: trunk/vhffs-api/examples/show_mail_conf.pl
===================================================================
--- trunk/vhffs-api/examples/show_mail_conf.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_mail_conf.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -16,7 +16,7 @@
my $backend;
my %infos;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
$config = $vhffs->get_config;
my $cmail = $config->get_service( "dns" );
Modified: trunk/vhffs-api/examples/show_mail_per_group.pl
===================================================================
--- trunk/vhffs-api/examples/show_mail_per_group.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_mail_per_group.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
use Vhffs;
use Vhffs::Panel::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 groupname\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/show_members_from_list.pl
===================================================================
--- trunk/vhffs-api/examples/show_members_from_list.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/show_members_from_list.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -8,7 +8,7 @@
use Vhffs;
use Vhffs::Services::MailingList;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage: $0 mladdress\n") unless(@ARGV == 1);
Modified: trunk/vhffs-api/examples/stats.pl
===================================================================
--- trunk/vhffs-api/examples/stats.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/examples/stats.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -6,7 +6,7 @@
use Vhffs;
use Vhffs::Stats;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $stats = new Vhffs::Stats( $vhffs );
print "Users total : ";
Modified: trunk/vhffs-api/src/Vhffs/Group.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Group.pm 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/src/Vhffs/Group.pm 2012-03-03 15:14:54 UTC (rev 2103)
@@ -46,7 +46,7 @@
=head1 SYNOPSIS
use Vhffs;
- my $vhffs = init Vhffs or die();
+ my $vhffs = new Vhffs or die();
my $group = Vhffs::Group::get_by_groupname( $vhffs , 'mygroup' );
defined $group ? print "Group exists\n" : print "Group does not exist\n";
...
Modified: trunk/vhffs-api/src/Vhffs/Panel/Avatar.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Panel/Avatar.pm 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/src/Vhffs/Panel/Avatar.pm 2012-03-03 15:14:54 UTC (rev 2103)
@@ -266,7 +266,7 @@
use Vhffs;
use Vhffs::Panel::Avatar;
- my $vhffs = init Vhffs;
+ my $vhffs = new Vhffs;
....
(considers that you create or handle an object in $object var)
Modified: trunk/vhffs-api/src/Vhffs/Stats.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Stats.pm 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/src/Vhffs/Stats.pm 2012-03-03 15:14:54 UTC (rev 2103)
@@ -37,7 +37,7 @@
=head1 SYNOPSIS
- my $vhffs = init Vhffs(...);
+ my $vhffs = new Vhffs(...);
my $stats = new Vhffs::Stats($vhffs);
my $lstcount = $stats->get_lists_in_moderation;
Modified: trunk/vhffs-api/src/Vhffs/User.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/User.pm 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/src/Vhffs/User.pm 2012-03-03 15:14:54 UTC (rev 2103)
@@ -49,7 +49,7 @@
=head1 SYNOPSIS
use Vhffs;
- my $vhffs = init Vhffs or die();
+ my $vhffs = new Vhffs or die();
my $user = Vhffs::User::get_by_username( $vhffs , 'myuser' );
defined $user ? print "User exists\n" : print "User does not exist\n";
...
Modified: trunk/vhffs-api/src/Vhffs/UserGroup.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/UserGroup.pm 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/src/Vhffs/UserGroup.pm 2012-03-03 15:14:54 UTC (rev 2103)
@@ -49,7 +49,7 @@
=head1 SYNOPSIS
use Vhffs::UserGroup;
- my $vhffs = init Vhffs or die();
+ my $vhffs = new Vhffs or die();
my $usergroups = Vhffs::UserGroup::getall( $vhffs, Vhffs::Constants::WAITING_FOR_CREATION );
foreach ( @{$usergroups} ) {
my $user = $usergroup->get_user;
Modified: trunk/vhffs-api/src/Vhffs.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs.pm 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-api/src/Vhffs.pm 2012-03-03 15:14:54 UTC (rev 2103)
@@ -45,13 +45,13 @@
=head1 SYNOPSIS
use Vhffs;
- my $vhffs = init Vhffs or die();
+ my $vhffs = new Vhffs or die();
my $conf = $vhffs->get_config;
=head1 DESCRIPTION
The Vhffs object is the main Vhffs class. When you
-invoke init Vhffs, it creates a Vhffs object that read configuration
+invoke new Vhffs object that read configuration
and create a Vhffs::Conf object then create by default a connection to backend.
=head1 METHODS
@@ -61,10 +61,10 @@
=head1 init( \%opts )
-my $vhffs = init Vhffs( { backend => 1 } ) or die();
+my $vhffs = new Vhffs( { backend => 1 } ) or die();
=cut
-sub init {
+sub new {
my $class = ref( $_[0] ) || $_[0];
my $opt = $_[1];
Modified: trunk/vhffs-cron/src/vhffscron.pl
===================================================================
--- trunk/vhffs-cron/src/vhffscron.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-cron/src/vhffscron.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -58,7 +58,7 @@
#select(STDOUT);
#$| = 1;
-my $vhffs = init Vhffs( { backend => 0 } );
+my $vhffs = new Vhffs( { backend => 0 } );
exit 1 unless defined $vhffs;
$vhffs->connect;
Modified: trunk/vhffs-irc/modobot.pl
===================================================================
--- trunk/vhffs-irc/modobot.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-irc/modobot.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -40,7 +40,7 @@
# Connections to servers
-my $vhffs = init Vhffs( { backend => 0 } );
+my $vhffs = new Vhffs( { backend => 0 } );
exit 1 unless defined $vhffs;
$vhffs->connect;
Modified: trunk/vhffs-jabber/vhffspipe.pl
===================================================================
--- trunk/vhffs-jabber/vhffspipe.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-jabber/vhffspipe.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -9,7 +9,7 @@
# Flush output immediately.
$| = 1;
-my $vhffs = init Vhffs( { backend => 0 } );
+my $vhffs = new Vhffs( { backend => 0 } );
exit 1 unless defined $vhffs;
$vhffs->connect;
Modified: trunk/vhffs-listengine/src/listengine.pl
===================================================================
--- trunk/vhffs-listengine/src/listengine.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-listengine/src/listengine.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -57,7 +57,7 @@
my $action = shift;
my $lpart = shift;
my $domain = shift;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $listengineconfig = $vhffs->get_config->get_listengine;
Modified: trunk/vhffs-panel/index.pl
===================================================================
--- trunk/vhffs-panel/index.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-panel/index.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -46,7 +46,7 @@
# -- prefork
CGI->compile();
-my $vhffs = init Vhffs( { backend => 0 } );
+my $vhffs = new Vhffs( { backend => 0 } );
exit 1 unless defined $vhffs;
$vhffs->connect;
Modified: trunk/vhffs-public/index.pl
===================================================================
--- trunk/vhffs-public/index.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-public/index.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -46,7 +46,7 @@
# -- prefork
CGI->compile();
-my $vhffs = init Vhffs( { backend => 0 } );
+my $vhffs = new Vhffs( { backend => 0 } );
exit 1 unless defined $vhffs;
$vhffs->connect;
Modified: trunk/vhffs-robots/src/bazaar.pl
===================================================================
--- trunk/vhffs-robots/src/bazaar.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/bazaar.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Bazaar;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'bazaar' );
Modified: trunk/vhffs-robots/src/broadcast.pl
===================================================================
--- trunk/vhffs-robots/src/broadcast.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/broadcast.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Broadcast;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'mailings' );
Modified: trunk/vhffs-robots/src/cron.pl
===================================================================
--- trunk/vhffs-robots/src/cron.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/cron.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Cron;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'cron' );
Modified: trunk/vhffs-robots/src/cvs.pl
===================================================================
--- trunk/vhffs-robots/src/cvs.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/cvs.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Cvs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'cvs' );
Modified: trunk/vhffs-robots/src/dns.pl
===================================================================
--- trunk/vhffs-robots/src/dns.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/dns.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -36,7 +36,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::DNS;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'dns' );
Modified: trunk/vhffs-robots/src/git.pl
===================================================================
--- trunk/vhffs-robots/src/git.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/git.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -36,7 +36,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Git;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'git' );
Modified: trunk/vhffs-robots/src/group.pl
===================================================================
--- trunk/vhffs-robots/src/group.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/group.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -36,7 +36,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Group;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'group' );
Modified: trunk/vhffs-robots/src/group_quota.pl
===================================================================
--- trunk/vhffs-robots/src/group_quota.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/group_quota.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Group;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'quotagroup' );
Modified: trunk/vhffs-robots/src/mail.pl
===================================================================
--- trunk/vhffs-robots/src/mail.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/mail.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Mail;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
my $mailconf = $vhffs->get_config->get_service('mail');
Modified: trunk/vhffs-robots/src/mailinglist.pl
===================================================================
--- trunk/vhffs-robots/src/mailinglist.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/mailinglist.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::MailingList;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'ml' );
Modified: trunk/vhffs-robots/src/mailinglist_mhonarc.pl
===================================================================
--- trunk/vhffs-robots/src/mailinglist_mhonarc.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/mailinglist_mhonarc.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::MailingList;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
my $listengineconfig = $vhffs->get_config->get_listengine;
Modified: trunk/vhffs-robots/src/mercurial.pl
===================================================================
--- trunk/vhffs-robots/src/mercurial.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/mercurial.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Mercurial;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'mercurial' );
Modified: trunk/vhffs-robots/src/mysql.pl
===================================================================
--- trunk/vhffs-robots/src/mysql.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/mysql.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Mysql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'mysql' );
Modified: trunk/vhffs-robots/src/mysql_dump.pl
===================================================================
--- trunk/vhffs-robots/src/mysql_dump.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/mysql_dump.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -40,7 +40,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Mysql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
my $mysqlconf = $vhffs->get_config->get_service('mysql');
Modified: trunk/vhffs-robots/src/object_cleanup.pl
===================================================================
--- trunk/vhffs-robots/src/object_cleanup.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/object_cleanup.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -36,7 +36,7 @@
use Vhffs::Robots;
use Vhffs::ObjectFactory;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'object' );
Modified: trunk/vhffs-robots/src/pgsql.pl
===================================================================
--- trunk/vhffs-robots/src/pgsql.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/pgsql.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Pgsql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'pgsql' );
Modified: trunk/vhffs-robots/src/pgsql_dump.pl
===================================================================
--- trunk/vhffs-robots/src/pgsql_dump.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/pgsql_dump.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -40,7 +40,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Pgsql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
my $pgsqlconf = $vhffs->get_config->get_service('pgsql');
Modified: trunk/vhffs-robots/src/repository.pl
===================================================================
--- trunk/vhffs-robots/src/repository.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/repository.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -37,7 +37,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Repository;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'repository' );
Modified: trunk/vhffs-robots/src/repository_quota.pl
===================================================================
--- trunk/vhffs-robots/src/repository_quota.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/repository_quota.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -37,7 +37,7 @@
use Vhffs::Robots::Group;
use Vhffs::Robots::User;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs , 'quotarepository' );
Modified: trunk/vhffs-robots/src/repository_stats.pl
===================================================================
--- trunk/vhffs-robots/src/repository_stats.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/repository_stats.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Repository;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'repositorystats' );
Modified: trunk/vhffs-robots/src/svn.pl
===================================================================
--- trunk/vhffs-robots/src/svn.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/svn.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Svn;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'svn' );
Modified: trunk/vhffs-robots/src/user.pl
===================================================================
--- trunk/vhffs-robots/src/user.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/user.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::User;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'user' );
Modified: trunk/vhffs-robots/src/user_cleanup.pl
===================================================================
--- trunk/vhffs-robots/src/user_cleanup.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/user_cleanup.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -37,7 +37,7 @@
use Vhffs::Robots;
use Vhffs::User;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'user' );
Modified: trunk/vhffs-robots/src/user_quota.pl
===================================================================
--- trunk/vhffs-robots/src/user_quota.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/user_quota.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::User;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'quotauser' );
Modified: trunk/vhffs-robots/src/usergroup.pl
===================================================================
--- trunk/vhffs-robots/src/usergroup.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/usergroup.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::UserGroup;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs , 'usergroup' );
Modified: trunk/vhffs-robots/src/web.pl
===================================================================
--- trunk/vhffs-robots/src/web.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/web.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Web;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'web' );
Modified: trunk/vhffs-robots/src/web_stats.pl
===================================================================
--- trunk/vhffs-robots/src/web_stats.pl 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-robots/src/web_stats.pl 2012-03-03 15:14:54 UTC (rev 2103)
@@ -35,7 +35,7 @@
use lib '%VHFFS_LIB_DIR%';
use Vhffs::Robots::Web;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
Vhffs::Robots::lock( $vhffs, 'webstats' );
Modified: trunk/vhffs-tools/src/vhffs-box-add
===================================================================
--- trunk/vhffs-tools/src/vhffs-box-add 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-box-add 2012-03-03 15:14:54 UTC (rev 2103)
@@ -15,7 +15,7 @@
use Vhffs::Services::Mail;
use Vhffs::User;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die("Usage $0 maildomain local_part password\n") unless(@ARGV == 3);
Modified: trunk/vhffs-tools/src/vhffs-dumpmysql
===================================================================
--- trunk/vhffs-tools/src/vhffs-dumpmysql 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-dumpmysql 2012-03-03 15:14:54 UTC (rev 2103)
@@ -16,7 +16,7 @@
use Vhffs::Services::Mysql;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $objs = Vhffs::Services::Mysql::getall( $vhffs , Vhffs::Constants::ACTIVATED );
my $obj;
Modified: trunk/vhffs-tools/src/vhffs-groupadd
===================================================================
--- trunk/vhffs-tools/src/vhffs-groupadd 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-groupadd 2012-03-03 15:14:54 UTC (rev 2103)
@@ -5,7 +5,7 @@
use Vhffs::Group;
use Vhffs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my ($groupname, $realname, $owner_uid, $description);
Modified: trunk/vhffs-tools/src/vhffs-groupdel
===================================================================
--- trunk/vhffs-tools/src/vhffs-groupdel 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-groupdel 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
exit( 1 );
}
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $group = Vhffs::Group::get_by_groupname( $vhffs , $ARGV[0] );
Modified: trunk/vhffs-tools/src/vhffs-groupinfo
===================================================================
--- trunk/vhffs-tools/src/vhffs-groupinfo 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-groupinfo 2012-03-03 15:14:54 UTC (rev 2103)
@@ -4,7 +4,7 @@
use Vhffs::Group;
use Vhffs;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $groups = Vhffs::Group::getall( $vhffs , undef , $ARGV[0] );
Modified: trunk/vhffs-tools/src/vhffs-makeadmin
===================================================================
--- trunk/vhffs-tools/src/vhffs-makeadmin 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-makeadmin 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
exit( 1 );
}
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $user = Vhffs::User::get_by_username($vhffs, $ARGV[0]);
if ( !defined $user ) {
die "User >$ARGV[0]< does not exists !\n";
Modified: trunk/vhffs-tools/src/vhffs-managedns
===================================================================
--- trunk/vhffs-tools/src/vhffs-managedns 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-managedns 2012-03-03 15:14:54 UTC (rev 2103)
@@ -14,7 +14,7 @@
use Vhffs::User;
my $ui = new Curses::UI(-clear_on_exit => 1);
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my ($w_start,
$w_new_domain, $w_list_domains,
Modified: trunk/vhffs-tools/src/vhffs-managemail
===================================================================
--- trunk/vhffs-tools/src/vhffs-managemail 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-managemail 2012-03-03 15:14:54 UTC (rev 2103)
@@ -15,7 +15,7 @@
use Vhffs::User;
my $ui = new Curses::UI(-clear_on_exit => 1);
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my ($w_start,
$w_new_domain, $w_list_domains,
Modified: trunk/vhffs-tools/src/vhffs-moderate
===================================================================
--- trunk/vhffs-tools/src/vhffs-moderate 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-moderate 2012-03-03 15:14:54 UTC (rev 2103)
@@ -12,7 +12,7 @@
use Vhffs::Object;
use Vhffs::ObjectFactory;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
sub list_moderation
Modified: trunk/vhffs-tools/src/vhffs-passwd
===================================================================
--- trunk/vhffs-tools/src/vhffs-passwd 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-passwd 2012-03-03 15:14:54 UTC (rev 2103)
@@ -10,7 +10,7 @@
exit( 1 );
}
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $user = Vhffs::User::get_by_username( $vhffs , $ARGV[0] );
Modified: trunk/vhffs-tools/src/vhffs-quota
===================================================================
--- trunk/vhffs-tools/src/vhffs-quota 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-quota 2012-03-03 15:14:54 UTC (rev 2103)
@@ -28,7 +28,7 @@
my $size = $ARGV[2] if ( $#ARGV >= 2 );
#Init VHFFS subsystem
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
#Create new group
my $group = Vhffs::Group::get_by_groupname( $vhffs , $groupname );
Modified: trunk/vhffs-tools/src/vhffs-useradd
===================================================================
--- trunk/vhffs-tools/src/vhffs-useradd 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-useradd 2012-03-03 15:14:54 UTC (rev 2103)
@@ -7,7 +7,7 @@
use Vhffs::Constants;
use Term::ReadPassword;
use Vhffs::Functions;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my ($username, $password, $conf_password, $access_level, $mail, $firstname, $lastname, $city, $zipcode, $country, $address);
Modified: trunk/vhffs-tools/src/vhffs-userdel
===================================================================
--- trunk/vhffs-tools/src/vhffs-userdel 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-userdel 2012-03-03 15:14:54 UTC (rev 2103)
@@ -11,7 +11,7 @@
exit( 1 );
}
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $user = Vhffs::User::get_by_username( $vhffs , $ARGV[0] );
Modified: trunk/vhffs-tools/src/vhffs-userinfo
===================================================================
--- trunk/vhffs-tools/src/vhffs-userinfo 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-userinfo 2012-03-03 15:14:54 UTC (rev 2103)
@@ -5,7 +5,7 @@
use Vhffs;
use Vhffs::Functions;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $arg;
$arg = $ARGV[0];
Modified: trunk/vhffs-tools/src/vhffs-usermod
===================================================================
--- trunk/vhffs-tools/src/vhffs-usermod 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-usermod 2012-03-03 15:14:54 UTC (rev 2103)
@@ -13,7 +13,7 @@
exit( 1 );
}
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
my $user = Vhffs::User::get_by_username( $vhffs , $ARGV[0] );
my $mod = $ARGV[1];
my $value = $ARGV[2];
Modified: trunk/vhffs-tools/src/vhffs-webdir
===================================================================
--- trunk/vhffs-tools/src/vhffs-webdir 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-webdir 2012-03-03 15:14:54 UTC (rev 2103)
@@ -16,7 +16,7 @@
exit( -1 );
}
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
exit 1 unless defined $vhffs;
my $web = Vhffs::Services::Web::get_by_servername( $vhffs, $ARGV[0] );
Modified: trunk/vhffs-tools/src/vhffs-webstats
===================================================================
--- trunk/vhffs-tools/src/vhffs-webstats 2012-03-03 15:08:21 UTC (rev 2102)
+++ trunk/vhffs-tools/src/vhffs-webstats 2012-03-03 15:14:54 UTC (rev 2103)
@@ -31,7 +31,7 @@
$obandwidth = $ohits = $opages = $ovisits = 1 unless $obandwidth or $ohits or $opages or $ovisits;
-my $vhffs = init Vhffs;
+my $vhffs = new Vhffs;
die "ERROR: Cannot init VHFFS !!!\n" unless defined $vhffs;
my $webs = Vhffs::Services::Web::getall( $vhffs , Vhffs::Constants::ACTIVATED );