diff --git a/bin/genssl b/bin/genssl
index 0f1ad0c..5412c6a 100755
--- a/bin/genssl
+++ b/bin/genssl
@@ -9,8 +9,42 @@ use 5.010_000;
 use strict;
 use warnings;
 use FindBin qw($Bin);
+use Cwd;
 our $VERSION = 1.00;
-my $bin = $Bin;
+my $Bin = $Bin;
+
+my ($UPREFIX, %bin);
+$bin{cwd} = getcwd;
+if (!-e "$Bin/../build/syswide") {
+    # Must be a custom PREFIX install.
+    $bin{etc} = "$bin{cwd}/etc";
+    $bin{var} = "$bin{cwd}/var";
+    if (!-e "$Bin/lib/Lib/Auto.pm") {
+        # Must be a system wide install.
+        $bin{lib} = "$Bin/../lib/autobot/3.0.0";    
+        $bin{bld} = "$bin{lib}/build";
+        $bin{lng} = "$bin{lib}/lang";
+        $bin{mod} = "$bin{lib}/modules";
+    }
+    else {
+        # Or not.
+        $bin{lib} = "$Bin/../lib";
+        $bin{bld} = "$Bin/../build";
+        $bin{lng} = "$Bin/../lang";
+        $bin{mod} = "$Bin/../modules";
+    }
+    $UPREFIX = 1;
+}
+else {
+    # Must be a standard install.
+    $bin{etc} = "$Bin/../etc";
+    $bin{var} = "$Bin/../var";
+    $bin{lib} = "$Bin/../lib";
+    $bin{bld} = "$Bin/../build";
+    $bin{lng} = "$Bin/../lang";
+    $bin{mod} = "$Bin/../modules";
+    $UPREFIX = 0;
+}
 
 # Get the name of the network this cert is for.
 print 'Network Name: ';
@@ -19,15 +53,15 @@ $net =~ s/(\r|\n)//gxsm;
 say q{};
 
 # Make sure etc/certs/ exists.
-if (!-d "$bin/../etc") { mkdir "$bin/../etc", 0755; }
-if (!-d "$bin/../etc/certs") { mkdir "$bin/../etc/certs", 0755; }
+if (!-d "$bin{etc}") { mkdir "$bin{etc}", 0755; }
+if (!-d "$bin{etc}/certs") { mkdir "$bin{etc}/certs", 0755; }
 
 # Generate key and cert.
-system 'openssl req -nodes -newkey rsa:2048 -keyout '.$bin.'/../etc/certs/'.$net.'.key -x509 -days 3650 -out '.$bin.'/../etc/certs/'.$net.'.cert';
-chmod 0400, "$bin/../etc/certs/$net.key";
+system "openssl req -nodes -newkey rsa:2048 -keyout $bin{etc}/certs/$net.key -x509 -days 3650 -out $bin{etc}/certs/$net.cert";
+chmod 0400, "$bin{etc}/certs/$net.key";
 
 # Get the fingerprint.
-my $fpr = `openssl x509 -noout -fingerprint < $bin/../etc/certs/$net.cert`;
+my $fpr = `openssl x509 -noout -fingerprint < $bin{etc}/certs/$net.cert`;
 my $fp;
 while ($fpr =~ s/(.*\n)//) {
     my $line = $1;