[vhffs-dev] [svn] commit: r125 - in /trunk/vhffs-robots/src: delete_users.pl delete_web.pl

[vhffs-dev@xxxxxxxxx]

Author: soda
Date: Mon Dec 19 22:46:42 2005
New Revision: 125

Log:
blablabla


Modified:
    trunk/vhffs-robots/src/delete_users.pl
    trunk/vhffs-robots/src/delete_web.pl

Modified: trunk/vhffs-robots/src/delete_users.pl
==============================================================================
--- trunk/vhffs-robots/src/delete_users.pl (original)
+++ trunk/vhffs-robots/src/delete_users.pl Mon Dec 19 22:46:42 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use Vhffs::Robots;
+use Vhffs::Robots qw( lock unlock vhffs_log );
 use Vhffs::Robots::User;
 use Vhffs::User;
 use Vhffs::Constants;

Modified: trunk/vhffs-robots/src/delete_web.pl
==============================================================================
--- trunk/vhffs-robots/src/delete_web.pl (original)
+++ trunk/vhffs-robots/src/delete_web.pl Mon Dec 19 22:46:42 2005
@@ -15,13 +15,15 @@
 
 foreach $web ( @{$webs} )
 {
+	x
+	x
 	if( Vhffs::Robots::Web::delete( $main , $web ) < 0 )
 	{
-		Vhffs::Robots::vhffs_log( "Cannot delete web %s" , $web->get_servername );
+		Vhffs::Robots::vhffs_log( sprintf( "Cannot delete web %s" , $web->get_servername ) );
 	}
 	else
 	{
-		Vhffs::Robots::vhffs_log( "Delete web %s" , $web->get_servername );
+		Vhffs::Robots::vhffs_log( sprintf( "Delete web %s" , $web->get_servername ) );
 	}
 }