diff --git a/listversioned/listversioned.rb b/listversioned/listversioned.rb
index 19afe7d..5d92ed2 100755
--- a/listversioned/listversioned.rb
+++ b/listversioned/listversioned.rb
@@ -108,6 +108,27 @@ def svnparse(url)
 	}
 end
 
+def cvsparse(url)
+	puts "\n#{url}"
+	begin
+		body = fetch("#{url}/CVS/Entries").body
+	rescue
+	end
+	dirs = Array.new
+	body.each{|line|
+		case line
+		when /^D\/?(.*?)\/.*/	then
+			puts "#{$1}/"
+			dirs.push($1)
+		when /^\/(.*?)\/(.*?)\/(.*?)\/.*/	then
+			puts "#{$1}	#{$2}	#{$3}"
+		end
+	}
+	dirs.each{|dir|
+		cvsparse("#{url}/#{dir}")
+	}
+end
+
 options = cmdline
 if options["-u"].nil?
 	usage