inout Δημοσ. 14 Νοεμβρίου 2009 Δημοσ. 14 Νοεμβρίου 2009 paschalis.m πολύ όμορφο! το pattern μπορείς να μου το στείλεις?? Πολύ καλό περιβάλλον εργασίας...
firewalker Δημοσ. 14 Νοεμβρίου 2009 Δημοσ. 14 Νοεμβρίου 2009 Και εδώ το kubuntu karmic μου Ειλικρινά, το wallpaper αυτό δεν σε ενοχλεί μετά από λίgη ώρα; Δεν είναι πολύ έντονο;
paschalis.m Δημοσ. 14 Νοεμβρίου 2009 Δημοσ. 14 Νοεμβρίου 2009 paschalis.m πολύ όμορφο! το pattern μπορείς να μου το στείλεις?? Πολύ καλό περιβάλλον εργασίας... Soft and Clean
pisio Δημοσ. 14 Νοεμβρίου 2009 Δημοσ. 14 Νοεμβρίου 2009 @paschalis.m αυτό με το σήμα Ubuntu και τα χαρακτηριστικά του συστήματος στην κονσόλα πώς το έκανες
paschalis.m Δημοσ. 14 Νοεμβρίου 2009 Δημοσ. 14 Νοεμβρίου 2009 (επεξεργασμένο) Ειναι απο δω το script: http://bbs.archlinux.org/viewtopic.php?pid=588982#p588982 To δικο μου, που το εχω τροποιησει με το σημα του ubuntu και κατι ψιλα. >#!/usr/bin/perl 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 = "Xubuntu 9.10 Karmic Koala"; ## 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; ######################## ## 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" ); ## Hash of DEs and the process they run ## my %DElist = ("Gnome", "gnome-session", "Xfce4", "xfce-mcs-manage", "Xfce4", "xfconfd", "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 "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") || open(FILE, "$ENV{HOME}/.config/xfce4/xfconf/xfce-perchannel-xml/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"); } if( /<property name="theme" 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}/.kde4/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") || open(FILE, "$ENV{HOME}/.config/xfce4/xfconf/xfce-perchannel-xml/xsettings.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 (/<property name="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 (/<property name="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"); } if ( /<property name="FontName" type="string" value="(.+)"\/>/ ) { print "\::$textcolor Font found as $1\n" unless $quite == 1; unshift(@sort, " Font:$textcolor $1"); } } } close(FILE); if ( $display =~ m/Background/ ) { open(FILE_BG, "$ENV{HOME}/.config/xfce4/xfconf/xfce-perchannel-xml/xfce4-desktop.xml"); while( <FILE_BG> ) { if ( /<property name="image-path" type="string" value="(.+)"\/>/ ) { print "\::$textcolor Background found as $1\n" unless $quite == 1; my $bname = basename($1); unshift(@sort, " Background:$textcolor $bname"); } } close(FILE_BG); } ## 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}/.kde4/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[1;37m"; my $c2 = "\e[0;37m"; my $c3 = "\e[1;32m"; system("clear"); print " ${c1} :shhyo- ${c1} `````` /hhhhhhh. ${c1} -/++oooooo+`:hhhhhhy. ${c1} `-` `/ooooooooo/`-+sys+. ${c1} .::::` `/ooooooooo+/:---:. ${c1} -::::::. -..``..-/+ooooooo/` $c3@line[0] ${c1} -:::::::. `-+oooooo/` $c3@line[1] ${c1} ` .::::::- `/oooooo: $c3@line[2] ${c1} -+oo+/.`-:::: `/ooooo+` $c3@line[3] ${c2} -oooooo+.`:::. `......` $c3@line[4] ${c2} -+ooooo+``:::. -//////. $c3@line[5] ${c2} .:///:`.:::::` `yhhhhhy` $c3@line[6] ${c2} .:::::::` .shhhhhh/ $c3@line[7] ${c2} -:::::::- -+hhhhhhh+ $c3@line[8] ${c2} .::::::` `++/::/+oyhhhhhhhh/ ${c2} `-::-` .yhhhhhhhhhy/-...:. ${c2} `. -yhhhhhhhhh+`.::::-. ${c2} -/+syyyyyyo`.:::::::` ${c2} .:::::::` ${c2} `.----````` \e[0m"; } system("scrot -d 1"); Επεξ/σία 14 Νοεμβρίου 2009 από paschalis.m
pisio Δημοσ. 14 Νοεμβρίου 2009 Δημοσ. 14 Νοεμβρίου 2009 Ευχαριστώ Μια ερώτηση όμως. Στο forum λέει να το κάνουμε σε ένα αρχείο αποθήκευση όνομα_αρχείου.perl και να το τρέξουμε μετά με >perl όνομα_αρχείου.perl το κάνω αλλά μου βγάζει <Failed>
paschalis.m Δημοσ. 14 Νοεμβρίου 2009 Δημοσ. 14 Νοεμβρίου 2009 Ξανααντεγραψε το απο το πιο πανω μνμ μου. Το διορθωσα νομιζω. Απλα ειχε .kde ενω πρεπει να ειναι .kde4. Τεσπα δες νομιζω θα δουλεψει.
gtroza Δημοσ. 17 Νοεμβρίου 2009 Δημοσ. 17 Νοεμβρίου 2009 @pisio @paschalis.m αυτό με το σήμα Ubuntu και τα χαρακτηριστικά του συστήματος στην κονσόλα πώς το έκανες http://jaromil.dyne.org/ http://jaromil.dyne.org/journal/hasciicam.html δες κι αυτά .
Προτεινόμενες αναρτήσεις