     {:ip ip
      :off-scan-status off-scan-status
      :ping ping
-     :platform platform
-     ;; :cp-name cp-name
-     ;; :domain domain
-     ;; :mac-ad mac-ad
-     ;; :prod-name prod-name
-     ;; :os-server os-server
-     ;; :version version
-     ;; :patt-file patt-file
-     ;; :scan-eng scan-eng
-     ;; :prev-pol prev-pol
-     ;; :cp-des cp-des
-     ;; :rem-install rem-install
-     }))
+     :platform platform}))
 
 (defn parse-line
   "parse each line of a large file"

  (if (re-matches #"(?i)windows*" (get item :platform)) true false))

(defn create-final-list
  "create a list of windows machines with successful ping"
  [item]
  (let [windows-machines (filter windows? item)
        ping-successful-list (filter ping-successful? windows-machines)]

          wireless (second file-names)
          detail (nth file-names 2)
          wired-list (create-final-list (map create-data-map (read-csv wired)))
          wireless-list (create-final-list (map create-data-map (read-csv wireless)))
          wired-ip-list (map get-ip wired-list)
          compare-list (compare-ip wired-ip-list)]
      (println wired-ip-list)
      (println "=============== Wired List: ===============")
      (pp/pprint compare-list)))
      ;; (println "\n=============== Wireless List: ===============")
      ;; (pp/pprint wireless-list)))
