1 files changed, 40 insertions, 0 deletions
diff --git a/scripts/ec2-check.pl b/scripts/ec2-check.pl
new file mode 100755
index 00000000..03448ff5
--- /dev/null
+++ b/scripts/ec2-check.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+# **** License ****
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License version 2 or later as
+# published by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# This code was originally developed by VyOS Development Group
+# All Rights Reserved.
+#
+# Author:       Daniil Baturin <daniil@baturin.org>
+# Description:  Check if we are running on an EC2 instance.
+#               If both system UUID and system serial number start with "EC2",
+#               most likely we are.
+#
+# **** End License ****
+
+
+use strict;
+use warnings;
+
+my $DMIDECODE = "/usr/sbin/dmidecode";
+
+my $UUID = `$DMIDECODE -s system-uuid`;
+my $SN = `$DMIDECODE -s system-serial-number`;
+
+if( ($UUID =~ /^ec2.*/i) &&
+    ($SN =~ /^ec2.*/i) )
+{
+    exit(0);
+}
+else
+{
+    exit(1);
+}
+