Wapp

Differences From Artifact [579960674d]:

• File wapp.tcl — part of check-in [f48c405b79] at 2022-07-28 12:41:24 on branch trunk — Fix the wapp-redirect command so that (1) it also does a wapp-reset and (2) so that it uses reply code 303 instead of 307, thus making it usable for redirect-after-POST. (user: drh size: 32253)

To Artifact [72d0d081e3]:

• File wapp.tcl — part of check-in [253fa3bcea] at 2022-11-10 11:44:50 on branch trunk — Ignore stderr returns from xdg-open, as suggested by forum post 07078234d6. (user: drh size: 32267)

410
411
412
413
414
415
416
417

418
419
420
421
422
423
424

410
411
412
413
414
415
416

417
418
419
420
421
422
423
424

-
+

#
proc wappInt-start-browser {url} {
  global tcl_platform
  if {$tcl_platform(platform)=="windows"} {
    exec cmd /c start $url &
  } elseif {$tcl_platform(os)=="Darwin"} {
    exec open $url &
  } elseif {[catch {exec xdg-open $url}]} {
  } elseif {[catch {exec -ignorestderr xdg-open $url}]} {
    exec firefox $url &
  }
}

# This routine is a "socket -server" callback.  The $chan, $ip, and $port
# arguments are added by the socket command.
#