updated and added soem things

9 files changed, 425 insertions, 425 deletions

diff --git a/bashrun b/bashrun
index 99e369c..b571a52 100755
--- a/bashrun
+++ b/bashrun
@@ -1,5 +1,4 @@
-
-#!/bin/dash
+#!/bin/bash
 #
 # usage: bashrun [geometry] (default: 40x1)
 #
diff --git a/grank b/grank
new file mode 100755
index 0000000..3127f3c
--- /dev/null
+++ b/grank
@@ -0,0 +1,91 @@
+#!/bin/bash
+
+# grank - find your google rank index
+#
+# 2008 - Mike Golvach - eggi@comcast.net
+#
+# Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License
+#
+
+if [ $# -lt 2 -a $# -ne 0 ]
+then
+        echo "Usage: $0 URL Search_Term(s)"
+        echo "URL with or with http(s)://, ftp://, etc"
+        exit 1
+fi
+
+if [ $# -eq 0 ]
+then
+        while read x y
+        do
+                url=$x
+                search_terms=$y
+                $0 $x "$y"
+        done
+        exit 0
+else
+        url=$1
+ shift
+        search_terms=$@
+fi
+
+base=0
+num=1
+start=0
+multiple_search=0
+not_found=0
+
+for x in $search_terms
+do
+        if [ $multiple_search -eq 0 ]
+        then
+                search_string=$x
+                multiple_search=1
+        else
+                search_string="${search_string}+$x"
+        fi
+done
+
+echo "Searching For Google Index For $url With Search Terms: $search_terms..."
+echo
+
+num_results=`wget -q --user-agent=Firefox -O - http://www.google.com/search?q=$search_string\&hl=en\&safe=off\&pwst=1\&start=$start\&sa=N|awk '{ if ( $0 ~ /of about <b>.*<\/b> for/ ) print $0 }'|awk -F"of about" '{print $2}'|awk -F"<b>" '{print $2}'|awk -F"</b>" '{print $1}'`
+
+while :;
+do
+        if [ $not_found -eq 1 ]
+        then
+                break
+        fi
+        wget -q --user-agent=Firefox -O - http://www.google.com/search?q=$search_string\&num=100\&hl=en\&safe=off\&pwst=1\&start=$start\&sa=N|sed 's/<a href=\"\([^\"]*\)\" class=l>/\n\1\n/g'|awk -v num=$num -v base=$base '{ if ( $1 ~ /^http/ ) print base,num++,$NF }'|awk '{ if ( $2 < 10 ) print "Google Index Number " $1 "0" $2 " For Page: " $3; else if ( $2 == 100 ) print "Google Index Number " $1+1 "00 For Page: " $3;else print "Google Index Number " $1 $2 " For Page: " $3 }'|grep -i $url
+        if [ $? -ne 0 ]
+        then
+                let start=$start+100
+                if [ $start -eq 1000 ]
+                then
+                        not_found=1
+                        if [ $not_found -eq 1 ]
+                        then
+                                break
+                        fi
+                fi
+                let base=$base+1
+                first_page=0
+        else
+                break
+        fi
+
+        let sleep_time=${RANDOM}/600
+        echo "Not In Top $start Results: Sleeping $sleep_time seconds..."
+        sleep $sleep_time
+done
+
+if [ $not_found -eq 1 ]
+then
+        echo "Not Found In First 1,000 Index Results - Google's Hard Limit"
+        echo
+fi
+
+echo "Out Of Approximately $num_results Results"
+echo
+exit 0
diff --git a/info.pl b/info.pl
index 0eb1bb1..d29aa95 100755
--- a/info.pl
+++ b/info.pl
@@ -1,453 +1,285 @@
 #!/usr/bin/perl
-# http://bbs.archlinux.org/viewtopic.php?pid=395002
-use Switch;
-use strict;
-use File::Basename;
-
-####################
-## Config options ##
-####################
-
-## What distro logo to use to use, Available "Archlinux Debian Ubuntu None" ##
-my $distro = "Archlinux";
-my $myArchVersion = "ArchLinux (Core Dump)";
-
-## what values to display. Use "OS Kernel DE WM win_theme Theme Font Icons" ##
-my $display = "OS Kernel DE WM Win_theme Theme Icons Font Background";
-
-## Takes a screen shot if set to 0 ##
-my $shot = 0;
-## Command to run to take screen shot ##
-my $command = "scrot -d 10";
-
-## What colors to use for the variables. ##
-my $textcolor = "\e[0m";
-
-## Prints little debugging messages if set to 0 ##
-my $quite = 1;
-
-
+# @title : Theme info script 0.1.2 revisited
+# @author: rab
+# @date  : 08/04/08
+# @commnt: Maybe if people quit forking the hell outta this, it would be easier to maintain
+
+## Configurations
+# On = 1. Off = 0
+my %display = (
+                "OS"        => 1, # Displays the operating system's name
+                "KL"        => 1, # Displays your kernel version
+                "DE"        => 0, # Displays your desktop environment, if you have one
+                "WM"        => 1, # Displays your window manager
+                "WMT"       => 1, # Displays your window manager's theme
+                "IC"        => 1, # Displays your icon theme, if you have one
+                "FN"        => 1, # Displays your font 
+                "UI"        => 1  # Displays your UI theme
+              );
+
+# The command to execute for taking a screenshot
+# Escape ' with a backslash, \'
+# Leave blank if you don't want a screenshot taken
+#my $screenshot = 'scrot screen-%H-%M-%S.png -e \'mv $f ~/media/screens/\'';
+my $screenshot = '';
+
+# The Color to use for the variables, needs to be global for logos.pl
+@colors = ( "\e[38;0;33m", "\e[38;1;37m", "\e[m" );
+
+# Debugging
+my $debug = 1;
+## End of configuration
 
 ########################
 ## Script starts here ##
 ########################
-## Define some thing to work with strict ##
-my @line = ();
-my $found = 0;
-my $DE = "NONE";
-my $WM = "Beryl";
-
-## Hash of WMs and the process they run ##
-my %WMlist = ("Beryl", "beryl",
-              "Fluxbox", "fluxbox",
-              "Openbox", "openbox",
-              "Blackbox", "blackbox",
-              "Xfwm4", "xfwm4",
-              "Metacity", "metacity",
-              "Kwin", "kwin",
-              "FVWM", "fvwm",
-              "Enlightenment", "enlightenment",
-              "IceWM", "icewm",
-              "Window Maker", "wmaker",
-              "PekWM","pekwm" );
+@distros = ();
+require '/home/flo/bin/logos.pl';
+
+my $nocolor = "\e[0m";
+my @info = ();
+my ($DE,$WM,$theme,$icon,$font,$cscheme) = "";
+my $distro = &distro;
+
+## Hash of WMs and the process they run #
+my %WMlist = ("Beryl"           => "beryl",
+              "Fluxbox"         => "fluxbox",
+              "Openbox"         => "openbox",
+              "Blackbox"        => "blackbox",
+              "Xfwm4"           => "xfwm4",
+              "Metacity"        => "metacity",
+              "Kwin"            => "kwin",
+              "FVWM"            => "fvwm",
+              "Enlightenment"   => "enlightenment",
+              "IceWM"           => "icewm",
+              "Window Maker"    => "wmaker",
+              "Compiz-Fusion"   => "compiz",
+              "PekWM"           => "pekwm",
+              "Awesome"         => "awesome",
+              "Dwm"             => "dwm" );
 
 ## Hash of DEs and the process they run ##     
-my %DElist = ("Gnome", "gnome-session",
-              "Xfce4", "xfce-mcs-manage",
-              "KDE", "ksmserver");
+my %DElist = ("Gnome"   => "gnome-session",
+              "Xfce4"   => "xfce-mcs-manage",
+              "KDE"     => "ksmserver");
 
 ## Get Kernel version ##
-if ( $display =~ "Kernel"){
-  print "\::$textcolor Finding Kernel version\n" unless $quite == 1;
-  my $kernel = `uname -r`;
-  $kernel =~ s/\s+/ /g;
-  $kernel = " Kernel:$textcolor $kernel";
-  push(@line, "$kernel");
+if( $display{KL} ) {
+    print "::$colors[0] Finding Kernel version$nocolor\n" 
+        if $debug;
+
+    my $kernel = `uname -r`; $kernel =~ s/\s+/ /g;
+    push @info, "$colors[0]Kernel\t\t\t$colors[1]$kernel$nocolor";
 }
 
 ## Find running processes ##
-print "\::$textcolor Getting processes \n" unless $quite == 1;
+print "::$colors[0] Getting processes$nocolor\n" 
+    if $debug;
 my $processes = `ps -A | awk {'print \$4'}`;
 
-## Find DE ##
-while( (my $DEname, my $DEprocess) = each(%DElist) ) {
-  print "\::$textcolor Testing $DEname process: $DEprocess \n" unless $quite == 1;
-  if ( $processes =~ m/$DEprocess/ ) {
+
+## Find a Desktop Environment ##
+DESKTOP:
+goto WINDOWM if !$display{DE};
+while(my($DEname,$DEprocess) = each(%DElist)) {
+    next if $processes !~ /$DEprocess/s;
+
     $DE = $DEname;
-    print "\::$textcolor DE found as $DE\n" unless $quite == 1;
-    if( $display =~ m/DE/ ) {
-      push(@line, " DE:$textcolor $DE");
-    }
+    print "::$colors[0] Desktop Environment found as $colors[1]$DEname$nocolor\n" 
+        if $debug;
+    push @info, "$colors[0]Desktop Environment\t$colors[1]$DEname$nocolor";
     last;
-  }
 }
 
-## Find WM ##
-while( (my $WMname, my $WMprocess) = each(%WMlist) ) {
- print "\::$textcolor Testing $WMname process: $WMprocess \n" unless $quite == 1;
-  if ( $processes =~ m/$WMprocess/ ) {
+## Find a Window Manager ##
+WINDOWM:
+goto ICON if !$display{WM};
+while(my($WMname,$WMprocess) = each(%WMlist)) {
+    next if $processes !~ /$WMprocess/sg;
+
     $WM = $WMname;
-    print "\::$textcolor WM found as $WM\n" unless $quite == 1;
-    if( $display =~ m/WM/ ) {
-      push(@line, " WM:$textcolor $WM");
-    }
+    print "::$colors[0] Window Manager found as $colors[1]$WMname$nocolor\n" 
+        if $debug;
+    push @info, "$colors[0]Window Manager\t\t$colors[1]$WMname$nocolor";
     last;
-  }
 }
 
-## Find WM theme ##
-if ( $display =~ m/Win_theme/ ){
-  switch($WM) {
-    case "Openbox" {
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.config/openbox/rc.xml")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) {
-        if( /<name>(.+)<\/name>/ ) {
-          while ( $found == 0 ) {
-            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;
-            push(@line, " WM Theme:$textcolor $1");
-            $found = 1;
-          }
-        }
-      }
-      close(FILE);
-    }
-    case "Metacity" {
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      my $gconf = `gconftool-2 -g /apps/metacity/general/theme`;
-      print "\::$textcolor $WM theme found as $gconf\n" unless $quite == 1;
-      chomp ($gconf);
-      push(@line, " WM Theme:$textcolor $gconf");
-    }
-    case "Fluxbox" {
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.fluxbox/init")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) {
-        if( /session.styleFile:.*\/(.+)/ ) {
-          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;
-          push(@line, " WM Theme:$textcolor $1");
-        }
-      }
-      close(FILE);
-    }
-    case "Blackbox" {
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.blackboxrc")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) {
-        if( /session.styleFile:.*\/(.+)/ ) {
-          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;
-          push(@line, " WM Theme:$textcolor $1");
-        }
-      }
-      close(FILE);
-    }
-    case "Xfwm4" {
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.config/xfce4/mcs_settings/xfwm4.xml")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) {
-        if( /<option name="Xfwm\/ThemeName" type="string" value="(.+)"\/>/ ) {
-          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;
-          push(@line, " WM Theme:$textcolor $1");
-        }
-  } 
-      close(FILE);
-    }
-    case "Kwin" {
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.kde/share/config/kwinrc")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) {
-        if( /PluginLib=kwin3_(.+)/ ) {
-          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;
-          push(@line, " WM Theme:$textcolor $1");
-        }
-      }
-      close(FILE);
-    }
-    case "Enlightenment" {
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      my $remote = `enlightenment_remote -theme-get theme` ;
-      if( $remote =~ m/.*FILE="(.+).edj"/ ) {
-        print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;
-        push(@line, " WM Theme:$textcolor $1");
-      }     
-    }       
-    case "IceWM" { 
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.icewm/theme")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) {
-        if( /Theme="(.+)\/.*.theme/ ) {
-          while( $found == 0 ) {
-            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;
-            push(@line, " WM Theme:$textcolor $1");
-            $found = 1;
-          }
-        }
-      }   
-      close(FILE);
-    }   
-    case "PekWM" {
-      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.pekwm/config")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) {
-        if( /Theme.*\/(.*)"/ ) {
-            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;
-            push(@line, " WM Theme:$textcolor $1");
-        }
-      }
-      close(FILE); 
-    } 
-  }   
-}     
-      
-## Find Theme Icon and Font ##
-if ( $display =~ m/[Theme, Icons, Font, Background]/) {
-  switch($DE) {
-    case "Gnome" {
-      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;
-      if ( $display =~ m/Theme/ ) {
-        my $gconf = `gconftool-2 -g /desktop/gnome/interface/gtk_theme`;
-        chomp ($gconf);
-        print "\::$textcolor GTK Theme found as $1\n" unless $quite == 1;
-        push(@line, " GTK Theme:$textcolor $gconf");
-      }
-      if ( $display =~ m/Icons/ ) {
-        my $gconf = `gconftool-2 -g /desktop/gnome/interface/icon_theme`;
-        chomp ($gconf);
-        push(@line, " Icons:$textcolor $gconf");
-      } 
-      if ( $display =~ m/Font/ ) {
-        my $gconf = `gconftool-2 -g /desktop/gnome/interface/font_name`;
-        chomp ($gconf);
-        push(@line, " Font:$textcolor $gconf");
-      }
-	  if ( $display =~ m/Background/ ) {
-        my $gconf = `gconftool-2 -g /desktop/gnome/background/picture_filename`;
-        chomp ($gconf);
-		my $bname = basename($gconf);
-		push(@line, " Background:$textcolor $bname");
-      }
-
-    } 
-    case "Xfce4" {
-      my @sort = ();
-      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.config/xfce4/mcs_settings/gtk.xml")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) {
-     if ( $display =~ m/Theme/ ) {
-          if (/<option name="Net\/ThemeName" type="string" value="(.+)"\/>/ ) {
-            print "\::$textcolor GTK Theme found as $1\n" unless $quite == 1;
-            unshift(@sort, " GTK Theme:$textcolor $1");
-          } 
-        }
-        if ( $display =~ m/Icons/ ) {
-          if (/<option name="Net\/IconThemeName" type="string" value="(.+)"\/>/ ) {
-            print "\::$textcolor Icons found as $1\n" unless $quite == 1;
-            unshift(@sort, " Icons:$textcolor $1");
-          }
-        }
-        if ( $display =~ m/Font/ ) {
-          if ( /<option name="Gtk\/FontName" type="string" value="(.+)"\/>/ ) {
-            print "\::$textcolor Font found as $1\n" unless $quite == 1;
-            unshift(@sort, " Font:$textcolor $1");
-          } 
-        }
-      }
-      close(FILE);
-      ## Sort variables so they're ordered "Theme Icon Font" ##
-      foreach my $i (@sort) {
-        push(@line, "$i");
-      }
-    } 
-    case "KDE" { 
-      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;
-      open(FILE, "$ENV{HOME}/.kde/share/config/kdeglobals")
-      || die "\e[0;31m<Failed>\n";
-      while( <FILE> ) { 
-        if ( $display =~ m/Theme/ ) {
-          if ( /widgetStyle=(.+)/  ) {
-            print "\::$textcolor Wiget Style found as $1\n" unless $quite == 1;
-            push(@line, " Wiget Style:$textcolor $1");
-          }
-          if (/colorScheme=(.+).kcsrc/ ) {
-            print "\::$textcolor Color Scheme found as $1\n" unless $quite == 1;
-            push(@line, " Color Scheme:$textcolor $1");
-          }
-        }
-        if ( $display =~ m/Icons/ ) {
-          if ( /Theme=(.+)/ ) {
-            print "\::$textcolor Icons found as $1\n" unless $quite == 1;
-            push(@line, " Icons:$textcolor $1");
-          } 
-        }   
-        if ( $display =~ m/Font/ ) {
-          if ( /font=(.+)/ ) {
-            my $font = (split/,/, $1)[0];
-            print "\::$textcolor Font found as $font\n" unless $quite == 1;
-            push(@line, " Font:$textcolor $font");
-          }
-        }
-      }
-      close(FILE);
-  
-    }
-    else {
-      my @files = ("$ENV{HOME}/.gtkrc-2.0", "$ENV{HOME}/.gtkrc.mine",);
-      foreach my $file (@files) {
-        if ( -e $file ) {
-          print "\::$textcolor Opening $file\n" unless $quite == 1; 
-          open(FILE, $file)
-          || die "\e[0;31m<Failed>\n";
-          while( <FILE> ) {
-            if ( $display =~ m/Theme/ ) {
-              if( /include ".*themes\/(.+)\/gtk-(1|2)\.0\/gtkrc"/ ){
-                print "\::$textcolor GTK theme found as $1\n" unless $quite == 1;
-                push(@line, " GTK Theme:$textcolor $1");
-              }
-            }
-            if ( $display =~ m/Icons/ ) {
-              if( /.*gtk-icon-theme-name.*"(.+)"/ ) {
-                print "\::$textcolor Icons found as $1\n" unless $quite == 1;
-                push(@line, " Icons:$textcolor $1");
-              }
-            }
-            if ( $display =~ m/Font/ ) {
-              if( /.*gtk-font-name.*"(.+)"/ ) {
-                print "\::$textcolor Font found as $1\n" unless $quite == 1;
-                push(@line, " Font:$textcolor $1");
-             }
-            }
-          }
-          close(FILE);
-        }
-      }
-    }
-  }
-}
-
-## Display the system info ##
-
-if ( $distro =~ m/Archlinux/ ) {
-
-## Get Archlinux version ##
-if ( $display =~ "OS"){
-  print "\::$textcolor Finding Archlinux version\n" unless $quite == 1;
-  my $version = $myArchVersion;
-  $version =~ s/\s+/ /g;
-  $version = " OS:$textcolor $version";
-  unshift(@line, "$version");
-}
-
-#my $c1 = "\e[38;5;47m";
-#my $c3 = "\e[38;5;26m";
-#my $c2 = "\e[1m";
-
-my $c1 = "\e[1;34m";
-my $c3 = "\e[0;34m";
-my $c2 = "\e[1m";
-
-print "$c1
-$c1               +             
-$c1               #             
-$c1              ###               $c2@line[0] 
-$c1             #####              $c2@line[1]
-$c1             ######             $c2@line[2]
-$c1            ; #####;            $c2@line[3]
-$c1           +##.#####            $c2@line[4]
-$c1          +##########           $c2@line[5]
-$c1         ######$c3#####$c1##;         $c2@line[6]       
-$c1        ###$c3############$c1+        $c2@line[7] 
-$c1       #$c3######   #######        $c2@line[8]
-$c3     .######;     ;###;`\".     
-$c3    .#######;     ;#####.    
-$c3    #########.   .########`     
-$c3   ######'           '######   
-$c3  ;####                 ####;  
-$c3  ##'                     '##  
-$c3 #'                         `# 
-$c3'                            `
-\e[0m";
+## Find a Window Manager Theme ##
+WINDOWMT:
+goto ICON if !$display{WMT} || !$display{WM} || $WM eq "";
+print "::$colors[0] Finding $WM theme$nocolor\n" 
+    if $debug;
+
+$WM eq "Openbox" && do {
+    ($theme) = fgrep(["$ENV{HOME}/.config/openbox/rc.xml"], ["<name>(.+?)</name>"]);
+    goto ICON;
+};
+
+$WM eq "Beryl" && do {
+    ($theme) = fgrep(["$ENV{HOME}/.emerald/theme/theme.ini"], ["description=(.*?)$/"]);
+    goto ICON;
+};
+
+$WM eq "Metacity" && do {
+    $theme = `gconftool-2 -g /apps/metacity/general/theme`;
+    chomp $theme;
+    goto ICON;
+};
+
+$WM eq "Fluxbox" && do {
+    ($theme) = fgrep(["$ENV{HOME}/.fluxbox/init"], ["session.styleFile:\s*/.*?/(.+?)"]);
+    goto ICON;
+};
+
+$WM eq "Blackbox" && do {
+    ($theme) = fgrep(["$ENV{HOME}/.blackboxrc"], ["session.styleFile:\s*/.*?/(.+?)"]);
+    goto ICON;
+};
+
+$WM eq "Xfwm4" && do {
+    ($theme) = fgrep(["$ENV{HOME}/.config/xfce4/mcs_settings/xfwm4.xml"], ["<option name=\"Xfwm/ThemeName\" type=\"string\" value=\"(.+?)\"/>"]);
+    goto ICON;
+};
+
+$WM eq "Kwin" && do {
+    ($theme) = fgrep(["$ENV{HOME}/.kde/share/config/kwinrc"], ['PluginLib=kwin[34]_(.+?)\s']);
+    goto ICON;
+};
+
+$WM eq "Enlightenment" && do {
+    my $remote = `enlightenment_remote -theme-get theme`;
+    ($theme) = $remote =~ /FILE="(.+?)\\.edj"/sg;
+    goto ICON;
+};
+
+$WM eq "IceWM" && do {
+    ($theme) = fgrep(["$ENV{HOME}/.icewm/theme"], ["Theme=\"(.+?)/.*?\\.theme"]);
+    goto ICON;
+};
+
+$WM eq "PekWM" && do {
+    ($theme) = fgrep(["$ENV{HOME}/.pekwm/config"], ["Theme.*?/(.*?)"]);
+    goto ICON;
+};
+
+$WM eq "Dwm" && do {
+    undef $theme; ## Unless you want to grab some values from the binary?
+    goto ICON;
+};
+
+$WM eq "Awesome" && do {
+    undef $theme;
+    goto ICON;
+};
+
+ICON:
+if( $theme ne "" ) {
+    print "::$colors[0] $WM Theme found as $colors[1]$theme$nocolor\n" 
+        if $debug;
+    push @info, "$colors[0]$WM Theme $colors[1]\t\t$theme$nocolor";
 }
 
+$DE eq "Gnome" && do {
+    $icon = `gconftool-2 -g /desktop/gnome/interface/icon_theme`;
+    $font = `gconftool-2 -g /desktop/gnome/interface/font_name`;
+    $theme = `gconftool-2 -g /desktop/gnome/interface/gtk_theme`;
+    chomp $icon; chomp $font; chomp $theme; 
+    goto PRINT;
+};
+
+$DE eq "Xfce4" && do {
+    ($icon,$font,$theme) = fgrep(["$ENV{HOME}/.config/xfce4/mcs_settings/gtk.xml"],
+                             ['<option name="Net/IconThemeName" type="string" value="(.+?)"/>',
+                              '<option name="Gtk/FontName" type="string" value="(.+?)"/>',
+                              '<option name="Net/ThemeName" type="string" value="(.+?)"/>']);
+    goto PRINT;
+};
+
+$DE eq "KDE" && do {
+    ($theme,$cscheme,$icon,$font) = fgrep(["$ENV{HOME}/.kde/share/config/kdeglobals"],
+                                      ['widgetStyle=(.+?)\s',
+                                       'colorScheme=(.+?)\.kcsrc\s',
+                                       'Theme=(.+?)\s',
+                                       'font=(.+?)\s']);
+    $font = (split /,/, $font)[0];
+    goto PRINT;
+};
+
+@vars = fgrep(["$ENV{HOME}/.gtkrc-2.0",
+               "$ENV{HOME}/.gtkrc.mine"], 
+              ['include ".*?themes/(.+?)/gtk-[12]\.0/gtkrc',
+               '.*?gtk-icon-theme-name.*?"(.+?)"',
+               '.*?gtk-font-name.*?"(.+?)"']);
+
+$theme = $vars[0] ? $vars[0] : $vars[3] ? $vars[3] : "";
+$icon  = $vars[1] ? $vars[1] : $vars[4] ? $vars[4] : "";
+$font  = $vars[2] ? $vars[2] : $vars[5] ? $vars[5] : "";
+
+## Lets print this bitch ##
+PRINT:
+push @info, $colors[0].($DE ? $DE : "GTK")." Theme \t\t$colors[1]".($DE eq "KDE" ? "$theme/$cscheme" : $theme).$nocolor
+    if $display{UI} && $theme ne "";
+
+push @info, "$colors[0]Icons\t\t\t$colors[1]$icon$nocolor"
+    if $display{IC} && $icon ne "";
+
+push @info, "$colors[0]Font\t\t\t$colors[1]$font$nocolor"
+    if $display{FN} && $font ne "";
+
+printf $distro, @info; sleep 3;
+exec $screenshot 
+    if $screenshot ne "";
+
+sub fgrep(\@\@) {
+    my($files,$regexps) = @_;
+    my @retvals = ();
+    my $slurp = $/; undef $/;
+
+    foreach my $file (@$files) {
+        next if !(-e $file);
+
+        open FILE, "<", $file || die "$colors[0]Error opening $colors[1]'$file', $colors[0]$!$nocolor\n";
+        $content = <FILE>;
+        close FILE;
+
+        foreach my $regexp (@$regexps) {
+            my $expg = 0; $expg++ while( $regexp =~ /\(.*?\)/g );
+            my @tmp = $content =~ /$regexp/sg;
+            push @tmp, "" while( scalar @tmp < $expg );
+            @retvals = (@retvals,@tmp);
+        }
+    }
 
-if ( $distro =~ m/None/ ) {
-my $color = "\e[0;34m";
-  foreach my $filled ( @line ) {
-    print "$color $filled\n"
-  }
+    $/ = $slurp;
+    @retvals;
 }
 
-if ( $distro =~ m/Debian/ ) {
-
-## Get Debian version ##
-if ( $display =~ "OS"){
-  print "\::$textcolor Finding Debian version\n" unless $quite == 1;
-  my $version = `cat /etc/Debian_release`;
-  $version =~ s/\s+/ /g;
-  $version = " OS:$textcolor $version";
-  unshift(@line, "$version");
-}
+sub distro {
+    my $distro = "";
+    my $slurp = $/; undef $/;
+
+    foreach $ops (@distros) {
+        next if !(-e @$ops[1]);
+
+        $fdistro = $distro = @$ops[0];
+        open FILE, "<", @$ops[1] || die "$colors[0]Error opening $colors[1]'@$ops[1]', $colors[0]$!$nocolor\n";
+        $content = <FILE>;
+        close FILE;
+        
+        if( defined @$ops[2] ) {
+            $content =~ /@$ops[2]/sg;
+            $fdistro .= "  ($1)";
+        }
+        
+        chomp $distro; chomp $fdistro;
+        last;
+    }
 
-my $c1 = "\e[0;31m";
-
-print "
-$c1       _,met\$\$\$\$\$gg.
-$c1    ,g\$\$\$\$\$\$\$\$\$\$\$\$\$\$\$P.
-$c1  ,g\$\$P\"\"       \"\"\"Y\$\$.\".              @line[0]
-$c1 ,\$\$P'              \`\$\$\$.              @line[1]
-$c1',\$\$P       ,ggs.     \`\$\$b:            @line[2]
-$c1\`d\$\$'     ,\$P\"'   .    \$\$\$             @line[3]
-$c1 \$\$P      d\$'     ,    \$\$P             @line[4]
-$c1 \$\$:      \$\$.   -    ,d\$\$'             @line[5]
-$c1 \$\$\;      Y\$b._   _,d\$P'               @line[6]
-$c1 Y\$\$.    \`.\`\"Y\$\$\$\$P\"'                  @line[7]
-$c1 \`\$\$b      \"-.__                       @line[8]
-$c1  \`Y\$\$
-$c1   \`Y\$\$.
-$c1     \`\$\$b.
-$c1       \`Y\$\$b.
-$c1          \`\"Y\$b._
-$c1              \`\"\"\"\"
-\e[0m";   
-}       
-
-if ( $distro =~ m/Ubuntu/ ) {
-
-## Get Ubuntu version ##
-if ( $display =~ "OS"){
-  print "\::$textcolor Finding Ubuntu version\n" unless $quite == 1;
-  my $version = `head -3 /etc/lsb-release |cut -d"=" -f2`;
-  $version =~ s/\s+/ /g;
-  $version = " OS:$textcolor $version";
-  unshift(@line, "$version");
-}
+    return ""
+        if $distro eq "";
 
-my $c1 = "\e[0;31m";
-my $c2 = "\e[0;33m";
-my $c3 = "\e[0;35m";
-
-print "
-               $c1.-. 
-         $c3.-'``$c1(   )     @line[0]
-      $c2,` $c3      $c1`-'$c3.$c1     @line[1]
-     $c2/    $c3'``-.   `$c1     @line[2]
-   $c3.-.  $c2,       $c3`___:$c1     @line[3]
-  $c3(   )$c2:        $c1 ___      @line[4]
-   $c3`-'  $c2`       $c1,   :     @line[5]
-     $c2`    $c1`..-`   ,     @line[6]
-      $c2`./ $c1     $c2.-.$c1`     @line[7]
-         $c1`-..-$c2(   )$c1     @line[8]
-               $c2`-' 
-\e[0m"; 
+    $/ = $slurp; $distro = lc $distro;
+    eval "\$distro = \$$distro;";
+    push @info, "$colors[0]Distro\t\t\t$colors[1]$fdistro$nocolor";
+    $distro;
 }
-
-#return 0;      
-## Run screen shot graper ##
-`$command` unless $shot != 0;
diff --git a/logos.pl b/logos.pl
new file mode 100644
index 0000000..9739ed2
--- /dev/null
+++ b/logos.pl
@@ -0,0 +1,37 @@
+## Put your distrobutions logos here
+#
+# Format::
+#   For a new distro
+#       push @distros, ["DistroShowName", "/path/to/current/version", "Optional regexp to get & append to the DistroShowName"];
+#       $distroname = "..distros logo..";
+#   
+#   The logo variable should be a lower-cased version of the DistroShowName.
+#   With in the logo, Please escape unused %.
+# 
+#
+
+
+push @distros, ["ArchLinux", "/etc/issue", "Arch Linux \\((.*?)\\)"];
+$archlinux = "
+$colors[1]
+$colors[1]
+$colors[1]
+$colors[1]                       __       $colors[0]___                                 
+$colors[1]                      /\\ \\    $colors[0] /\\_ \\    __                          
+$colors[1]     __     _ __   ___\\ \\ \\___ $colors[0]\\//\\ \\  /\\_\\    ___   __  __  __  _  
+$colors[1]   /'__`\\  /\\`'__\\/'___\\ \\  _ `\\ $colors[0]\\ \\ \\ \\/\\ \\ /' _ `\\/\\ \\/\\ \\/\\ \\/'\\ 
+$colors[1]  /\\ \\L\\.\\_\\ \\ \\//\\ \\__/\\ \\ \\ \\ \\ $colors[0]\\_\\ \\_\\ \\ \\/\\ \\/\\ \\ \\ \\_\\ \\/>  </ 
+$colors[1]  \\ \\__/.\\_\\\\ \\_\\\\ \\____\\\\ \\_\\ \\_\\$colors[0]/\\____\\\\ \\_\\ \\_\\ \\_\\ \\____//\\_/\\_\\
+$colors[1]   \\/__/\\/_/ \\/_/ \\/____/ \\/_/\\/_/$colors[0]\\/____/ \\/_/\\/_/\\/_/\\/___/ \\//\\/_/
+$colors[0]   
+$colors[0]      $colors[2]%s
+$colors[0]      $colors[2]%s
+$colors[0]      $colors[2]%s
+$colors[0]      $colors[2]%s     
+$colors[0]      $colors[2]%s
+$colors[0]      $colors[2]%s
+$colors[0]      $colors[2]%s
+$colors[0]      $colors[2]%s
+$colors[0]      $colors[2]%s
+$colors[1]
+$colors[1]"
diff --git a/pagerank b/pagerank
new file mode 100755
index 0000000..c2d0892
--- /dev/null
+++ b/pagerank
diff --git a/prank b/prank
new file mode 100755
index 0000000..125e9d2
--- /dev/null
+++ b/prank
@@ -0,0 +1,35 @@
+#!/bin/bash
+
+#
+# prank.sh - Find any URL's Google Page Rank (PR)
+#
+# 2008 - Mike Golvach - eggi@comcast.net
+#
+# Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License
+#
+
+if [ $# -ne 1 ]
+then
+ echo "Usage: $0 HttpOrHttpsURL\n"
+ exit 1
+fi
+
+pr_checksum_prog="pagerank"
+
+if [ ! -x $pr_checksum_prog ]
+then
+ echo "Cannot Find Checksum Program: $pr_checksum_prog !"
+ exit 2
+fi
+
+wget=/usr/bin/wget
+prank_url=$1
+mod_prank_url=`echo $prank_url|sed -e 's/:/%3A/g' -e 's/\//%2F/g'`
+prank_checksum=`$pr_checksum_prog $prank_url|sed 's/Checksum=//'`
+
+prank_qurl="http://toolbarqueries.google.com/search?client=navclient-auto&ch=${prank_checksum}&ie=UTF-8&oe=UTF-8&features=Rank&q=info:${mod_prank_url}"
+
+echo -n "Google PR For $prank_url = "
+
+$wget -nv -O - "$prank_qurl" 2>&1|grep "Rank_"|sed 's/Rank_[0-9]:[0-9]://'
+exit 0
diff --git a/set-background.sh b/set-background.sh
index 3b2a234..ea3e069 100755
--- a/set-background.sh
+++ b/set-background.sh
@@ -34,6 +34,7 @@ fi
 FILE=$1
 if [ -f $FILE ]; then
 	echo "feh --bg-center ${FILE}" > "/home/flo/.fehbg";
+	rm "/home/flo/backgrounds/current_bg";
 	ln -sf "${FILE}" "/home/flo/backgrounds/current_bg";
 	source /home/flo/.fehbg
 else
diff --git a/ssh-mount.sh b/ssh-mount.sh
index 77ed92c..91d324c 100755
--- a/ssh-mount.sh
+++ b/ssh-mount.sh
@@ -11,6 +11,10 @@ else
 			sshfs web0@nevera: -p 22222 ${HOME}/workspace/ipx_ssh &&
 			echo -e "${GREEN}IPX mounted.$NC"
 		;;
+		wf)
+			sshfs stem47@stem47.loomes.net: -p 22 ${HOME}/workspace/wf_ssh &&
+			echo -e "${GREEN}WF mounted.$NC"
+		;;
 		*)           echo -e "${RED}Error:$NC Unknown Server" ;;
 	esac
  
diff --git a/ssh-unmount.sh b/ssh-unmount.sh
index 50d3c2b..fca1868 100755
--- a/ssh-unmount.sh
+++ b/ssh-unmount.sh
@@ -1,5 +1,6 @@
 #!/bin/sh
 
 fusermount -uq ${HOME}/workspace/ipx_ssh
+fusermount -uq ${HOME}/workspace/wf_ssh
 
 echo -e "${GREEN}Unmounted.";