You are not logged in.

#76 2007-01-05 00:08:00

TomE
Member
Registered: 2005-08-06
Posts: 164

Re: Screenshot info grabber - in development!

@rab you can use "xfce-mcs-mange" for the xfce process, than what manages xfce settings, and some people may not be using xfdesktop as it takes over the root window

@Xilon I got a version that can be used with debian just change the distro at the top.
pastebin

Offline

#77 2007-01-06 08:42:57

Xilon
Member
Registered: 2007-01-01
Posts: 243

Re: Screenshot info grabber - in development!

Here's a handy subroutine taken from an irssi script. It should be very helpful as it covers the most popular distros (no gentoo?) and is easily extensible, only problem I see is the ASCII logo.

sub distro{
   my $distro;
   if(-f "/etc/coas"){
      $distro = firstline("/etc/coas");
   }elsif(-f "/etc/environment.corel"){
      $distro = firstline("/etc/environment.corel");
   }elsif(-f "/etc/debian_version"){
      $distro = "Debian ".firstline("/etc/debian_version");
   }elsif(-f "/etc/mandrake-release"){
      $distro = firstline("/etc/mandrake-release");
   }elsif(-f "/etc/SuSE-release"){
      $distro = firstline("/etc/SuSE-release");
   }elsif(-f "/etc/turbolinux-release"){
      $distro = firstline("/etc/turbolinux-release");
   }elsif(-f "/etc/slackware-release"){
      $distro = firstline("/etc/slackware-release");
   }elsif(-f "/etc/redhat-release"){
      $distro = firstline("/etc/redhat-release");
   }
   return $distro;
}

Offline

#78 2007-01-06 13:35:11

rab
Member
Registered: 2006-06-15
Posts: 185

Re: Screenshot info grabber - in development!

thanks  big_smile


rawr

Offline

#79 2007-01-06 15:15:50

timtux
Member
From: Gävle, Sweden
Registered: 2005-10-04
Posts: 178
Website

Re: Screenshot info grabber - in development!

ion not supported sad


http://timtux.net/ - my personal blog about almost everything

Offline

#80 2007-01-11 20:39:24

TomE
Member
Registered: 2005-08-06
Posts: 164

Re: Screenshot info grabber - in development!

timtux wrote:

ion not supported sad

It's easy to add if you'er using my version you can adding the name and process to the wm hash

my %WMlist = ("Fluxbox", "fluxbox",
              "Openbox", "openbox",
              "Blackbox", "blackbox",
              "Xfwm4", "xfwm4",
              "Metacity", "metacity",
              "Kwin", "kwin",
              "FVWM", "fvwm",
              "Enlightenment", "enlightenment",
              "IceWM", "icewm",
              "Window Maker", "wmaker",
              "PekWM","pekwm",
              "Ion", "$ION_PROCESS");

Offline

#81 2007-01-12 05:45:24

timtux
Member
From: Gävle, Sweden
Registered: 2005-10-04
Posts: 178
Website

Re: Screenshot info grabber - in development!

TomE wrote:
timtux wrote:

ion not supported sad

It's easy to add if you'er using my version you can adding the name and process to the wm hash

my %WMlist = ("Fluxbox", "fluxbox",
              "Openbox", "openbox",
              "Blackbox", "blackbox",
              "Xfwm4", "xfwm4",
              "Metacity", "metacity",
              "Kwin", "kwin",
              "FVWM", "fvwm",
              "Enlightenment", "enlightenment",
              "IceWM", "icewm",
              "Window Maker", "wmaker",
              "PekWM","pekwm",
              "Ion", "$ION_PROCESS");

Aw, nice (:


http://timtux.net/ - my personal blog about almost everything

Offline

#82 2007-02-05 17:07:04

loz_hurst
Member
From: Warwickshire, UK
Registered: 2006-08-20
Posts: 4

Re: Screenshot info grabber - in development!

Xilon wrote:

Here's a handy subroutine taken from an irssi script. It should be very helpful as it covers the most popular distros (no gentoo?) and is easily extensible, only problem I see is the ASCII logo.

This page from Novell lists which files can be used to detect different distros (including Gentoo wink ) and covers a few others your example misses.

http://www.novell.com/coolsolutions/feature/11251.html

Offline

#83 2007-03-17 07:07:06

Zepp
Member
From: Ontario, Canada
Registered: 2006-03-25
Posts: 334
Website

Re: Screenshot info grabber - in development!

Can I get a link to whichever one is working the best at the moment? I am looking through the thread and half the pastebin links are gone it seems so I am not sure....

Offline

#84 2007-03-20 15:53:01

Gweg
Member
Registered: 2006-02-27
Posts: 77

Re: Screenshot info grabber - in development!

Zepp wrote:

Can I get a link to whichever one is working the best at the moment? I am looking through the thread and half the pastebin links are gone it seems so I am not sure....

+1 smile


Voodoo voodoo, VOOODOOOO ?

Offline

#85 2007-03-20 16:52:07

schoens
Member
From: My throne.
Registered: 2007-01-23
Posts: 43

Re: Screenshot info grabber - in development!

Here is my current one. Works fine, and also detects Beryl.


http://rafb.net/p/k7asY825.html

Offline

#86 2007-03-20 16:55:19

Gweg
Member
Registered: 2006-02-27
Posts: 77

Re: Screenshot info grabber - in development!

schoens wrote:

Here is my current one. Works fine, and also detects Beryl.


http://rafb.net/p/k7asY825.html

Thank you.


Voodoo voodoo, VOOODOOOO ?

Offline

#87 2007-03-24 15:20:34

Adrynalyne
Member
Registered: 2007-01-23
Posts: 47

Re: Screenshot info grabber - in development!

schoens wrote:

Here is my current one. Works fine, and also detects Beryl.


http://rafb.net/p/k7asY825.html

Blank page... sad

Offline

#88 2007-03-24 17:11:41

dtw
Forum Fellow
From: UK
Registered: 2004-08-03
Posts: 4,436
Website

Re: Screenshot info grabber - in development!

schoens wrote:

Here is my current one. Works fine, and also detects Beryl.


http://rafb.net/p/k7asY825.html

Erm, you can add that the SVN repo I created and use it if you want.  You just need a gmail account.

Once it is somewhere safe I can pkg it.

Offline

#89 2007-03-24 23:34:06

Dylan103
Member
Registered: 2006-10-19
Posts: 23

Re: Screenshot info grabber - in development!

I like it, but it comes out weird.
The arch symbole, has lines either missing, or gapped.

And beside like Font and Icon
It has liks Font: >_[0;m

              __
          _=(SDGJT=_
        _GTDJHGGFCVS)                 OS:[0;m Arch Linux 0.7.2 (Gimmick) 
       ,GTDJGGDTDFBGX0                Kernel:[0;m 2.6.18-ARCH 
      JDJDIJHRORVFSBSVL-=+=,_         DE:[0;m gnome
     IJFDUFHJNXIXCDXDSV,  "DEBL       WM:[0;m metacity
    |LKDSDJTDU=OUSCSBFLD.   '?ZWX,    WM Theme:[0;m Clearlooks

    LMDSDSWH'    `?DCBOSI     DRDS],  Theme:[0;m Clearlooks

   SDDFDFH'        `0YEWD,   )HDROD   Icon:[0;m 
  !KMDOCG            &GSU|_GFHRGO'    Font:[0;m Sans 10

  HKLSGP'           __TKM0GHRBV)'
 JSNRVW'       __+MNAECIOI,BN'
 HELK['    __,=OFFXCBGHCFD)
 ?KGHE _-#DASDFLSV='    'EF
 'EHTI                   !H
  `0F'                   '!
p

Offline

#90 2007-03-25 02:34:57

daedalusman
Member
From: CO, USA
Registered: 2006-12-05
Posts: 258

Re: Screenshot info grabber - in development!

Dylan103 wrote:

I like it, but it comes out weird.
The arch symbole, has lines either missing, or gapped.

And beside like Font and Icon
It has liks Font: >_[0;m

              __
          _=(SDGJT=_
        _GTDJHGGFCVS)                 OS:[0;m Arch Linux 0.7.2 (Gimmick) 
       ,GTDJGGDTDFBGX0                Kernel:[0;m 2.6.18-ARCH 
      JDJDIJHRORVFSBSVL-=+=,_         DE:[0;m gnome
     IJFDUFHJNXIXCDXDSV,  "DEBL       WM:[0;m metacity
    |LKDSDJTDU=OUSCSBFLD.   '?ZWX,    WM Theme:[0;m Clearlooks

    LMDSDSWH'    `?DCBOSI     DRDS],  Theme:[0;m Clearlooks

   SDDFDFH'        `0YEWD,   )HDROD   Icon:[0;m 
  !KMDOCG            &GSU|_GFHRGO'    Font:[0;m Sans 10

  HKLSGP'           __TKM0GHRBV)'
 JSNRVW'       __+MNAECIOI,BN'
 HELK['    __,=OFFXCBGHCFD)
 ?KGHE _-#DASDFLSV='    'EF
 'EHTI                   !H
  `0F'                   '!
p

Yeah, I'm getting a similar output in urxvt.

Offline

#91 2007-03-25 02:54:22

schoens
Member
From: My throne.
Registered: 2007-01-23
Posts: 43

Re: Screenshot info grabber - in development!

Here is the script I use again, since it appears that my other pastebin didn't last very long:

http://pastebin.archlinux.org/2091

As far as it looking wierd in other terminals, I had the same problem with other scripts, but everything seems to work fine with this one so far in urxvt. Not much I can do to help you there.

dtw, I checked out the link to your repo, but I guess I'm not sure what you want me to upload?

Offline

#92 2007-03-25 03:07:50

Acid7711
Member
From: Chicago, IL
Registered: 2006-08-18
Posts: 300
Website

Re: Screenshot info grabber - in development!

Works perfect! Nice job. smile I can't get it to line up on a code here, so meh. It does look nice though big_smile

Last edited by Acid7711 (2007-03-25 03:08:40)

Offline

#93 2007-03-25 08:46:28

dtw
Forum Fellow
From: UK
Registered: 2004-08-03
Posts: 4,436
Website

Re: Screenshot info grabber - in development!

schoens wrote:

dtw, I checked out the link to your repo, but I guess I'm not sure what you want me to upload?

It's an SVN repo, you can check in your version of the script when ever you update it.  It's a very simple process, there are plenty of guides on t'internet smile

Offline

#94 2007-03-25 13:20:41

schoens
Member
From: My throne.
Registered: 2007-01-23
Posts: 43

Re: Screenshot info grabber - in development!

Mind pointing me to one? Can't seem to find anything real definitive on how to upload to an SVN repo, plenty out there on how to set one up though.

Offline

#95 2007-04-29 14:50:31

delirio
Member
Registered: 2007-04-24
Posts: 6

Re: Screenshot info grabber - in development!

Where i can get this script? all pastebin-links is too old

Offline

#96 2007-04-29 17:06:23

Roberth
Member
From: Norway
Registered: 2007-01-12
Posts: 889

Re: Screenshot info grabber - in development!

What is the current result?

Last edited by Roberth (2007-04-29 17:06:36)


Use the Source, Luke!

Offline

#97 2007-05-06 20:11:39

ProzacR
Member
Registered: 2007-04-29
Posts: 272

Re: Screenshot info grabber - in development!

Yes please post code again.

Offline

#98 2007-05-07 07:41:23

Mikko777
Member
From: Suomi, Finland
Registered: 2006-10-30
Posts: 837

Re: Screenshot info grabber - in development!

Since no1 else has I will, Don't know how original this is tho and who the developer was.

#!/usr/bin/perl
use Switch;

use strict;



####################

## Config options ##

####################



## What distro logo to use to use, Available "Archlinux Debian None" ##

my $distro = "Archlinux";



## 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";



## Takes a screen shot if set to 0 ##

my $shot = 1;

## Command to run to take screen shot ##

my $command = "scrot";



## What colors to use for the variables. ##

my $textcolor = "\e[0m";



## Prints little debugging messages if set to 0 ##

my $quite = 0;







########################

## Script starts here ##

########################

## Define some thing to work with strict ##

my @line = ();

my $found = 0;

my $DE = "NONE";

my $WM = "NONE";



## 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" );



## Hash of DEs and the process they run ##     

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");

}



## Find running processes ##

print "\::$textcolor Getting processes \n" unless $quite == 1;

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/ ) {

    $DE = $DEname;

    print "\::$textcolor DE found as $DE\n" unless $quite == 1;

    if( $display =~ m/DE/ ) {

      push(@line, " DE:$textcolor $DE");

    }

    last;

  }

}



## Find WM ##

while( (my $WMname, my $WMprocess) = each(%WMlist) ) {

 print "\::$textcolor Testing $WMname process: $WMprocess \n" unless $quite == 1;

  if ( $processes =~ m/$WMprocess/ ) {

    $WM = $WMname;

    print "\::$textcolor WM found as $WM\n" unless $quite == 1;

    if( $display =~ m/WM/ ) {

      push(@line, " WM:$textcolor $WM");

    }

    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 "Beryl" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.emerald/themes/schoensyDarkgreen/theme.ini")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /name=(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $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 ans Font ##

if ( $display =~ m/[Theme, Icons, Font,]/) {

  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");

      }

    } 

    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 = `cat /etc/arch-release`;

  $version =~ s/\s+/ /g;

  $version = " OS:$textcolor $version";

  unshift(@line, "$version");

}



my $c1 = "\e[0;32m";

my $c2 = "\e[1;32m";



print "$c1              __

$c1          _=(SDGJT=_

$c1        _GTDJHGGFCVS)                $c1@line[0]

$c1       ,GTDJGGDTDFBGX0               $c1@line[1]

$c1      JDJDIJHRORVFSBSVL$c2-=+=,_        $c1@line[2]

$c1     IJFDUFHJNXIXCDXDSV,$c2  \"DEBL      $c1@line[3]

$c1    [LKDSDJTDU=OUSCSBFLD.$c2   '?ZWX,   $c1@line[4]

$c1   ,LMDSDSWH'     \`DCBOSI$c2     DRDS], $c1@line[5]

$c1   SDDFDFH'         !YEWD,$c2   )HDROD  $c1@line[6]

$c1  !KMDOCG            &GSU|$c2\_GFHRGO'   $c1@line[7]

$c1  HKLSGP'$c2           __$c1\TKM0$c2\GHRBV)'    $c1@line[8]

$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'                   '!

\e[0m";

}





if ( $distro =~ m/None/ ) {

my $color = "\e[0;34m";

  foreach my $filled ( @line ) {

    print "$color $filled\n"

  }

}



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");

}



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";   

}       

      

## Run screen shot graper ##

`$command` unless $shot != 0;

Offline

#99 2007-05-07 08:17:25

dtw
Forum Fellow
From: UK
Registered: 2004-08-03
Posts: 4,436
Website

Re: Screenshot info grabber - in development!

schoens wrote:

Mind pointing me to one? Can't seem to find anything real definitive on how to upload to an SVN repo, plenty out there on how to set one up though.

'bout the best I can find: http://subversion.tigris.org/faq.html

Offline

#100 2007-06-13 03:06:45

rab
Member
Registered: 2006-06-15
Posts: 185

Re: Screenshot info grabber - in development!

I say this needs a rewrite and a different approach.

If your desktop environment and/or window manager isn't supported...
- post the path to the configuration file
- post the configuration file, or just the theming sections

Gather a list of distro's version file path and make/find their ascii logo

Just throwing ideas up...

Last edited by rab (2007-06-13 16:51:34)


rawr

Offline

Board footer

Powered by FluxBB