怎样获取某个数据库的所有存储过程SQL语句

最近公司做了一个项目，并且该项目目前已投入使用。现在数据库挂在客户的服务器上。由于还有一部分功能不是很完善，需要经常更新他们的存储过程。

由于更新的存储过程有些多，而且到后来经常不知道哪些存储过程是 已经修改过的，哪些是新增加的。我就想到了一个法子。那就是以文本方式获取我本地服务器上的所有存储过程，然后执行文本统一更新至客户服务器上。

具体实现如下，如下语句执行后，会在查询分析器执行消息中显示执行数据库的所有存储过程源码，直接复制保存文本即可。

declare @proc_text varchar(max)
DECLARE get_proc_text_cursor CURSOR FOR
SELECT  'if object_id(N'''+ [name] +''') is not null drop proc ' + [name] +  CHAR(10) +  CHAR(13)  +  '  GO '  +  CHAR(10) +  CHAR(13) + definition + CHAR(10)  + CHAR(13) +' GO'
FROM sys.sql_modules
inner join sysobjects  on sys.sql_modules.object_id = sysobjects.id  and type='p'

OPEN get_proc_text_cursor

FETCH NEXT FROM get_proc_text_cursor
INTO @proc_text

WHILE @@FETCH_STATUS = 0
BEGIN

print @proc_text
    FETCH NEXT FROM get_proc_text_cursor
    INTO @proc_text
END
CLOSE get_proc_text_cursor
DEALLOCATE get_proc_text_cursor