craschworks

A pair of functions I wrote that compare the contents of a configuration directory on a remote server with the expected contents in SVN. compareDir is the first draft and compareDirTwo is the second draft. compareDirTwo compares all of the files in all the directories below, whereas the compareDir only goes one level and doesn't compare the files in the topmost level. The compare flag will cause the function to compare the contents of the files, in addition to checking for existence. It assumes that all files are text files. Pasted here to remind me how I wrote the compareDir function, because I'm deleting it and it has some tricks in it that I want to remember.

def compareDir(host, location, svndir, actualdir, *rest)
    puts "Now comparing the #{actualdir} on #{host}, #{location} with the directory in svn: #{svndir}"
    status = "pass"
    differences = ""
    result = ""
    linebreak = "="*80 + "\n"

    puts message = "host: #{host}\n"
    puts "\n"

    svndirlisting = %x[ svn list #{svndir}]
    tunnel = SSHTunnel.new(host, location)
    actualdir_listing = tunnel.remoteExecute("find #{actualdir} -type d -maxdepth 1 -mindepth 1").to_a
    actualdir_listing.each do |dir|
        puts linebreak
        puts "dir: #{dir}\n"
        message += linebreak
        message += "dir: #{dir}\n"
        dirname = dir.chomp.split(/\//)[3]
        file_list = tunnel.remoteExecute("find #{actualdir}/#{dirname} -maxdepth 1 -mindepth 1").to_a
        file_list.each do |file|
            filename = file.chomp.split(/\//)[4]
            svnfilename = "#{svndir}/#{dirname}/#{filename}"
            svnfile = %x[ svn cat #{svnfilename} ]
            actualfile = tunnel.remoteExecute("cat #{file}")
            differences = stringDiff(svnfile, actualfile)
            if differences != ""
                    puts result = "FAILED:\n"
                    status = "fail"
            else
                    puts result = "PASSED:\n"
            end
            puts filenames = "svn: #{svnfilename} \nactual: #{file}\n"
            puts differences
            message += result
            message += filenames
            message += differences
        end
    end
    tunnel.destroySSHTunnel

#        puts message

    if status != "pass"
             flunk
    end
end

def compareDirTwo(host, location, svndir, actualdir, compare="true", *rest)
    puts "Now comparing the #{actualdir} on #{host}, #{location} with the directory in svn: #{svndir}"
    status = "pass"
    differences = ""
    result = ""
    linebreak = "="*80 + "\n"

    puts message = "host: #{host}\n"
    puts "\n"

    puts "svnlist:\n"
    svn = %x[ svn -R list #{svndir}].to_a
    # Get a list of all files/directories from svn.  Remove  the trailing / from directories. Prepend the base directory.
    svnall = svn.collect { |name| actualdir + "/" + name.chomp.gsub(/\/$/,'') }
    svnall.map { |file| puts "#{file}" }

    puts linebreak
    puts "svnfiles:\n"
    # Get a list of only files from svn
    svnfiles = svn.delete_if { |name| name =~ %r[(.*)/$] }
    svnfiles.map { |file| puts "#{file}" }

    puts linebreak
    tunnel = SSHTunnel.new(host, location)
    actual = tunnel.remoteExecute("find #{actualdir}").to_a.collect { |name| name.chomp }
    actual = actual.delete_if { |name| name == "#{actualdir}" }
    puts "actual:\n"
    actual.map { |file| puts "#{file}" }
    if compare:
        svnfiles.each do |file|
                 svnfilename = "#{svndir}/#{file}"
                 svnfile = %x[ svn cat #{svnfilename} ]
                 actualfile = tunnel.remoteExecute("cat #{actualdir}/#{file}")
                 differences = stringDiff(svnfile, actualfile)
                if differences != ""
                        puts result = "FAILED:\n"
                        status = "fail"
                else
                        puts result = "PASSED:\n"
                end
                puts filenames = "svn: #{svnfilename} \ractual: #{actualdir}/#{file}\r"
                puts differences
                message += result
                message += filenames
                message += differences
        end
    end
    tunnel.destroySSHTunnel

    differences = actual - svnall
    if differences != []:
        puts "These files are in the #{actualdir} directory on #{host}, #{location} but are not in svn:\n", differences
        message += "FAILED:\n"
        status = "fail"
    end

    return status, message, differences

end