Provide a script to bootstrap mm devices

See: https://progress.opensuse.org/issues/115418

Author: kalikiana

openqa-prepare-mm-setup

@@ -0,0 +1,85 @@
+#!/usr/bin/env perl
+# Copyright 2020 SUSE LLC
+# SPDX-License-Identifier: GPL-2.0-or-later
+use strict;
+
+system("zypper in -y os-autoinst-openvswitch");
+system("systemctl enable --now os-autoinst-openvswitch");
+
+my $bridge = 1;
+my $openvswitch = "/etc/sysconfig/os-autoinst-openvswitch";
+open(file, '>', $openvswitch) or die "Failed to open $openvswitch for writing!";
+print file "OS_AUTOINST_USE_BRIDGE=br$bridge";
+close(file);
+
+system("ovs-vsctl add-br br$bridge");
+print("Added bridge $bridge");
+
+my $bridge_file = "/etc/sysconfig/network/ifcfg-br$bridge";
+my $ip = "10.0.2.2/15";
+my $config = "
+BOOTPROTO='static'                                                                                                         
+IPADDR='$ip'                                                                                                       
+STARTMODE='auto'                                                                                                           
+ZONE=trusted                                                                                                               
+OVS_BRIDGE='yes'                                                                                                           
+PRE_UP_SCRIPT=\"wicked:gre_tunnel_preup.sh\"
+";
+
+for (my $i = 0; $i < 148; $i++) {
+    $config .= "OVS_BRIDGE_PORT_DEVICE_$i='tap$i'\n";
+
+    my $tapconfig = "
+    BOOTPROTO='none'
+    IPADDR=''
+    NETMASK=''
+    PREFIXLEN=''
+    STARTMODE='auto'
+    TUNNEL='tap'
+    TUNNEL_SET_GROUP='nogroup'
+    TUNNEL_SET_OWNER='_openqa-worker'
+    ZONE=trusted
+    ";
+
+    my $tap_file = "/etc/sysconfig/network/ifcfg-tap$i";
+    open(file, '>', $tap_file) or die "Failed to open $tap_file for writing!";
+    print file $tapconfig;
+    close(file);
+}
+
+open(file, '>', $bridge_file) or die "Failed to open $bridge_file for writing!";
+print file $config;
+close(file);
+print("Config written!");
+
+my $gre = "/etc/wicked/scripts/gre_tunnel_preup.sh";
+open(file, '>', $gre) or die "Failed to open $gre for writing!";
+
+my $gre_config = "
+#!/bin/sh
+action=\"\$1\"
+bridge=\"\$2\"
+ovs-vsctl set bridge \$bridge stp_enable=true
+";
+
+my %workers = (openqaworker1 => '192.168.112.6',
+               openqaworker7 => '192.168.112.12',
+               openqaworker4 => '192.168.112.7',
+               openqaworker19 => '192.168.112.17',
+              );
+my $device = 0;
+my $this_worker = qx(hostname -i);
+chomp $this_worker;
+hile (my ($worker, $ip) = each %workers) {
+    # Don't put the machine itself here
+    if ($this_worker ne $ip) {
+            $device++;
+            $gre_config .= "
+                # $worker
+                ovs-vsctl --may-exist add-port $bridge gre$device -- set interface gre$device type=gre options:remote_ip=$ip";
+    }
+}
+
+print file $gre_config;
+close(file);
+system("chmod +x $gre");