blob: 998c55a3c49500004c14b582baaf9144d6e4c526 (
plain)
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
|
# pddpclient.tcl
# Synopsis
# not to be run by itself (see pddpboot.tcl)
if {![namespace exists ::pddp]} {
puts stderr "Error: invalid invocation of pddpclient (boot pddp first)"
puts stderr "exiting..."
exit 1
}
if {$::pddp::testrun} { ;# true if sourced from standalone "pddpboot.tcl"
puts stderr "Loading pddpclient, test run..."
if {$argc > 3} {
set path [lindex $argv 3]
if {[string length $path]} {
puts stderr "Scheduling \"$path\" for opening"
after idle ::pddp::cliOpen $path
}
unset path
}
} else {
puts stderr "Loading pddpclient"
}
namespace eval ::pddp {
variable theBrowserCommand
switch -- $::tcl_platform(platform) {
unix {
switch -- $tcl_platform(os) {
Darwin {
set theBrowserCommand "sh -c \"open %s\""
}
Linux {
foreach candidate \
{firefox mozilla galeon konqueror netscape lynx} {
set browser [lindex [auto_execok $candidate] 0]
if {[string length $browser]} {
set theBrowserCommand "$browser %s &"
break
}
}
}
}
}
windows {
# should not this be just: [auto_execok start]?
set theBrowserCommand \
"rundll32 url.dll,FileProtocolHandler file:%s &"
}
}
}
proc ::pddp::cliError {err} {
puts stderr "Error in pddpclient: $err"
}
proc ::pddp::cliOpen {path} {
if {[string first "://" $path] < 1} {
if {[info exists ::pddp::thePort]} {
set path "http://localhost:$::pddp::thePort/$path"
} else {
cliError "pddpserver not running"
return
}
}
variable theBrowserCommand
if {[string length $theBrowserCommand]} {
set command [format $theBrowserCommand $path]
puts stderr "pddpclient: exec $command"
if {[catch {eval [list exec] $command} err]} {
if {[lindex $::errorCode 0] eq "CHILDSTATUS"} {
cliError "$err (child status [lindex $::errorCode 2])"
} else {
cliError $err
}
}
} else {
cliError "browser unavailable"
}
}
|
