1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
#!/bin/sh
#
# Netscape Wrapper
# (c) 1998,1999 Dave Cinege, H. Peter Anvin, and Red Hat, Inc.
# 2000 Akinori MUSHA <knu@FreeBSD.org>, modified for FreeBSD.
#
# $FreeBSD$
#
prefix='%%PREFIX%%'
lockfile=$HOME/.netscape/lock
defs="-irix-session-management"
defsrem="-irix-session-management -noraise -remote"
b_opt="openBrowser"
netscape=$prefix/bin/netscape.run
if [ -x $prefix/bin/netscape-remote ]; then
netscape_remote=$prefix/bin/netscape-remote
else
netscape_remote=$netscape
fi
netscape_bin=""
for f in $prefix/lib/netscape*/*.bin
do
if [ -x $f ]; then
netscape_bin=$f
break
fi
done
if [ "$netscape_bin" = "" ]; then
echo "You don't seem to have netscape installed."
exit 1
fi
export TZ=:/etc/localtime
# Exterminate zombie netscapes, and wipe stale lock file.
killstale () {
whoami=`whoami`
ps uw | while read user pid pcpu pmem vsz rss tt stat started time command args
do
[ "$user" != "$whoami" -o "$command" != "$netscape_bin" ] && continue
{ kill -INT $pid && kill -QUIT $pid && kill -TERM $pid && \
sleep 2 && kill -KILL $pid ; } >/dev/null 2>&1
done
[ -L $lockfile ] && rm $lockfile
return 0
}
# Try calling existing netscape process with functions, else start one.
newbrowser () {
[ $# -gt 0 ] && url=`echo $@ | sed 's/\ -[^ ]*//g; s/\( | \)*//; s/,/%2C/g; s/(/%28/g; s/)/%29/g;'`
if [ -L $lockfile ]; then
if [ "$url" = "" ]; then
$netscape_remote $defsrem "xfeDoCommand($b_opt)" "$@" 2>/dev/null || \
{ killstale && exec $netscape $defs $cl_opt "$@" ; }
else
$netscape_remote $defsrem "openURL($url, new-window)" 2>/dev/null || \
{ killstale && exec $netscape $defs "$@" ; }
fi
else
if [ "$url" = "" ]; then
[ ${rerun:=0} -eq 1 ] && { sleep 3; $netscape_remote $defsrem "xfeDoCommand($b_opt)" '$@' 2>/dev/null ; } &
exec $netscape $defs $cl_opt "$@"
else
exec $netscape $defs "$@"
fi
fi
}
newopt () {
opt="$1"
shift
case "$opt" in
"+news"|"+discussions") b_opt="openNewsgroups" ; cl_opt="-discussions" ;;
"+mail"|"+messenger") b_opt="openInbox" ; cl_opt="-messenger" ;;
"+edit"|"+composer") b_opt="openEditor" ; cl_opt="-composer" ;;
"+addr"|"+addresses") b_opt="openAddrBook" ; cl_opt="-messenger -iconic" ; rerun=1 ;;
"+hist"|"+history") b_opt="openHistory" ; cl_opt="-iconic" ; rerun=1 ;;
"+book"|"+bookmarks") b_opt="openBookmarks" ; cl_opt="-iconic" ; rerun=1 ;;
"+mailto") b_opt="composeMessage" ; cl_opt="-messenger -iconic" ; rerun=1 ;;
"+component-bar") b_opt="toggleTaskbar" ; cl_opt="-component-bar";;
esac
newbrowser "$@"
}
oldopt () {
exec $netscape $defs "$@"
}
usage () {
echo ""
echo "Netscape Wrapper"
echo " (c) 1998,1999 Dave Cinege, H. Peter Anvin, and Red Hat, Inc."
echo " 2000 Akinori MUSHA <knu@FreeBSD.org>, modified for FreeBSD."
echo ""
echo "usage: netscape [ option ]"
echo " options:"
echo ""
echo " [none] Open new browser"
echo " [URL] Open new browser with URL"
echo " +news | +discussions Show Collabra Discussions"
echo " +mail | +messenger Show Messenger Mailbox (INBOX)"
echo " +edit | +composer Open Composer"
echo " +addr | +addresses Show Address Book"
echo " +hist | +history Open History window"
echo " +book | +bookmarks Open Bookmarks windowsBook"
echo " +mailto Open New Message window"
echo " +component-bar Show (detach) Component Lauch Bar"
echo " -[option] Passed directly to Netscape binary"
echo ""
echo "The wrapper first attempts to open the option in a running"
echo "netscape. If no netscape is running, one is executed with"
echo "the option as the starting window."
echo ""
echo "Edit the top of this file to set default paths."
echo ""
echo ""
echo "Netscape binary help:"
echo ""
exec $netscape "-help"
}
#
# Fix "locale" problems when printing to postscript
#
# If the locale uses a decimal separator other than a point printf
# will return something other than 1.0
#
pnt=`printf "%1.1f" 1 2>/dev/null`
if [ "$pnt" != "1.0" ]; then
export LC_NUMERIC=C # Try a "safe" value for LC_NUMERIC.
pnt=`printf "%1.1f" 1 2>/dev/null`
if [ "$pnt" != "1.0" ]; then # LC_ALL is bad.
LC_COLLATE=$LC_ALL # Set $LC_ALL for every category except
LC_CTYPE=$LC_ALL # LC_NUMERIC, and then unset LC_ALL.
LC_MESSAGES=$LC_ALL
LC_MONETARY=$LC_ALL
LC_TIME=$LC_ALL
unset LC_ALL
export LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES LC_MONETARY LC_CTIME
fi
fi
# main
case "$1" in
-h|-help|--help) usage; exit ;;
+*) newopt "$@"; exit ;;
-*) oldopt "$@"; exit ;;
*) newbrowser "$@"; exit ;;
esac
echo "An error occurred running $netscape."
|
