diff options
| -rwxr-xr-x | bashrun | 3 | ||||
| -rwxr-xr-x | grank | 91 | ||||
| -rwxr-xr-x | info.pl | 678 | ||||
| -rw-r--r-- | logos.pl | 37 | ||||
| -rwxr-xr-x | pagerank | bin | 0 -> 8930 bytes | |||
| -rwxr-xr-x | prank | 35 | ||||
| -rwxr-xr-x | set-background.sh | 1 | ||||
| -rwxr-xr-x | ssh-mount.sh | 4 | ||||
| -rwxr-xr-x | ssh-unmount.sh | 1 |
9 files changed, 425 insertions, 425 deletions
@@ -1,5 +1,4 @@ - -#!/bin/dash +#!/bin/bash # # usage: bashrun [geometry] (default: 40x1) # @@ -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 @@ -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 Binary files differnew file mode 100755 index 0000000..c2d0892 --- /dev/null +++ b/pagerank @@ -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."; |