From cf5ca630fe3e34172ba1216e7e33d0f284d43ba7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?H=C3=A5kon=20Solbj=C3=B8rg?= <hlsolbjorg@gmail.com>
Date: Tue, 2 Apr 2019 19:58:09 +0200
Subject: chore: Move tech support label scripts to own folder.

After importing all the scripts from another repo.
---
 tech-support/labels/old/cable_labels.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 tech-support/labels/old/cable_labels.pl

(limited to 'tech-support/labels/old/cable_labels.pl')

diff --git a/tech-support/labels/old/cable_labels.pl b/tech-support/labels/old/cable_labels.pl
new file mode 100644
index 0000000..b461d03
--- /dev/null
+++ b/tech-support/labels/old/cable_labels.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+ 
+use strict;
+use warnings;
+ 
+my ($rows, $switches, $cables) = @ARGV;
+ 
+for my $row (1 .. $rows) {
+    next if (!($row & 1));
+ 
+    for my $switch (1 .. $switches) {
+        for my $cable (1 .. $cables) {
+            print join('-', ($row, $switch, $cable)) . ';' . "\n";
+        }
+    }
+}
-- 
cgit v1.2.3