Info script

Question

I' m trying to use the info script found on this forum, but I' ve some problem.....
This is the script:
#!/usr/bin/perl
# colors
$c1 = "\e[0;34m";
$c2 = "\e[0;36m";
$c3 = "\e[0;m";
#what values to display. Use "OS Kernel DE WM WMTheme Font Icon Theme"
$display = "OS Kernel DE WM WMTheme Theme Icon Font";
use Switch;
@wm = ("fluxbox", "openbox", "blackbox",
"xfwm", "metacity", "kwin");
@line = ();
%de = ("gnome", "gnome-session",
"xfce", "xfce",
"kde", "ksmserver");
$quite = 1; # Prints little debugging messages if set to 0;
$tryWP = 1; # trys to find your wallpaper if set to 0;
## Dont alter after this ##
my $isDE = 0;
my $version = `cat /etc/arch-release`;
my $kernel = `uname -r`;
$version =~ s/\s+/ /g;
$kernel =~ s/\s+/ /g;
$version = "$c1 OS:$c3 $version";
$kernel = "$c1 Kernel:$c3 $kernel";
if ( $display =~ "OS"){
push(@line, "$version");
if ( $display =~ "Kernel"){
push(@line, "$kernel");
parsePS(2);
$isDE == 0 && print "No DE found, not running one?..\n" unless $quite == 1;
if( $isDE == 0 ) {
if( !open(GTKRC, "<", "$ENV{HOME}/.gtkrc-2.0") ) {
print "$ENV{HOME}.gtkrc-2.0 -> $!...\n";
} else {
while( <GTKRC> ) {
if( /include "$ENV{HOME}\/\.themes\/(.+)\/gtk-(1|2)\.0\/gtkrc"/ ){
$theme = "$c1 Theme:$c3 $1";
if ( $display =~ m/Theme/ ) {
push(@line, "$theme");
if( /gtk-icon-theme-name.*=.*"(.+)"/ ) {
$icon = "$c1 Icons:$c3 $1";
if ( $display =~ m/Icon/ ) {
push(@line, "$icon");
if( /gtk-font-name.*=.*"(.+)"/ ) {
$font = "$c1 Font:$c3 $$1";
if ( $display =~ m/Font/ ) {
push(@line, "$font");
close(GTKRC);
## Processes First
parsePS(1);
## Couldn't find a WM in PS
$WM =~ /Unknown/ && print "No WM found, yours isn't on the list?...\n" unless $quite == 1;
} else {
grabDEinfo($DE);
print "
$c1 __
$c1 _=(SDGJT=_
$c1 _GTDJHGGFCVS) @line[0]
$c1 ,GTDJGGDTDFBGX0 @line[1]
$c1 JDJDIJHRORVFSBSVL$c2-=+=,_ @line[2]
$c1 IJFDUFHJNXIXCDXDSV,$c2 \"DEBL @line[3]
$c1 |LKDSDJTDU=OUSCSBFLD.$c2 '?ZWX, @line[4]
$c1 LMDSDSWH' \`?DCBOSI$c2 DRDS], @line[5]
$c1 SDDFDFH' \`0YEWD,$c2 )HDROD @line[6]
$c1 !KMDOCG &GSU|$c2\_GFHRGO' @line[7]
$c1 HKLSGP'$c2 __$c1\TKM0$c2\GHRBV)'
$c1 JSNRVW'$c2 __+MNAEC$c1\IOI,$c2\BN'
$c1 HELK['$c2 __,=OFFXCBGHC$c1\FD)
$c1 ?KGHE $c2\_-#DASDFLSV='$c1 'EF
$c1 'EHTI !H
$c1 \`0F' '!
sub parsePS {
my $x = 0;
my $y = 0;
my $found = 0;
my $psl = `ps -A | awk {'print \$4'}`;
@psl = split(/\n/, $psl);
switch (shift @_) {
case 1 {
$WM = "Unknown";
while( $x < @wm && $found == 0 ) {
while( $y < @psl ) {
print "Testing '$psl[$y]' with '$wm[$x]'\n" unless $quite == 1;
if( $psl[$y] =~ /$wm[$x]/ ) {
$WM = $wm[$x];
if ( $display =~ m/WM/ ) {
push(@line, "$c1 WM:$c3 $WM");
print "WM found as $WM\n" unless $quite == 1;
getWMtheme();
$found = 1;
last;
$y++;
$y = 0;
$x++;
$found == 1 && last;
case 2 {
$isDE = 0;
$DE = "None";
while( ($dev, $devid) = each(%de) ) {
while( $x < @psl ) {
print "Testing '$psl[$x]' with '$devid'\n" unless $quite == 1;
if( $psl[$x] =~ /$devid/ ) {
$DE = $dev;
print "DE found as $DE\n" unless $quite == 1;
$found = 1;
$isDE = 1;
if ( $display =~ m/DE/ ) {
push(@line, "$c1 DE:$c3 $DE");
last;
$x++;
$x = 0;
$found == 1 && last;
sub getWMtheme {
switch($WM) {
case "openbox" {
open(FILE, "<", "$ENV{HOME}/.config/openbox/rc.xml")
|| die("$!\nFailed to open OpenBox rc.xml...\n");
while( <FILE> ) {
if( /<name>(.+)<\/name>/ ) {
print "OB Theme found as $1\n" unless $quite == 1;
$WMTHEME = $1;
$wmtheme = "$c1 WM Theme:$c3 $WMTHEME";
if ( $display =~ m/WMTheme/ ) {
push(@line, "$wmtheme");
last;
close(FILE);
case "metacity" {
$WMTHEME = `gconftool-2 -g /apps/metacity/general/theme`;
$wmtheme = "$c1 WM Theme:$c3 $WMTHEME";
if ( $display =~ m/WMTheme/ ) {
push(@line, "$wmtheme");
case "fluxbox" {
open(FILE, "<", "$ENV{HOME}/.fluxbox/init")
|| die("$!\nFailed to open Fluxbox init file...\n");
while( <FILE> ) {
if( /session.styleFile: \/.+\/(.+)$/ ) {
print "FB Theme found as $1\n";
$WMTHEME = $1;
$wmtheme = "$c1 WM Theme:$c3 $WMTHEME";
if ( $display =~ m/WMTheme/ ) {
push(@line, "$wmtheme");
last;
close(FILE);
case "blackbox" {
open(FILE, "<", "$ENV{HOME}/.blackboxrc")
|| die("$!\nFailed to open Blackbox .blackboxrc file...\n");
while( <FILE> ) {
if( /session.styleFile: \/.+\/(.+)$/ ) {
print "BB Theme found as $1\n";
$WMTHEME = $1;
$wmtheme = "$c1 WM Theme:$c3 $WMTHEME";
if ( $display =~ m/WMTheme/ ) {
push(@line, "$wmtheme");
last;
close(FILE);
case "xfwm" {
open(FILE, "<", "$ENV{HOME}/.config/xfce4/mcs_settings/xfwm4.xml")
|| die("XFCE4 -> $!...\n");
while( <FILE> ) {
if( /<option name="Xfwm\/ThemeName" type="string" value="(.+)"\/>/ ) {
$WMTHEME = $1;
$wmtheme = "$c1 WM Theme:$c3 $WMTHEME";
if ( $display =~ m/WMTheme/ ) {
push(@line, "$wmtheme");
close(FILE);
case "kwin" {
open(FILE, "<", "$ENV{HOME}./kde/share/config/kwinrc")
|| die("\nFailed to open kwin config file \n");
while( <FILE> ) {
if( /PluginLib=(.+)/ ) {
$WMTHEME = $1;
$wmtheme = "$c1 WM Theme:$c3 $WMTHEME";
if ( $display =~ m/WMTheme/ ) {
push(@line, "$wmtheme");
close(FILE);
sub grabDEinfo {
switch(shift @_) {
case "gnome" {
parsePS(1);
if ( $display =~ m/Theme/ ) {
$THEME = `gconftool-2 -g /desktop/gnome/interface/gtk_theme`;
$theme = "$c1 Theme:$c3 $THEME";
push(@line, "$theme");
if ( $display =~ m/Icon/ ) {
$ICON = `gconftool-2 -g /desktop/gnome/interface/icon_theme`;
$icon = "$c1 Icon:$c3 $Icon";
push(@line, "$icon");
if ( $display =~ m/Font/ ) {
$FONT = `gconftool-2 -g /desktop/gnome/interface/font_name`;
$font = "$c1 Font:$c3 $FONT";
push(@line, "$font");
case "xfce" {
parsePS(1);
open(FILE, "<", "$ENV{HOME}/.config/xfce4/mcs_settings/gtk.xml")
|| die("XFCE4 GTK -> $!...\n");
while( <FILE> ) {
if( /<option name="Net\/ThemeName" type="string" value="(.+)"\/>/ ) {
$THEME = $1;
$theme = "$c1 Theme:$c3 $THEME";
if ( $display =~ m/Theme/ ) {
unshift(@xfce, "$theme");
if( /<option name="Net\/IconThemeName" type="string" value="(.+)"\/>/ ) {
$ICON = $1;
$icon = "$c1 Icon:$c3 $ICON";
if ( $display =~ m/Icon/ ) {
unshift(@xfce, "$icon");
if( /<option name="Gtk\/FontName" type="string" value="(.+)"\/>/ ) {
$FONT = $1;
$font = "$c1 Font:$c3 $FONT";
if ( $display =~ m/Font/ ) {
unshift(@xfce, "$font");
close(FILE);
foreach $i (@xfce) {
push(@line, "$i");
case "kde" {
prasePS(1);
open(FILE, "<", "$ENV{HOME}/.kde/share/config/kdeglobals")
|| die("\nFailed to open kwin config file \n");
while( <FILE> ) {
if( /Theme=(.+)/ ) {
$ICON = $1;
$icon = "$c1 Icon:$c3 $ICON";
if ( $display =~ m/Icon/ ) {
push(@line, $icon);
if( /widgetStyle(.+)/ ) {
$THEME = $1;
$theme = "$c1 Theme:$c3 $THEME";
if ( $display =~ m/Theme/ ) {
push(@line, $icon);
if( /font=(.+),.*/ ) {
$FONT = $1;
$font = "$c1 Font:$c3 $FONT";
if ( $display =~ m/Icon/ ) {
push(@line, $font);
and this is the result:
What' s wrong?

Answer 1

dolby wrote:
no it still doesnt work. ive got a plain openbox. no gnome/xfce/kde/*
:: Finding Kernel version
:: Getting processes
:: Testing KDE process: ksmserver
:: Testing Gnome process: gnome-session
:: Testing Xfce4 process: xfce-mcs-manage
:: Testing PekWM process: pekwm
:: Testing Fluxbox process: fluxbox
:: Testing FVWM process: fvwm
:: Testing Blackbox process: blackbox
:: Testing IceWM process: icewm
:: Testing Enlightenment process: enlightenment
:: Testing Openbox process: openbox
:: WM found as Openbox
:: Finding Openbox theme
:: Openbox theme found as DarkGraph
:: Opening /home/dou/.gtkrc-2.0
:: Opening /home/dou/.gtkrc.mine
:: Icons found as Tango
:: Font found as Sans 9
:: Finding Archlinux version
_=(SDGJT=_
_GTDJHGGFCVS) OS: Arch Linux 0.8 (Voodoo)
,GTDJGGDTDFBGX0 Kernel: 2.6.20-ARCH
JDJDIJHRORVFSBSVL-=+=,_ WM: Openbox
IJFDUFHJNXIXCDXDSV, "DEBL WM Theme: DarkGraph
[LKDSDJTDU=OUSCSBFLD. '?ZWX, Icons: Tango
,LMDSDSWH' `DCBOSI DRDS], Font: Sans 9
SDDFDFH' !YEWD, )HDROD
!KMDOCG &GSU|_GFHRGO'
HKLSGP' __TKM0GHRBV)'
JSNRVW' __+MNAECIOI,BN'
HELK[' __,=OFFXCBGHCFD)
?KGHE _-#DASDFLSV=' 'EF
'EHTI !H
`0F' '!
while the one i used before (link posted above)
OS: Arch Linux 0.8 (Voodoo)
Kernel: 2.6.20-ARCH
Gtk Theme: Murrina-Black
Gtk Icons: Tango
Gtk Font: Sans 9
WM: Openbox
Openbox Theme: DarkGraph
Your arch data should perhaps have....."voodoo Arch Linux" thruout the simulation!!!!!!!