make CVS dirs work too

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