aboutsummaryrefslogtreecommitdiffstats
path: root/macros/mozilla-version.pl
diff options
context:
space:
mode:
Diffstat (limited to 'macros/mozilla-version.pl')
-rw-r--r--macros/mozilla-version.pl12
1 files changed, 12 insertions, 0 deletions
diff --git a/macros/mozilla-version.pl b/macros/mozilla-version.pl
new file mode 100644
index 0000000000..21e20c63ff
--- /dev/null
+++ b/macros/mozilla-version.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+# Tiny Perl script to check the mozilla version. I don't even like Perl.
+# to make things easier on myself, I'm just going to treat the mozilla version as base 10. This will probably break
+
+# Author: Andrew Chatham
+
+$ver = 0;
+while (<>) {
+ if (/useragent.misc\", \"rv:([0-9]+)\.([0-9]+)\.([0-9]+)/) { $ver = $1 * 100 + $2 * 10 + $3; }
+}
+print $ver;