aboutsummaryrefslogtreecommitdiff
path: root/bin/pddp/pddpclient.tcl
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"
    }
}