get_kernel() and get_exploits() in, main() out

This is a minor maintainability update for the code. It provides
the get_kernel() and get_exploits() functions, and moves main()
to the top of the script. As such, developers are able to see
the complete logic of the code just by opening the file and
looking at the very first lines. The 'exit' at the end of the
code also guarantees that no extra data is processed, and the
rest are just auxiliary functions, created to provide extra
readability and maintainability.

Author: garu

Linux_Exploit_Suggester.pl

@@ -9,15 +9,50 @@
 getopt( 'k,h', \%opts );
 usage() if exists $opts{h};
 
-my $khost = '';
-if ( exists $opts{k} ) {
-    $khost = $opts{k};
+my $khost = get_kernel();
+print "\nKernel local: $khost\n\n";
+
+my %exploits = get_exploits();
+
+print "Possible Exploits:\n";
+foreach my $key ( keys %exploits ) {
+    foreach my $kernel ( @{ $exploits{$key}->{vuln} } ) {
+
+        #		printf "DEBUG:vuln:%s kernel:%s lk:%s\n", $key,$kernel,$khost;
+        if ( $khost =~ /^$kernel$/ ) {
+            chop($kernel) if ( $kernel =~ /.$/ );
+            print "[+] " . $key;
+            my $alt = $exploits{$key}->{alt};
+            my $cve = $exploits{$key}->{cve};
+            my $mlw = $exploits{$key}->{mil};
+            if ( $alt or $cve ) {
+                print "\n";
+            }
+            if ( $alt ) { print "   Alt: $alt "; }
+            if ( $cve ) { print "   CVE-$cve"; }
+            if ( $mlw ) { print "\n   Source: $mlw"; }
+            print "\n";
+        }
+    }
 }
-else {
-    $khost = `uname -r |cut -d"-" -f1`;
-    chomp($khost);
+exit;
+
+
+######################
+## extra functions  ##
+######################
+
+sub get_kernel {
+    my $khost = '';
+    if ( exists $opts{k} ) {
+        $khost = $opts{k};
+    }
+    else {
+        $khost = `uname -r |cut -d"-" -f1`;
+        chomp($khost);
+    }
+    return $khost;
 }
-print "\nKernel local: $khost\n\n";
 
 sub usage {
     print "Linux Exploit Suggester $VERSION\n"
@@ -27,7 +62,8 @@ sub usage {
         ;
 }
 
-my %h = (
+sub get_exploits {
+  return (
     'w00t' => {
         vuln => [
             '2.4.10', '2.4.16', '2.4.17', '2.4.18',
@@ -409,32 +445,9 @@ sub usage {
         cve => '2013-0268',
         mil => 'http://www.exploit-db.com/exploits/27297/',
     },
-);
-run_main();
-
-sub run_main {
-    print "Possible Exploits:\n";
-    foreach my $key ( keys %h ) {
-        foreach my $kernel ( @{ $h{$key}->{vuln} } ) {
-
-            #		printf "DEBUG:vuln:%s kernel:%s lk:%s\n", $key,$kernel,$khost;
-            if ( $khost =~ /^$kernel$/ ) {
-                chop($kernel) if ( $kernel =~ /.$/ );
-                print "[+] " . $key;
-                my $alt = $h{$key}->{alt};
-                my $cve = $h{$key}->{cve};
-                my $mlw = $h{$key}->{mil};
-                if ( $alt or $cve ) {
-                    print "\n";
-                }
-                if ( $alt ) { print "   Alt: $alt "; }
-                if ( $cve ) { print "   CVE-$cve"; }
-                if ( $mlw ) { print "\n   Source: $mlw"; }
-                print "\n";
-            }
-        }
-    }
+  );
 }
+
 __END__
 =head1 NAME