| [vhffs-dev] [svn] commit: r109 - in /trunk: vhffs-api/src/Vhffs/Panel/ vhffs-panel/ vhffs-panel/admin/ vhffs-robots/src/ |
[ Thread Index |
Date Index
| More vhffs.org/vhffs-dev Archives
]
- To: vhffs-dev@xxxxxxxxx
- Subject: [vhffs-dev] [svn] commit: r109 - in /trunk: vhffs-api/src/Vhffs/Panel/ vhffs-panel/ vhffs-panel/admin/ vhffs-robots/src/
- From: vhffs-dev@xxxxxxxxx
- Date: Thu Dec 15 10:28:04 2005 +00
Author: soda
Date: Thu Dec 15 11:27:53 2005
New Revision: 109
Log:
Fix errors with lock of robots
Modified:
trunk/vhffs-api/src/Vhffs/Panel/Main.pm
trunk/vhffs-panel/admin/moderation.pl
trunk/vhffs-panel/auth.pl
trunk/vhffs-robots/src/create_cvs.pl
trunk/vhffs-robots/src/create_dns.pl
trunk/vhffs-robots/src/create_groups.pl
trunk/vhffs-robots/src/create_mail.pl
trunk/vhffs-robots/src/create_pgsql.pl
trunk/vhffs-robots/src/create_svn.pl
trunk/vhffs-robots/src/create_web.pl
trunk/vhffs-robots/src/cvs_fixperms.pl
trunk/vhffs-robots/src/delete_cvs.pl
trunk/vhffs-robots/src/delete_dns.pl
trunk/vhffs-robots/src/delete_pgsql.pl
trunk/vhffs-robots/src/dump_mysql.pl
trunk/vhffs-robots/src/fix_quota.pl
trunk/vhffs-robots/src/modify_mysql.pl
trunk/vhffs-robots/src/modify_pgsql.pl
trunk/vhffs-robots/src/refused_cvs.pl
trunk/vhffs-robots/src/refused_dns.pl
trunk/vhffs-robots/src/refused_groups.pl
trunk/vhffs-robots/src/refused_mail.pl
trunk/vhffs-robots/src/refused_ml.pl
trunk/vhffs-robots/src/refused_mysql.pl
trunk/vhffs-robots/src/refused_postgres.pl
trunk/vhffs-robots/src/refused_svn.pl
trunk/vhffs-robots/src/svn_public.pl
Modified: trunk/vhffs-api/src/Vhffs/Panel/Main.pm
==============================================================================
--- trunk/vhffs-api/src/Vhffs/Panel/Main.pm (original)
+++ trunk/vhffs-api/src/Vhffs/Panel/Main.pm Thu Dec 15 11:27:53 2005
@@ -16,6 +16,39 @@
use Vhffs::Panel::Menu;
use Vhffs::Panel::User;
+sub cook_lang
+{
+ use CGI;
+ my $vhffs;
+ my $cgi;
+ my $cookie;
+ my $lang;
+
+ $vhffs = shift;
+ $cgi = new CGI;
+
+ if( ! CGI->cookie( "lang" ) )
+ {
+ if( CGI->param( "lang" ) )
+ {
+ $lang = CGI->param( "lang" );
+ $cookie = CGI->cookie( "lang" => $lang );
+ }
+ else
+ {
+ return;
+ }
+ }
+ else
+ {
+ $cookie = CGI->cookie( "lang" );
+ }
+ setlocale(LC_ALL, $lang );
+ bindtextdomain("vhffs", $vhffs->get_config->get_intldir);
+ textdomain("vhffs");
+
+}
+
sub new
{
my $bad_news;
@@ -33,7 +66,6 @@
my $user;
-
# recuperation du cookie et de la session
my $sid = CGI->cookie("session");
if(!$sid) {
@@ -68,9 +100,12 @@
}
else
{
- setlocale(LC_ALL, Vhffs::Panel::User::get_lang( $user ) );
- bindtextdomain("vhffs", $vhffs->get_config->get_intldir);
- textdomain("vhffs");
+ if( defined Vhffs::Panel::User::get_lang( $user ) )
+ {
+ setlocale(LC_ALL, Vhffs::Panel::User::get_lang( $user ) );
+ bindtextdomain("vhffs", $vhffs->get_config->get_intldir);
+ textdomain("vhffs");
+ }
}
}
Modified: trunk/vhffs-panel/admin/moderation.pl
==============================================================================
--- trunk/vhffs-panel/admin/moderation.pl (original)
+++ trunk/vhffs-panel/admin/moderation.pl Thu Dec 15 11:27:53 2005
@@ -54,7 +54,7 @@
#Treat Groups to moderate
use Vhffs::Panel::Group;
- $template->param( TEXT_GROUP => gettext("Groups to validate") );
+ $template->param( TEXT_GROUP => gettext("Groups awaiting validation") );
my $groups = Vhffs::Group::getall( $vhffs , Vhffs::Constants::WAITING_FOR_VALIDATION );
$output = "";
@@ -97,7 +97,7 @@
{
#Treat Website to moderate
use Vhffs::Services::Httpd;
- $template->param( TEXT_WEB => gettext("Web Area to validate") );
+ $template->param( TEXT_WEB => gettext("Web Area awaiting validation") );
my $webs = Vhffs::Services::Httpd::getall( $vhffs , Vhffs::Constants::WAITING_FOR_VALIDATION);
my $web;
$output = "";
@@ -227,7 +227,7 @@
{
#Treat Mail domains to moderate
use Vhffs::Panel::Mailinglist;
- $template->param( TEXT_MAILING => gettext("List to validate") );
+ $template->param( TEXT_MAILING => gettext("List awaiting validation") );
my $mls = Vhffs::Services::Mailing::getall( $vhffs , Vhffs::Constants::WAITING_FOR_VALIDATION );
$output = "";
@@ -316,7 +316,7 @@
{
#Treat Mail domains to moderate
use Vhffs::Panel::Mail;
- $template->param( TEXT_MAIL => gettext("Mail Area to validate") );
+ $template->param( TEXT_MAIL => gettext("Mail Area awaiting validation") );
my $mails = Vhffs::Services::Mail::getall( $vhffs , Vhffs::Constants::WAITING_FOR_VALIDATION );
$output = "";
@@ -401,7 +401,7 @@
{
#Treat Mail domains to moderate
use Vhffs::Services::Postgres;
- $template->param( TEXT_POSTGRES => gettext("Postgres database to validate") );
+ $template->param( TEXT_POSTGRES => gettext("Postgres database awaiting validation") );
my $dbs = Vhffs::Services::Postgres::getall( $vhffs , Vhffs::Constants::WAITING_FOR_VALIDATION );
$output = "";
Modified: trunk/vhffs-panel/auth.pl
==============================================================================
--- trunk/vhffs-panel/auth.pl (original)
+++ trunk/vhffs-panel/auth.pl Thu Dec 15 11:27:53 2005
@@ -9,17 +9,15 @@
use CGI;
use Vhffs::Main;
use Vhffs::Panel::Main;
-
use Vhffs::Constants;
+#Set the language cookie
+
my $vhffs = init Vhffs::Main;
+my $cookie = Vhffs::Panel::Main::cook_lang( $vhffs );
my $templatedir = $vhffs->get_config->get_templatedir;
my $cgi = new CGI;
-
-setlocale(LC_ALL, CGI->cookie("language") );
-bindtextdomain("vhffs", $vhffs->get_config->get_intldir);
-textdomain("vhffs");
my $template = new HTML::Template( filename => $templatedir."/main/auth.tmpl", associate => $cgi );
@@ -50,4 +48,4 @@
$template->param( TEXT_PUBLIC => gettext( "Go to public area" ) );
}
-display_light Vhffs::Panel::Main($template);
+display_light Vhffs::Panel::Main( $template );
Modified: trunk/vhffs-robots/src/create_cvs.pl
==============================================================================
--- trunk/vhffs-robots/src/create_cvs.pl (original)
+++ trunk/vhffs-robots/src/create_cvs.pl Thu Dec 15 11:27:53 2005
@@ -5,7 +5,7 @@
use Vhffs::Robots;
use Vhffs::Main;
-lock;
+Vhffs::Robots::lock;
my $main = init Vhffs::Main;
@@ -24,6 +24,6 @@
}
}
-unlock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/create_dns.pl
==============================================================================
--- trunk/vhffs-robots/src/create_dns.pl (original)
+++ trunk/vhffs-robots/src/create_dns.pl Thu Dec 15 11:27:53 2005
@@ -7,7 +7,7 @@
use strict;
-lock;
+Vhffs::Robots::lock;
my $main = init Vhffs::Main;
my $tocreate = Vhffs::Services::DNS::getall( $main , Vhffs::Constants::WAITING_FOR_CREATION );
@@ -31,6 +31,6 @@
}
}
-unlock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/create_groups.pl
==============================================================================
--- trunk/vhffs-robots/src/create_groups.pl (original)
+++ trunk/vhffs-robots/src/create_groups.pl Thu Dec 15 11:27:53 2005
@@ -6,7 +6,7 @@
use Vhffs::Robots;
use Vhffs::Robots::Group;
-lock;
+Vhffs::Robots::lock;
my $main = init Vhffs::Main;
my $groups = Vhffs::Group::getall( $main , Vhffs::Constants::WAITING_FOR_CREATION );
@@ -24,6 +24,6 @@
}
}
-unlock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/create_mail.pl
==============================================================================
--- trunk/vhffs-robots/src/create_mail.pl (original)
+++ trunk/vhffs-robots/src/create_mail.pl Thu Dec 15 11:27:53 2005
@@ -7,7 +7,7 @@
use Vhffs::Robots;
use Vhffs::Main;
-lock;
+Vhffs::Robots::lock;
my $main = init Vhffs::Main;
my $mails = Vhffs::Services::Mail::getall( $main , Vhffs::Constants::WAITING_FOR_CREATION );
@@ -28,7 +28,7 @@
}
}
-unlock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/create_pgsql.pl
==============================================================================
--- trunk/vhffs-robots/src/create_pgsql.pl (original)
+++ trunk/vhffs-robots/src/create_pgsql.pl Thu Dec 15 11:27:53 2005
@@ -5,7 +5,7 @@
use Vhffs::Main;
use Vhffs::Robots;
-lock();
+Vhffs::Robots::lock();
my $main = init Vhffs::Main;
my $dbs = Vhffs::Services::Postgres::getall( $main );
@@ -24,5 +24,5 @@
}
-unlock();
+Vhffs::Robots::unlock();
exit( 0 );
Modified: trunk/vhffs-robots/src/create_svn.pl
==============================================================================
--- trunk/vhffs-robots/src/create_svn.pl (original)
+++ trunk/vhffs-robots/src/create_svn.pl Thu Dec 15 11:27:53 2005
@@ -6,7 +6,7 @@
use Vhffs::Services::Svn;
use Vhffs::Constants;
-lock;
+Vhffs::Robots::lock;
my $vhffs = init Vhffs::Main;
my $repos = Vhffs::Services::Svn::getall( $vhffs , Vhffs::Constants::WAITING_FOR_CREATION);
@@ -28,5 +28,5 @@
}
-unlock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/create_web.pl
==============================================================================
--- trunk/vhffs-robots/src/create_web.pl (original)
+++ trunk/vhffs-robots/src/create_web.pl Thu Dec 15 11:27:53 2005
@@ -26,5 +26,5 @@
Vhffs::Robots::unlock();
-Vhffs::Robots::unlock();
+exit 0;
Modified: trunk/vhffs-robots/src/cvs_fixperms.pl
==============================================================================
--- trunk/vhffs-robots/src/cvs_fixperms.pl (original)
+++ trunk/vhffs-robots/src/cvs_fixperms.pl Thu Dec 15 11:27:53 2005
@@ -15,7 +15,7 @@
use Vhffs::Constants;
use Vhffs::Services::Cvs;
-lock;
+Vhffs::Robots::lock;
my $main = init Vhffs::Main;
my $cvss = Vhffs::Services::Cvs::getall( $main , Vhffs::Constants::WAITING_FOR_MODIFICATION );
@@ -41,6 +41,6 @@
$cvs->commit;
}
-unlock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/delete_cvs.pl
==============================================================================
--- trunk/vhffs-robots/src/delete_cvs.pl (original)
+++ trunk/vhffs-robots/src/delete_cvs.pl Thu Dec 15 11:27:53 2005
@@ -7,7 +7,7 @@
use Vhffs::Robots;
use Vhffs::Main;
-lock;
+Vhffs::Robots::lock;
my $main = init Vhffs::Main;
my $lol = Vhffs::Services::Cvs::getall( $main , Vhffs::Constants::TO_DELETE );
@@ -38,6 +38,6 @@
}
-unlock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/delete_dns.pl
==============================================================================
--- trunk/vhffs-robots/src/delete_dns.pl (original)
+++ trunk/vhffs-robots/src/delete_dns.pl Thu Dec 15 11:27:53 2005
@@ -6,7 +6,7 @@
use strict;
-lock;
+Vhffs::Robots::lock;
my $main = init Vhffs::Main;
my $dns;
@@ -28,5 +28,5 @@
}
-unlock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/delete_pgsql.pl
==============================================================================
--- trunk/vhffs-robots/src/delete_pgsql.pl (original)
+++ trunk/vhffs-robots/src/delete_pgsql.pl Thu Dec 15 11:27:53 2005
@@ -1,12 +1,12 @@
#!/usr/bin/perl
-use Vhffs::Robots;
+use Vhffs::Robots qw( vhffs_log lock unlock );
use Vhffs::Services::Postgres;
use Vhffs::Robots::Postgres;
use Vhffs::Main;
-Vhffs::Robots::lock;
+Vhffs::Robots::lock();
my $main = init Vhffs::Main;
my $dbs = Vhffs::Services::Postgres::getall( $main , Vhffs::Constants::TO_DELETE , undef , undef );
@@ -17,16 +17,15 @@
{
if( Vhffs::Robots::Postgres::delete_db( $main , $db ) < 0 )
{
- vhffs_log( "Cannot delete PostgreSQL database %s" , $db->get_dbname ));
+ vhffs_log( sprintf( "Cannot delete PostgreSQL database %s" , $db->get_dbname ));
}
else
{
- vhffs_log( "Delete PostgreSQL database %s" , $db->get_dbname ));
- }
+ vhffs_log( sprintf( "Delete PostgreSQL database %s" , $db->get_dbname ));
}
}
-Vhffs::Robots::unlock;
+Vhffs::Robots::unlock();
exit 0;
Modified: trunk/vhffs-robots/src/dump_mysql.pl
==============================================================================
--- trunk/vhffs-robots/src/dump_mysql.pl (original)
+++ trunk/vhffs-robots/src/dump_mysql.pl Thu Dec 15 11:27:53 2005
@@ -5,10 +5,13 @@
# and put it on each group directory
#
+use Vhffs::Robots;
+
+Vhffs::Robots::lock;
+
#################
#Config Stuff
my $MYSQLDUMP_BINARY = "/usr/bin/mysqldump";
-
#################
use strict;
@@ -55,3 +58,7 @@
}
# $group = new Vhffs::Group( $vhffs , Vhffs::Group::get_name_by_gid( $vhffs , $obj->get_ownergid ) );
}
+
+Vhffs::Robots::unlock;
+
+exit 0;
Modified: trunk/vhffs-robots/src/fix_quota.pl
==============================================================================
--- trunk/vhffs-robots/src/fix_quota.pl (original)
+++ trunk/vhffs-robots/src/fix_quota.pl Thu Dec 15 11:27:53 2005
@@ -6,7 +6,10 @@
use locale;
use Locale::gettext;
use Vhffs::Main;
+use Vhffs::Robots qw( vhffs_log lock unlock);
use Vhffs::Group;
+
+Vhffs::Robots::lock();
my $main = init Vhffs::Main;
my $groups = Vhffs::Group::getall( $main , Vhffs::Constants::ACTIVATED );
@@ -24,9 +27,12 @@
if( -x "/usr/sbin/setquota" )
{
$cmd = "/usr/sbin/setquota -g ".$group->get_gid ." ".$blocks." ".$blocks." ".$inodes." ".$inodes." -a ".$group->{'main'}->get_config->get_datadir;
-
system( $cmd );
+ vhffs_log( sprintf( "Update quota for group %s set %s" , $group->get_groupname , $group->get_quota ) );
}
}
}
+Vhffs::Robots::unlock();
+
+exit 0;
Modified: trunk/vhffs-robots/src/modify_mysql.pl
==============================================================================
--- trunk/vhffs-robots/src/modify_mysql.pl (original)
+++ trunk/vhffs-robots/src/modify_mysql.pl Thu Dec 15 11:27:53 2005
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use Vhffs::Robots;
+use Vhffs::Robots qw( lock , unlock , vhffs_log);
use Vhffs::Robots::Mysql;
use Vhffs::Services::Mysql;
use Vhffs::Main;
@@ -9,12 +9,19 @@
my $main = init Vhffs::Main;
-my $dbs = Vhffs::Services:::Mysql::getall( $main , Vhffs::Constants::WAITING_FOR_MODIFICATION , undef , undef );
+my $dbs = Vhffs::Services::Mysql::getall( $main , Vhffs::Constants::WAITING_FOR_MODIFICATION , undef , undef );
my $db;
foreach $db ( @{$dbs} )
{
- Vhffs::Robots::Mysql::update_db( $main , $db );
+ if( Vhffs::Robots::Mysql::update_db( $main , $db ) < 0 )
+ {
+ vhffs_log( "Error while update MySQL database" );
+ }
+ else
+ {
+ vhffs_log( sprintf( "Update MySQL database %s" , $db->get_dbname ) );
+ }
}
Vhffs::Robots::unlock;
Modified: trunk/vhffs-robots/src/modify_pgsql.pl
==============================================================================
--- trunk/vhffs-robots/src/modify_pgsql.pl (original)
+++ trunk/vhffs-robots/src/modify_pgsql.pl Thu Dec 15 11:27:53 2005
@@ -17,6 +17,6 @@
Vhffs::Robots::Postgres::update_db( $main , $db );
}
-Vhffs::Robots::lock;
+Vhffs::Robots::unlock;
exit 0;
Modified: trunk/vhffs-robots/src/refused_cvs.pl
==============================================================================
--- trunk/vhffs-robots/src/refused_cvs.pl (original)
+++ trunk/vhffs-robots/src/refused_cvs.pl Thu Dec 15 11:27:53 2005
@@ -8,8 +8,11 @@
use Vhffs::User;
use Vhffs::Group;
use Vhffs::Services::Cvs;
+use Vhffs::Robots;
use Vhffs::Robots::Cvs;
use Vhffs::Panel::User;
+
+Vhffs::Robots::lock();
my $vhffs;
my $user;
@@ -53,4 +56,5 @@
}
}
-
+Vhffs::Robots::unlock();
+exit 0;
Modified: trunk/vhffs-robots/src/refused_dns.pl
==============================================================================
--- trunk/vhffs-robots/src/refused_dns.pl (original)
+++ trunk/vhffs-robots/src/refused_dns.pl Thu Dec 15 11:27:53 2005
@@ -6,6 +6,7 @@
use strict;
use Vhffs::Main;
use Vhffs::User;
+use Vhffs::Robots;
use Vhffs::Group;
use Vhffs::Services::DNS;
use Vhffs::Panel::User;
@@ -17,6 +18,8 @@
my $object;
my $lang;
my $objects;
+
+Vhffs::Robots::lock;
$vhffs = init Vhffs::Main;
$objects = Vhffs::Services::DNS::getall( $vhffs , Vhffs::Constants::VALIDATION_REFUSED );
@@ -53,3 +56,5 @@
}
+Vhffs::Robots::unlock;
+exit 0;
Modified: trunk/vhffs-robots/src/refused_groups.pl
==============================================================================
--- trunk/vhffs-robots/src/refused_groups.pl (original)
+++ trunk/vhffs-robots/src/refused_groups.pl Thu Dec 15 11:27:53 2005
@@ -7,8 +7,11 @@
use Vhffs::Main;
use Vhffs::User;
use Vhffs::Group;
+use Vhffs::Robots;
use Vhffs::Robots::Group;
use Vhffs::Panel::User;
+
+Vhffs::Robots::lock();
my $vhffs;
my $user;
@@ -53,3 +56,5 @@
}
+Vhffs::Robots::unlock();
+exit 0;
Modified: trunk/vhffs-robots/src/refused_mail.pl
==============================================================================
--- trunk/vhffs-robots/src/refused_mail.pl (original)
+++ trunk/vhffs-robots/src/refused_mail.pl Thu Dec 15 11:27:53 2005
@@ -9,6 +9,9 @@
use Vhffs::Group;
use Vhffs::Services::Mail;
use Vhffs::Panel::User;
+use Vhffs::Robots;
+
+Vhffs::Robots::lock();
my $vhffs;
my $user;
@@ -53,3 +56,5 @@
}
+Vhffs::Robots::unlock();
+exit 0;
Modified: trunk/vhffs-robots/src/refused_ml.pl
==============================================================================
--- trunk/vhffs-robots/src/refused_ml.pl (original)
+++ trunk/vhffs-robots/src/refused_ml.pl Thu Dec 15 11:27:53 2005
@@ -5,10 +5,13 @@
use Locale::gettext;
use strict;
use Vhffs::Main;
+use Vhffs::Robots;
use Vhffs::User;
use Vhffs::Group;
use Vhffs::Services::Mailing;
use Vhffs::Panel::User;
+
+Vhffs::Robots::lock();
my $vhffs;
my $user;
@@ -52,3 +55,5 @@
}
+Vhffs::Robots::unlock();
+exit 0;
Modified: trunk/vhffs-robots/src/refused_mysql.pl
==============================================================================
--- trunk/vhffs-robots/src/refused_mysql.pl (original)
+++ trunk/vhffs-robots/src/refused_mysql.pl Thu Dec 15 11:27:53 2005
@@ -7,8 +7,11 @@
use Vhffs::Main;
use Vhffs::User;
use Vhffs::Group;
+use Vhffs::Robots;
use Vhffs::Services::Mysql;
use Vhffs::Panel::User;
+
+Vhffs::Robots::lock;
my $vhffs;
my $user;
@@ -53,3 +56,6 @@
}
+
+Vhffs::Robots::unlock();
+exit 0;
Modified: trunk/vhffs-robots/src/refused_postgres.pl
==============================================================================
--- trunk/vhffs-robots/src/refused_postgres.pl (original)
+++ trunk/vhffs-robots/src/refused_postgres.pl Thu Dec 15 11:27:53 2005
@@ -7,8 +7,11 @@
use Vhffs::Main;
use Vhffs::User;
use Vhffs::Group;
+use Vhffs::Robots;
use Vhffs::Services::Postgres;
use Vhffs::Panel::User;
+
+Vhffs::Robots::lock;
my $vhffs;
my $user;
@@ -53,3 +56,6 @@
}
+Vhffs::Robots::unlock;
+
+exit 0;
Modified: trunk/vhffs-robots/src/refused_svn.pl
==============================================================================
--- trunk/vhffs-robots/src/refused_svn.pl (original)
+++ trunk/vhffs-robots/src/refused_svn.pl Thu Dec 15 11:27:53 2005
@@ -7,8 +7,11 @@
use Vhffs::Main;
use Vhffs::User;
use Vhffs::Group;
+use Vhffs::Robots;
use Vhffs::Services::Svn;
use Vhffs::Panel::User;
+
+Vhffs::Robots::lock;
my $vhffs;
my $user;
@@ -53,3 +56,5 @@
}
+Vhffs::Robots::unlock;
+exit 0;
Modified: trunk/vhffs-robots/src/svn_public.pl
==============================================================================
--- trunk/vhffs-robots/src/svn_public.pl (original)
+++ trunk/vhffs-robots/src/svn_public.pl Thu Dec 15 11:27:53 2005
@@ -1,9 +1,12 @@
#!/usr/bin/perl
use Vhffs::Main;
+use Vhffs::Robots;
use Vhffs::Robots::Svn;
use Vhffs::Services::Svn;
use Vhffs::Constants;
+
+Vhffs::Robots::lock;
my $vhffs = init Vhffs::Main;
my $repos = Vhffs::Services::Svn::getall( $vhffs , Vhffs::Constants::WAITING_FOR_MODIFICATION );
@@ -35,3 +38,5 @@
}
}
+Vhffs::Robots::unlock;
+exit 0;