[vhffs-dev] [1328] cleaned

[subversion@xxxxxxxxxxxxx]

Revision: 1328
Author:   gradator
Date:     2009-01-14 21:59:00 +0100 (Wed, 14 Jan 2009)

Log Message:
-----------
cleaned

Modified Paths:
--------------
    trunk/vhffs-robots/src/svn_websvn.pl


Modified: trunk/vhffs-robots/src/svn_websvn.pl
===================================================================
--- trunk/vhffs-robots/src/svn_websvn.pl	2009-01-14 17:05:23 UTC (rev 1327)
+++ trunk/vhffs-robots/src/svn_websvn.pl	2009-01-14 20:59:00 UTC (rev 1328)
@@ -40,29 +40,19 @@
 
 my $vhffs = init Vhffs::Main;
 
-Vhffs::Robots::lock( $vhffs , "websvn" );
+Vhffs::Robots::lock( $vhffs , 'websvn' );
 
 my $svnss = Vhffs::Services::Svn::getall( $vhffs , Vhffs::Constants::ACTIVATED );
 my $svn;
-my $svnconfdir = $vhffs->get_config->get_datadir . "/svn/conf/";
-mkdir( $svnconfdir ) if( ! -d $svnconfdir );
+my $svnconfdir = $vhffs->get_config->get_datadir . '/svn/conf/';
+mkdir $svnconfdir unless -d $svnconfdir;
 
-open( FILE , ">$svnconfdir/websvn.inc" );
-print FILE  "<?php\n";
-foreach $svn ( @{$svnss} )
-{
-	if( $svn->is_public == 1 )
-	{
-		print FILE  "\$config->addRepository(\"";
-		print FILE  $svn->get_reponame;
-		print FILE  "\",\"";
-		print FILE $svn->get_dir;
-		print FILE  "\");\n";
-	}
+open( FILE , '>'.$svnconfdir.'/websvn.inc' );
+print FILE  '<?php'."\n";
+foreach $svn ( @{$svnss} )  {
+	print FILE  '  $config->addRepository("'.$svn->get_reponame.'","'.$svn->get_dir.'");'."\n"   if $svn->is_public;
 }
-print FILE  "\$config->setSedPath(\"/bin\");\n";
-print FILE  "?>\n";
+print FILE  '?>'."\n";
 close( FILE );
 
-Vhffs::Robots::unlock( $vhffs , "websvn" );
-
+Vhffs::Robots::unlock( $vhffs , 'websvn' );