删除本地拷贝里的所有SVN版本信息

/**
* 删除本地拷贝里的所有SVN版本信息
* 2007-10-29
* bailing
* wubl.9991.com@gmail.com
*/

require_once("iecho.php");
require_once('F:\web\mobile.duote.com\api\batchFile.php');

$bat = "";
$batDel = "";
$fl = new batchFile;
$fl->path='F:\web\mobile.duote.com'; //operate dir
$fl->extname = "*";
$fl->fileFunc = "delFile";
$fl->dirFunc = "delDir";
$fl->start();

$rt = file_put_contents ( "f:/Svn-R.bat" , $bat );
$rt = file_put_contents ( "f:/Svn-Del.bat" , $batDel );
//pr($fl);

function delFile($filename)
{
    global $bat,$batDel,$fl;
    if( strpos( $filename , ".svn" )!==false )
    {
        //die($filename);
        $f =  str_replace("/","\\",$fl->path.$filename);
        $bat .= "attrib -R \"".$f."\"\r\n";
        $batDel .="del /F/Q \"".$f."\" \r\n";
    }
}

function delDir($dir)
{
    global $bat,$batDel,$fl;
    if( strpos( $dir , ".svn" )!==false )
    {
        //die($filename);
        $f =  str_replace("/","\\",$fl->path.$dir);
        $bat .= "attrib -R \"".$f."\"\r\n";
        $batDel .="rmdir \"".$f."\" \r\n";
    }
}