DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T t

⟦39ba945fe⟧ TextFile

    Length: 745 (0x2e9)
    Types: TextFile
    Names: »tell«

Derivation

└─⟦8648bda34⟧ Bits:30007244 EUUGD5_II: X11R5
    └─⟦87c3ac0e0⟧ »./contrib-3/contrib-3.00« 
        └─⟦de8ce1454⟧ 
            └─⟦this⟧ »contrib/lib/iv/src/bin/alert/tell«

TextFile

# a simple way of sending a message to another user ( workstation )

if ( ! $?ALERTER && -f /user/$user/.alerter ) then
    set ALERTER = `cat /user/$user/.alerter`
endif
if ( ! $?ALERTER ) then
    set ALERTER = /usr/local/bin/alert
endif

if ( $#argv < 1 ) then
    echo "usage : $0 host message ..."
else
    set noglob
    set host=$1
    set name = `grep $user /etc/passwd|awk -F: '{split($5,n," ");print n[1]}'`
    shift
    if ( $#argv == 0 ) then
	echo -n 'message : '
	cat - >! /tmp/tell$$
    else
	echo $* >! /tmp/tell$$
    endif
    setenv DISPLAY ${host}:0
    cat /tmp/tell$$ | $ALERTER -D font=6x13p button="OK, $name" >& /dev/null
    if ( $status ) then
	rsh $host -n '( set noglob; '$0' '$host' '$message' )'
    endif
endif