Basic functionality from CLI

buildvm.yml

@@ -15,10 +15,13 @@
 - name: Ensure Primary IP exists and is in DNS
   hosts: tag_build
   gather_facts: false
+  collections:
+    - netbox.netbox
+    - freeipa.ansible_freeipa
 
   tasks:
     - name: Get unused IP Address from pool
-      netbox.netbox.netbox_ip_address:
+      netbox_ip_address:
         netbox_url: "{{ netbox_api }}"
         netbox_token: "{{ netbox_token }}"
         data:
@@ -28,6 +31,14 @@
       when: primary_ipv4 is undefined
       delegate_to: localhost
 
+    - name: Obtain SSO token for RHV
+      ovirt_auth:
+        url: "{{ ovirt_url }}"
+        username: "{{ ovirt_username }}"
+        insecure: true
+        password: "{{ ovirt_password }}"
+      delegate_to: localhost
+
     - set_fact:
         primary_ipv4: "{{ new_ip.ip_address.address|ipaddr('address') }}"
         vm_hostname: "{{ inventory_hostname.split('.')[0] }}"
@@ -35,8 +46,12 @@
       delegate_to: localhost
       when: primary_ipv4 is undefined
 
+    - name: Primary IPv4 Address
+      debug:
+        var: primary_ipv4
+
     - name: Ensure IP Address in IdM
-      freeipa.ansible_freeipa.ipadnsrecord:
+      ipadnsrecord:
         records:
           - name: "{{ vm_hostname }}"
             zone_name: "{{ vm_domain }}"
@@ -53,6 +68,7 @@
   gather_facts: no
   collections:
     - netbox.netbox
+    - ovirt.ovirt
   vars:
     # Workaround to get correct venv python interpreter
     ansible_python_interpreter: "{{ ansible_playbook_python }}"
@@ -69,7 +85,7 @@
            interface: virtio
            size: '{{ disk|default(40) }}'
            state: present
-           storage_domain: 'ssdvdo0'
+           storage_domain: "{{ rhv_storage_domain }}"
            activate: true
       when: vm_disks is not defined
 
@@ -160,4 +176,14 @@
         timeout: 1800
         sleep: 5
 
+    # - name: Ensure IP address is correct in Netbox
+    #   netbox_virtual_machine:
+    #     data:
+    #       name: "{{ inventory_hostname }}"
+    #       primary_ip4: "{{ primary_ipv4 }}"
+    #     netbox_url: "{{ netbox_api }}"
+    #     netbox_token: "{{ netbox_token }}"
+    #     state: present      
+    #   delegate_to: localhost
+
 #TODO: Clear Build tag

collections/requirements.yml

@@ -6,9 +6,7 @@ collections:
   - name: netbox.netbox
     source: https://galaxy.ansible.com
 
-  - name: freeipa.ansible_freeipa  
+      #  - name: freeipa.ansible_freeipa
-    source: https://galaxy.ansible.com
-    version: 0.3.4
 
   - name: ovirt.ovirt
     source: https://galaxy.ansible.com

restore_ports.tcl

@@ -1,287 +0,0 @@
-#!/bin/sh
-# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
-# \
-if /usr/bin/which -s port-tclsh; then exec port-tclsh "$0" -i `which port-tclsh` "$@"; else exec /usr/bin/tclsh "$0" -i /usr/bin/tclsh "$@"; fi
-#
-# Install a list of ports given in the form produced by 'port installed', in
-# correct dependency order so as to preserve the selected variants.
-#
-# Todo:
-# Handle conflicting ports somehow
-# Once "good enough", integrate into port
-
-
-set MY_VERSION 0.1
-
-proc printUsage {} {
-   puts "Usage: $::argv0 \[-hV\] \[-p macports-prefix\] \[filename\]"
-   puts "   -h   This help"
-   puts "   -p   Use a different MacPorts prefix"
-   puts "        (defaults to /opt/local)"
-   puts "   -V   show version and MacPorts version being used"
-}
-
-
-proc dependenciesForPort {portName variantInfo} {
-   set dependencyList [list]
-   set portSearchResult [mportlookup $portName]
-   if {[llength $portSearchResult] < 2} {
-      ui_warn "Skipping $portName (not in the ports tree)"
-      return $dependencyList
-   }
-   array set portInfo [lindex $portSearchResult 1]
-   if {[catch {set mport [mportopen $portInfo(porturl) [list subport $portInfo(name)] $variantInfo]} result]} {
-      global errorInfo
-      puts stderr "$errorInfo"
-      return -code error "Unable to open port '$portName': $result"
-   }
-   array unset portInfo
-   array set portInfo [mportinfo $mport]
-   mportclose $mport
-   foreach dependencyType {depends_fetch depends_extract depends_build depends_lib depends_run} {
-      if {[info exists portInfo($dependencyType)] && [string length $portInfo($dependencyType)] > 0} {
-         foreach dependency $portInfo($dependencyType) {
-            lappend dependencyList [lindex [split $dependency :] end]
-         }
-      }
-   }
-
-   return $dependencyList
-}
-
-proc sort_ports {portList} {
-    array set port_installed {}
-    array set port_deps {}
-    array set port_in_list {}
-    
-    set newList [list]
-    foreach port $portList {
-        set name [lindex $port 0]
-        #ui_msg "name = $name"
-        set version [lindex $port 1]
-        set variants ""
-
-        if {[regexp {^@([^+]+?)(_(\d+)(([-+][^-+]+)*))?$} $version - - - - variantstr] && [info exists variantstr]} {
-            while 1 {
-                set nextplus [string last + $variantstr]
-                set nextminus [string last - $variantstr]
-                if {$nextplus > $nextminus} {
-                    set next $nextplus
-                    set sign +
-                } else {
-                    set next $nextminus
-                    set sign -
-                }
-                if {$next == -1} {
-                    break
-                }
-                set v [string range $variantstr [expr $next + 1] end]
-                lappend variants $v $sign
-                set variantstr [string range $variantstr 0 [expr $next - 1]]
-            }
-        }
-        #ui_msg "variants = $variants"
-        set active 0
-        if {[llength $port] > 2 && [lindex $port 2] == "(active)"} {
-            set active 1
-        }
-        #ui_msg "active = $active"
-
-        if {![info exists port_in_list($name)]} {
-            set port_in_list($name) 1
-            set port_installed($name) 0
-        } else {
-            incr port_in_list($name)
-        }
-        if {![info exists port_deps(${name},${variants})]} {
-            set port_deps(${name},${variants}) [dependenciesForPort $name $variants]
-        }
-        lappend newList [list $active $name $variants]
-    }
-
-    set operationList [list]
-    while {[llength $newList] > 0} {
-        set oldLen [llength $newList]
-        foreach port $newList {
-            foreach {active name variants} $port break
-            # ensure active versions are installed after inactive versions,
-            # since installing will also activate and we don't want to
-            # displace the active version
-            if {$active && $port_installed($name) < ($port_in_list($name) - 1)} {
-                continue
-            }
-            set installable 1
-            foreach dep $port_deps(${name},${variants}) {
-                # XXX maybe check dep is active here?
-                if {[info exists port_installed($dep)] && $port_installed($dep) == 0} {
-                    set installable 0
-                    break
-                }
-            }
-            if {$installable} {
-                lappend operationList [list $name $variants $active]
-                incr port_installed($name)
-                set index [lsearch $newList [list $active $name $variants]]
-                #ui_msg "deleting \"[list $active $name $variants]\" from list"
-                #ui_msg "list with element: $newList"
-                set newList [lreplace $newList $index $index]
-                #ui_msg "list without element: $newList"
-            }
-        }
-        if {[llength $newList] == $oldLen} {
-            ui_error "we appear to be stuck, exiting..."
-            return -code error "infinite loop"
-        }
-    }
-    
-    return $operationList
-}
-
-proc install_ports {operationList} {
-    foreach op $operationList {
-        set name [string trim [lindex $op 0]]
-        set variations [lindex $op 1]
-        set active [lindex $op 2]
-
-        if {!$active} {
-            set install_target install
-        } else {
-            set install_target activate
-        }
-
-        if {[catch {set res [mportlookup $name]} result]} {
-            global errorInfo
-            ui_debug "$errorInfo"
-            return -code error "lookup of portname $name failed: $result"
-        }
-        if {[llength $res] < 2} {
-            # not in the index, but we already warned about that earlier
-            continue
-        }
-        array unset portinfo
-        array set portinfo [lindex $res 1]
-        set porturl $portinfo(porturl)
-        
-        # XXX should explicitly turn off default variants that don't appear in the list
-        
-        if {[catch {set workername [mportopen $porturl [list subport $portinfo(name)] $variations]} result]} {
-            global errorInfo
-            puts stderr "$errorInfo"
-            return -code error "Unable to open port '$name': $result"
-        }
-        if {[catch {set result [mportexec $workername $install_target]} result]} {
-            global errorInfo
-            mportclose $workername
-            ui_msg "$errorInfo"
-            return -code error "Unable to execute target 'install' for port '$name': $result"
-        } else {
-            mportclose $workername
-        }
-        
-        # XXX some ports may be reactivated to fulfil dependencies - check again at the end?
-    }
-}
-
-proc read_portlist {filename} {
-    if {$filename == "-"} {
-        set infile stdin
-    } else {
-        set infile [open $filename r]
-    }
-    set data [read -nonewline $infile]
-    set portList [split $data \n]
-    close $infile
-    if {[lindex $portList 0] == "The following ports are currently installed:"} {
-        set portList [lrange $portList 1 end]
-    }
-    return $portList
-}
-
-# Begin
-
-set macportsPrefix /opt/local
-set showVersion 0
-array set ui_options {}
-
-set origArgv $::argv
-while {[string index [lindex $::argv 0] 0] == "-" } {
-   switch [string range [lindex $::argv 0] 1 end] {
-      h {
-         printUsage
-         exit 0
-      }
-      i {
-         set interp_path [lindex $::argv 1]
-         set ::argv [lrange $::argv 1 end]
-      }
-      p {
-         if {[llength $::argv] < 2} {
-            puts stderr "-p needs a path"
-            printUsage
-            exit 1
-         }
-         set macportsPrefix [lindex $::argv 1]
-         set ::argv [lrange $::argv 1 end]
-         set userPrefix 1
-      }
-      V {
-         set showVersion 1
-      }
-      v {
-        set ui_options(ports_verbose) yes
-      }
-      default {
-         puts stderr "Unknown option [lindex $::argv 0]"
-         printUsage
-         exit 1
-      }
-   }
-   set ::argv [lrange $::argv 1 end]
-}
-
-# check that default prefix exists
-if {![info exists userPrefix] && ![file isdirectory $macportsPrefix]} {
-    error "prefix '$macportsPrefix' does not exist; maybe you need to use the -p option?"
-}
-
-if {[info exists interp_path]} {
-    set prefixFromInterp [file dirname [file dirname $interp_path]]
-} else {
-    # presumably the user ran '/some/prefix/bin/port-tclsh restore_ports.tcl'
-    set prefixFromInterp ""
-    if {[info exists userPrefix]} {
-        error "the -p option cannot be used when running with an explicit interpreter (e.g. 'port-tclsh restore_ports.tcl') - run just './restore_ports.tcl' instead."
-    }
-}
-# make sure we're running in the port-tclsh associated with the correct prefix
-if {$prefixFromInterp ne "" && $prefixFromInterp ne $macportsPrefix} {
-    if {[file executable ${macportsPrefix}/bin/port-tclsh]} {
-        exec ${macportsPrefix}/bin/port-tclsh $argv0 -i ${macportsPrefix}/bin/port-tclsh {*}[lrange $origArgv 2 end] <@stdin >@stdout 2>@stderr
-        exit 0
-    } else {
-        error "prefix '$macportsPrefix' does not appear to have a working port-tclsh"
-    }
-}
-
-package require macports
-package require Pextlib 1.0
-umask 022
-mportinit ui_options
-
-if {$showVersion} {
-   puts "Version $MY_VERSION"
-   puts "MacPorts version [macports::version]"
-   exit 0
-}
-
-if {[llength $::argv] == 0} {
-   set filename "-"
-} else {
-    set filename [lindex $::argv 0]
-}
-set portList [read_portlist $filename]
-#ui_msg "portlist = $portList"
-
-set operationList [sort_ports $portList]
-
-install_ports $operationList