Fixing terminal script for login window

A while back I copied a terminal script from an issue of Macworld that allowed you to place a custom line of text in the login window (i.e. below the apple logo) using a text file. I no longer remember how to adjust that script or where I put that text file and how.
Recently I upgraded to Tiger and that text no longer appears centered. It seems to be off-centering the usernames in the window as well. Is there any one who knows how to fix this specific script, or at least remove the text?
Thanks in advance ....

Maybe http://www.macosxhints.com/article.php?story=20050616081448481 is what you're looking for.

Similar Messages

Launching scripts at Login Window

Hello there, I'm trying to help a disabled person who wants his computer to be password protected but can't use a Keyboard and uses Keystrokes and KeyboardViewer to input into the keyboard. The problem is that I need a script to run at the login window to launch KeyboardViewer but can't find any way to run the script at the loginwindow....
Anyone have any ideas?

It was easy to do what you are asking in 10.3 and 10.4, but Apple has removed (or possibly changed) the functionality in 10.5. There's more to this story than I'm willing to say, but sometimes I really wonder if there's anyone in charge at Apple - they made changes that broke a useful function, while not fixing a potentially much more serious problem directly related to this function.
In terms of alternatives, perhaps a second, unprivileged user account could be created - one without a password. The user should be able to log in to the passwordless account with a single mouse-click. From there, an AppleScript could be used to launch "KeyboardVierwerServer.app", and activate the fast-user switching menu to log in to the desired account.

Scripting the login window

is there a way to get past the login window using Applescript. Like system events. My goal is to log in even though you have to get past the log in window.

Automatic login and no password?
Just turn on the computer.

Terminal script for delaying those yellow tooltips?

Macworld had the script for Tiger, but the same script will not work for Leopard.
I find tooltips to be annoying unless there is a good 15 seconds or so until they show.
-thanks for any help.
Ted.

Bruce Anderson wrote:
This did not work for the Finder.
" Note: Since applications do access the defaults system while they're run-
, you shouldn't modify the defaults of a running application. If you
change a default in a domain that belongs to a running application, the
application won't see the change and might even overwrite the default...."
If you man defaults, you can get a good understanding of what goes on with this command.
If you quickly relaunch Finder, after the defaults command, it might work. I don't know.
Message was edited by: nerowolfe

Commands for Login Window Settings?

Is there a command so that I can get my login window back to "list of users" setting showing my name and picture icon as opposed to "name and password" which is how it's set now?
I used a hack program and now the settings won't change despite what I do in system prefs.
Thanks.

You could try: defaults write /Library/Preferences/com.apple.loginwindow SHOWFULLNAME -boolean NO

PowerShell Notification Script for Login Servers...

Dears,
I'm looking for
PowerShell
script when any users login to the windows server
2012 to send me notification email, I wants to use task schedule for that, my point is we have many servers, and I need message come to my email when any users login to the servers should notify me with the user name and IP address for his computer,
in windows servers 2012 in task schedule there is no email sending active, so I wants to use PowerShell script instead of that, appreciate your support.
Thanks.

There are two PowerShell scripts in the artical see below
Get-EventLog-ComputerNameseimi-nb-LogName'Windows
PowerShell'|Export-Csvc:\EvetLog.csv
and
get-eventlog
-LogName
"Operations Manager"
|
where
{$_.Message
-match
"SCMCRD"}
which one should I use and put in task seclude, can you give correct PowerShell
script and write down here, I need user name and IP address appears in my email notification. Thanks

[Solved] Could someone that knows awk good fix this script for me?

I found this script on the linuxquestions site that tests and displays network bandwidth. There's an error in the script though and my awk experience isn't enough to debug it and is giving me the error:
awk: cmd. line:10: printf ("%4.0f", Ratio)}
awk: cmd. line:10: ^ syntax error
awk: cmd. line:10: printf ("%4.0f", Ratio)}
awk: cmd. line:10: ^ syntax error
^C/home/todd/.bin/bandwidth-test: line 21: [: : integer expression expected
BW Surchargé - Moyenne de de Kb/sec pendant 20 secondes
This is the script:
#!/bin/bash
# bandwidth-test - test bandwidth from the command line
Fic_Tmp="/tmp/Fic_Tmp_VerifRatio.tmp"
NbrSec=20
/usr/bin/bwm-ng -I eth0 -o csv -T avg -C " " -c ${NbrSec} | awk '
BEGIN{
BytesS=0
NbrLecture=0}
/eth0/&&NR>2{
BytesS+=$5/1024
NbrLecture+=1}
END{
Ratio=BytesS/NbrLecture
printf ("%4.0f", Ratio)}' > ${Fic_Tmp}
Ratio=$(cat ${Fic_Tmp})
rm ${Fic_Tmp}
if [ "${Ratio}" -lt 110 ];then
echo "BW OK - Moyenne de ${Ratio} de Kb/sec pendant ${NbrSec} secondes"
exit 0
else
echo "BW Surchargé - Moyenne de ${Ratio} de Kb/sec pendant ${NbrSec} secondes"
exit 2
fi
exit $?
Anyone available to fix this for me?
Last edited by Gen2ly (2009-11-17 17:52:14)

Ah, thought I counted all those. Whoops . Yep that did the trick. Thanks benob.
Edit: Just FYI to any that read this. This script only checks if you are in the cap range, so it's not really a bandwidth tester for the command line. The nearest I've found is 'iperf' which I'm unable to get to use yet.
Edit2 : netperf seems better suited for this, only been able to learn how to do download speed test so far:
netperf -c hostname -f K
Last edited by Gen2ly (2009-11-17 19:08:38)

Scripts for checking Windows Production Servers Disk Space

Hi Friends,
I am looking for some simple scripts (DOS Based or which can be run in restrictive env)by which I can get the Servers Disk Space statistics when I run it from my local machine. My L1 team members are responsible for verifying Disk Space primarily C and D:
everyday and they send status of the same by logging onto each and every servers. If I can get some simple scripts which can be run easily, that would be really helpful.
Thanx in Advance.
Keep Rocking :)
Saurabh

Hi,
You may want to check this script out from the TechNet Gallery.
http://gallery.technet.microsoft.com/PowerShell-Script-to-fa8305ea
Cheers.
Please remember to mark the replies as answers if they help and unmark them if they provide no help.
Milton Goh
MCSE, MCSA, MCITP, MOF, ITIL, AIIM SharePoint Specialist
Blog |
Twitter

How do I set a fixed size for a window (frame) :P

hello!
Was wondering if I can set fix dimensions (size) for a window(frame) in Java.
Background: I have a menu and when I click on one of the options a window opens but I hate the fact that I can enlarge it...wish it would be fixed sized and have scroll instead... :P
any ideas?
many thanks!
Cristina

sorry for not using the swing forum but i considered java programming forum as more or less enclosing all problems Do you understand how to use forums? First you should be searching the forums to see if you questions has been asked and answered before. (Very few questions posted in the forums are original). It makes sense to search the forum where the questions should have been posted in the first place.
For example, if you had searched the Swing forum using "fixed size jframe" you would have found this posting at the top of the search results:
http://forum.java.sun.com/thread.jspa?forumID=57&threadID=712407
So you would have had your question answered in less than a minute and we wouldn't have wasted time answering a question that has already been answered.
A win-win situtation for everybody.

How to start a application with a login window?

hi there
does anyone have any idea on how to start an application with a login window? a login window is the first frame or window to be displayed when an application starts running. and only correct login id and password have been entered the real application will start. any sample out there? thank you.

You can start a new thread by making a thread object and passing it an implementation of a runnable object. Runnable has just one method, public void run(), this is was gets executed in a second thread. perhaps the code you would use would look something like this.
<code>
// set up thread for login window
new Thread(new Runnable() {
public void run() {
// construct your login window here
// when you are done processing the
// password....
if(goodPassword) {
authorized = true; // a global variable
notifyAll(); // don't forget this
else {
System.exit(42);
}).start();
// control does not stop this code gets executed while
// the above thread is running.
// Set up main program here. This is done in the
// backround.
while(!authorized) {
synchronized(this)
{ wait(50); }
// now when the user logs in this frame pops
// up real quick.
myFrame.setVisible(true);
</code>
Hope you can figure it out.. good luck :)

How to enable tap to click in a login window?

Hello,
In my MacOS I have setup three users for my family. I've been to System Preferences, and I have setup tap to click functionality for all of us three using the TrackPad preference utility. It works for all of us three when we login.
To my disappointment, I can't find a possibility to enable tap to click for login window, as there are no users logged in at that time. Now I'm forced to actually click the trackpad every time I want to login. That heavily annoys me.
In Windows, there's a system user, that you copy your configuration to to affect the login behavior, it's easy in Windows. But how it is done on a Mac?

Hi Ming,
It seems that the page you are trying to open has some security access on it. Read Menus and Page Security in Dev Guide for more details.
Thanks
--Anil

Applescript for mounting Windows Shares

I have scoured the web for this script for mounting windows shares in OS X. I am compiling it as an application and dropping it into the startup items:
tell application "Finder"
activate
try
mount volume "cifs://SERVER/SHARE"
end try
end tell
My question is this: I have a MacBook(Pro) and use it at home and at work... I have scripts setup for both locations, to mount various shares, but when I'm at home and the work scripts run, they fail to mount (because I'm not on the work network), or when I'm at home, the work shares fail to mount, generating a dialog with something to the effect of "couldn't find that share"... I've got a dozen of these scripts, it would be nice if it would just silently fail, rather then generating multiple dialogs.
I was thinking of making the apple script check my ip address, and if it returns a work IP address, then it would go onto talking to the finder, if it doesn't find a matching IP address, then it would just end.
Or, somehow have applescript ping the server that it's trying to connect to, and on success, run the script, and on fail just end it.
Any thoughts?
Thanks,
Dan Ormsby

You should probably post in the AppleScript forums:
http://discussions.apple.com/forum.jspa?forumID=724

Stuck at "starting login window" and Disk Utility won't fix it...

I downloaded some security updates, and since restarting my computer as required, I have never been able to start it up since. It gets stuck on the "starting login window" screen, with the little blue bar still shimmering and mouse still moving, but just won't ever load the login screen, even after hours.
I've seen a few other people have had this problem, and tried to follow some of the recommendations, with no joy. I tried several times to repair the disk permissions with Disk Utility, but it has an internal error saying it lost the connection to the disk manager, or something similar.... when I try to repair the disk, it fails saying something about "overlapped extent allocations" and an "invalid node structure".
I can start up in single-user mode, and doing a fsck had the same result.
What can I do??? Some people suggested an Archive and Install manoeuvre, but I'm scared of losing all my files! Will it erase them all? Do I have to back up all my files before doing this? How can I back them up if my computer won't start?
I know almost nothing about computers - all I know I have found in the past few days searching through these discussion boards trying to find an answer! I have an important essay due on Monday which is stuck in my computer, so I'm a little scared!
I'm using Mac OS X Panther or something.... not sure how to find out exactly which one, as my computer won't start!
Any help would be greatly appreciated!
iBook G4

Hi, you have some serious directory damage there, and it was probably there before the updates. An Archive and Install would not be recommended. If you did that you would likely have more problems then you have right now.
If it were me I'd run Diskwarrior and Tech Tool Pro on it. DW for the invalid node structure and Tech Tool Pro for the Overlapped Extent Allocation. But you probably would have to buy both of them, and there's no guarantee either one will fix it.
Apple doc.#25770, talking about Overlap..... says the easiest way to fix it is to Erase and Install. If you are running 10.3.9 and had access to a retail Tiger disk, you could try booting up on it and running Disk Utility. Tigers DU has the ability to fix Overlap.... sometimes, Panther's does'nt.
This is the best way to Erase and Install. First backup all your important stuff, if you can, as the following will erase everything on your drive; it will be unrecoverable. Put your install disk in your Mac and Restart while holding down the C key. In Tiger, When you get to the install screen, don't click install and go to the title bar at the top of the screen and click on Utilities (in earlier OS's click on the installer menu).
Click on Disk Utility and choose the hard drive you want your OS on. Then click on the Erase tab. In Tiger, click on the Security Options button near the bottom (it's similiar for Panther and Jaguar).
Once in there choose Zero Out Data (write zero's in earlier versions). This will map out any bad blocks on your drive and bring it back to almost new condition (providing there's nothing wrong mechanically with it, bad bearings, defective or damaged surface, etc.).
Once this is done, go back to the install screen and begin the "Erase and Install" installation. This will put a factory fresh system on a clean hard drive.
Cheers!
DALE

"samba-discovery". An automounter script for windows shares

Hi.
At the last lan party I found it quite annoying to mount samba shares by hand all the time (as I don't use a smb capable browser with fuse like dolphin or the like). So here's what I've come up with. Explenations on how it works are at the start of the script. You can also download it directly from here. Basically you run it and anything available on the lan will be tidily mounted to /mnt/samba-discovery/*.
#!/bin/bash
# Hi and welcome to this samba/windows share automounting script.
# It will:
# - Scan the network for windows/samba hosts.
# - Mount all their available guest shares
# - If rerun it will check if all shares are still accesible
# - Unmount everything if you use the -u option
# It will not:
# - Work on password protected shares. No idea what will happen,
# I guess mount.cifs will spit an error but the script will continue
# Run it without options to mount/rescan, use -u to unmount everything.
# Before running it please specify the options below.
# Post questions on the Archlinux forum: http://bbs.archlinux.org/viewtopic.php?pid=596979#p596979
# MOST IMPORTANTLY: If it eats all your files for breakfast, it's none
# of my responsibility! It should be quite safe though because it's
# always checking if a dir is empty before deleting it.
### Options
# Specify the name of your network adapter (e.g. eth0):
netiface='eth0'
# Specify which range of IPs you're interested in (less is faster)
lowend=1
highend=20
### Code
# Prepare samba-discovery folder
if [[ ! -d /mnt/samba-discovery/ ]]; then
mkdir /mnt/samba-discovery
fi
# Unmount all shares and clean up directories using -u
umountcount=0
uhostcount=0
if [[ $1 == "-u" ]]; then
shopt -s nullglob dotglob
dirs=(/mnt/samba-discovery/*)
(( ${#dirs[@]} )) || sharefolders=1
shopt -u nullglob dotglob
if [[ ! $sharefolders == 1 ]]; then
for i in /mnt/samba-discovery/*/*; do
umount "$i" 2>/dev/null
cd "$i" 2>/dev/null
shopt -s nullglob dotglob
files=(*)
(( ${#files[*]} )) || dirempty=1
shopt -u nullglob dotglob
if [[ ! $dirempty == 1 ]]; then
echo ">>> warning: target directory not empty although share unmounted"
echo ">>> aborting. please investigate directory:"
echo " $i"
exit 1
else
dirempty=0
rm -R "$i"
echo " share on $i unmounted, folder removed."
((umountcount++))
fi
done
for i in /mnt/samba-discovery/*; do
umount "$i" 2>/dev/null
cd "$i" 2>/dev/null
shopt -s nullglob dotglob
files=(*)
(( ${#files[*]} )) || dirempty=1
shopt -u nullglob dotglob
if [[ ! $dirempty == 1 ]]; then
echo ">>> warning: target directory not empty although all shares unmounted"
echo ">>> aborting. please investigate directory:"
echo " $i"
exit 1
else
dirempty=0
rm -R "$i"
echo " parent folder $i removed."
((uhostcount++))
fi
done
echo "-> Removed $umountcount shares and $uhostcount parent folders"
exit 0
else
echo "no parent folder found, nothing to unmount"
exit 0
fi
fi
# Normal run. Scan for shares which are no longer on the network...
if [[ ! $1 == "" ]]; then
echo "Invalid option. Aborted"
exit 1
fi
shopt -s nullglob dotglob
dirs=(/mnt/samba-discovery/*)
(( ${#dirs[@]} )) || sharefolders=1
shopt -u nullglob dotglob
if [[ ! $sharefolders == 1 ]]; then
echo ':: Cleaning up orphaned shares...'
cleancount=0
for i in /mnt/samba-discovery/*/*; do
if [[ ! $(ls $i 2>/dev/null) ]]; then
umount "$i" 2>/dev/null
cd "$i" 2>/dev/null
shopt -s nullglob dotglob
files=(*)
(( ${#files[*]} )) || dirempty=1
shopt -u nullglob dotglob
if [[ ! $dirempty == 1 ]]; then
echo ">>> warning: target directory not empty although share unmounted"
echo ">>> aborting. please investigate directory:"
echo " $i"
exit 1
else
dirempty=0
rm -R "$i"
echo " share on $i no longer accesible, removed."
((cleancount++))
fi
else
if [[ ! $(cat /proc/mounts | grep "cifs" | awk '{print $2}' | grep $i) ]]; then
cd "$i" 2>/dev/null
shopt -s nullglob dotglob
files=(*)
(( ${#files[*]} )) || dirempty=1
shopt -u nullglob dotglob
if [[ ! $dirempty == 1 ]]; then
echo ">>> warning: target directory not empty although nothing mounted there"
echo ">>> aborting. please investigate directory:"
echo " $i"
exit 1
else
dirempty=0
rm -R "$i"
echo " nothing mounted on $i, removed."
((cleancount++))
fi
fi
fi
done
echo "-> Cleaned out $cleancount shares"
fi
# ... and then scan for new hosts and mount shares
echo ':: Scanning for new hosts and shares...'
netaddr=$(ifconfig eth0 | grep "inet addr" | awk '{print $2}' | awk -F ":" '{print $2}' | awk -F "." '{print $1"."$2"."$3}')
hostcount=0
sharecount=0
for ((ip=$lowend; ip<=$highend; ip++)); do
printf " scanning $netaddr.$ip...\r"
if (( $(nmap -PN -p139,445 "$netaddr.$ip" | grep -e "139/tcp open" -e "445/tcp open" | wc -l) == 2 )); then
hostwinname="$( nmblookup -A $netaddr.$ip | grep "<00>" | grep -v "<GROUP>" | awk '{print $1}')"
hostdirname="$(echo $hostwinname | tr [:upper:] [:lower:])"
echo " found $hostwinname on $netaddr.$ip"
IFS=$'\n' shares=($(smbclient -N -gL \\\\$netaddr.$ip\\ 2>&1 | grep -e "Disk|" | grep -v '\$' | awk -F "|" '{print $2}'))
for share in ${shares[*]}; do
sharedir="$(echo $share | sed s/\ /_/g | tr [:upper:] [:lower:])"
if [[ "$(cat /proc/mounts | grep ",unc=\\\\\\\\$netaddr.$ip\\\\$share,")" ]]; then
echo " share "$share" already mounted in /mnt/samba-discovery/$hostdirname/$sharedir"
else
if [[ ! -d "/mnt/samba-discovery/$hostdirname" ]]; then
mkdir "/mnt/samba-discovery/$hostdirname"
#echo "$hostwinname:$hostdirname:$netaddr.$ip" >> /mnt/samba-discovery/$hostdirname/ip.txt
fi
if [[ ! -d "/mnt/samba-discovery/$hostdirname/$sharedir" ]]; then
mkdir "/mnt/samba-discovery/$hostdirname/$sharedir"
else
cd "/mnt/samba-discovery/$hostdirname/$sharedir"
shopt -s nullglob dotglob
files=(*)
(( ${#files[*]} )) || dirempty=1
shopt -u nullglob dotglob
if [[ ! $dirempty == 1 ]]; then
echo ">>> warning: mounting directory not empty although share not mounted!"
echo ">>> aborting. please investigate directory:"
echo " /mnt/samba-discovery/$hostdirname/$sharedir"
exit 1
fi
dirempty=0
fi
mount "//192.168.1.$ip/$share" "/mnt/samba-discovery/$hostdirname/$sharedir" -o guest 2>/dev/null
echo " mounted "$share" in /mnt/samba-discovery/$hostdirname/$sharedir"
((sharecount++))
fi
done
((hostcount++))
fi
done
echo "-> Mounted $sharecount shares from $hostcount hosts."
# Remove samba-discovery folder if it is empty
if [[ -d /mnt/samba-discovery/ ]]; then
cd "/mnt/samba-discovery/"
shopt -s nullglob dotglob
files=(*)
(( ${#files[*]} )) || sambadirempty=1
shopt -u nullglob dotglob
if [[ sambadirempty == 1 ]]; then
rm -R /mnt/samba-discovery/
fi
fi
Here's some sample output of how it will look, including one orphaned share and a new one on a rerun of the script:
[root@Mothership samba-discovery]# /home/medja/scripts/samba-discovery
:: Cleaning up orphaned shares...
share on /mnt/samba-discovery/blackrabbit/conflict_denied_ops no longer accesible, removed.
-> Cleaned out 1 shares
:: Scanning for new hosts and shares...
found BLACKRABBIT on 192.168.1.2
share CD-Images already mounted in /mnt/samba-discovery/blackrabbit/cd-images
share CD-Images2 already mounted in /mnt/samba-discovery/blackrabbit/cd-images2
share Filme already mounted in /mnt/samba-discovery/blackrabbit/filme
share Filme2 already mounted in /mnt/samba-discovery/blackrabbit/filme2
mounted Music Library in /mnt/samba-discovery/blackrabbit/music_library
found MOTHERSHIP on 192.168.1.4
share space already mounted in /mnt/samba-discovery/mothership/space
found EEE on 192.168.1.5
share SharedDocs already mounted in /mnt/samba-discovery/eee/shareddocs
-> Mounted 1 shares from 3 hosts.
Last edited by Shapeshifter (2009-08-07 18:51:05)

thanks a lot, i wanted to write that script for a long time, but never got around. one thing though, you shouldn't mount stuff in a subfolder of /mnt because /mnt itself should be kept for such purposes (unix file hierarchy standards, afaik)
but that should be easily fixed by myself
cheers
Phil
Last edited by Heller_Barde (2009-08-07 21:42:46)

Im Looking for a terminal script which shows the archlogo

Hi there,
I have found in the May screenshot thread this terminal script:
Can anyone tell me where i found this good looking script. I will also make so nice screenshots from my terminal.
Regards
FightRight
Last edited by FightRight (2007-05-12 17:45:54)

Hello
Ohh thanks for yours fast replys.
I have found this Script:
#!/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;
I think that seems to be what you mean. Thanks for helping me.
Regards

Fixing terminal script for login window

Similar Messages

Maybe you are looking for