Something

local toc = [[
## Interface: 11100
## Title: %name |cff7fff7f -Ace2-|r
## Author: tard
## X-Category:
## X-eMail: tardmrr@gmail.com
## X-Website: http://www.wowace.com
## SavedVariables: %nameDB
AceLibrary\AceLibrary.lua
AceOO\AceOO-2.0.lua
AceLibraryBase\AceLibraryBase-2.0.lua

AceEvent\AceEvent-2.0.lua
AceHook\AceHook-2.0.lua
AceDB\AceDB-2.0.lua
AceDebug\AceDebug-2.0.lua
AceLocale\AceLocale-2.0.lua
AceConsole\AceConsole-2.0.lua
AceAddon\AceAddon-2.0.lua

%name.lua]]


local lua = [[
%name = AceLibrary("AceAddon-2.0"):new("AceEvent-2.0","AceHook-2.0","AceDB-2.0","AceConsole-2.0","AceDebug-2.0")
%name:RegisterDB("%namdDB")
%name:RegisterChatCommand({"/%name"})
%name.version = "0.$Rev$"
%name.date = "$Date$"

function %name:OnInitialize()
    
end

funciton %name:OnEnable()

end

function %name:OnDisable()

end

]]	

replacements = {
    name = arg[1],
    date = os.date("%m/%d/%y"),
}
     
    
function doReplace(s)
    for pat,rep in replacements do
        s = string.gsub(s,"%%"..pat,rep)
    end
    return s
end
    
do
    
    local name = arg[1]
    
    if(not name) then
        error("No Addon name entered for script",2)
    end
    
    os.execute("mkdir "..name)
    
    local path = ".\\"..name.."\\"
    local filename = path..name
    
    local f = io.open(filename..".toc","w")
    f:write(doReplace(toc))
    f:close()
    
    f = io.open(filename..".lua","w")
    f:write(doReplace(lua))
    f:close()
    
    os.execute("svn import -m \""..name..": Creating Project trunk\" "..name.." http://svn.wowace.com/root/trunk/"..name)
    os.execute("del /q "..name)
    os.execute("svn co http://svn.wowace.com/root/trunk/"..name)
    os.execute("svn propset svn:keywords \"Rev Date\" "..name.."/"..name..".lua")
    os.execute("svn propset -F externals.txt svn:externals "..name)
    os.execute("svn commit "..name.." -m \""..name..": Commiting svn properties.\" ")
    os.execute("svn update "..name)    
    
end