#!/usr/local/bin/kermit +
# lynxbooster.ksc
#
# script for external programs for Lynx web browser
# ( by D. E. Legan, 23 Jan. 2001 )
#
# mailto:leganii@surfree.com
#
# http://www.lafn.org/~aw585/index.html
#
# http://www.lafn.org/~aw585/dlegan.html
#
# Documented at the Kermit Center, Columbia University:
#
# http://www.columbia.edu/kermit/case20.html
# Requires: Lynx, C-Kermit 7.1, 'FTP' link to kermit
# and whatever suplemental
# http user agents/browsers desired.
# According to the Lynx documentation, it can handle
# an URL of form:
# telnet://user:password@host:port
# and also can handle rlogin, tn3270, tn5250 protocols similarly
# Reading over the Lynx documentation for ftp URLs
# it can handle a form of:
# ftp://user@host:port/path;type=[D,I,orA]
# (D,I,A = directory, binary or ASCII)
# where user might be broken down to actually be
# a user:password. if this followed average ftp
# conventions, then it might actually be:
# ftp://username:user@homehost@remotehost:port/path;type=[D,I,orA]
# Personally, I've never seen the ';type=...' part of the URL,
# so for the time being, I will ignore it, but will allot for
# some of the other complications.
# For using C-Kermit 7.1 ftp personality,
# a soft link named 'FTP' has been made to the executable,
# to distinguish it from the plain vanilla conventional
# ftp executable.
# USAGE:
# In the lynx configuration file (typicly, lynx.cfg
# or lynx-ssl.cfg) there should be some lines
# like the following (not commented with '#' in column 1
# though :-) ) to activate this program:
#
#KEYMAP:,:EXTERN # run EXTERNAL with URL. added by d.e.l.
#...........
#USE_EXTERNALS:TRUE
#...........
#EXTERNAL:ftp:lynxbooster.ksc %s:TRUE
#EXTERNAL:http:lynxbooster.ksc %s:TRUE
#EXTERNAL:telnet:lynxbooster.ksc %s:TRUE
#EXTERNAL:rlogin:lynxbooster.ksc %s:TRUE
#EXTERNAL:tn3270:lynxbooster.ksc %s:TRUE
#EXTERNAL:tn5250:lynxbooster.ksc %s:TRUE
#EXTERNAL:iksd:lynxbooster.ksc %s:TRUE
# If not already defined, the KEYMAP value (in this case ',')
# should be chosen so as not to conflict with other Lynx control
# keys.
# (You can have more than one character KEYMAPped to EXTERN.)
# When over a link to one of these protocols, hit this key
# instead of return to activate this script for the link.
# The EXTERNAL statements define the protocols that external
# commands will be available for (in this case,
# ftp, http, telnet, rlogin, tn3270 tn5250 and iksd), and the
# program to be run for them (in this case this script.)
# Note that if any external programs are called for
# 'telnetish' protocols via pty/pipe/exec,
# they may require adjustments of this script.
# I don't have any of the IBM protocols on the system this
# script has been developed on.
# Variables:
# \%a - address of URL
# \%b - user input selection flag
# \%d - raw URL
# \%f - file name stripped of directory
# \%i - path/file
# \%p - port number
# \%q - path
# \%r - protocol this script is being used for
# \%t - index used in parsing the URL as specified above
# \%u - user ID
# \%w - password
echo {LYNX_VERSION = \$(LYNX_VERSION)}
# According to Lynx man pages, this variable is always set by Lynx
set case off
# First let's pick apart the URL for possibly usefull parts
.\%d := \%1
.\%a := \%d
.\%r := \%a
# strip the protocol from the URL:
.\%a := \Flop(\%a,:) ; strip off up to '://'
.\%a := \Fltrim(\%a,/)
# extract the protocol, up to '://':
.\%r := \Freplace(\%r,://\%a,)
# First, we set up any URL protocol specific items:
# (this section is largely an artifact of development process
# but left in for future complications.)
switch \%r {
:telnet,
:rlogin,
:ftp,
:file,
:http,
:iksd,
# this version, not much really needed here yet. :-)
.\%c := kermit
break
# I haven't actually seen any mention of the
# next five URL types yet, but what the heck.....
:ssh,
:telnet-ssl,
:s5telnet,
:ktelnet,
:srp-telnet,
# Back to reality:
:tn3270,
:tn5250,
:default,
# included for future generalization of this script
echo \%r protocol currently not supported.
ask \%z Press enter to continue
quit
.\%c = {pty \%r }
.\%s := { }
break
}
# Finished handling URL protocol specific stuff
# Check to see if a directory/filename is on the end of the URL
# indicates that this is a particular file to be downloaded from an IKSD:
.\%i := /\Flop(\%a,/) # i holds the path/filename
.\%a := \Freplace(\%a,\%i) # a holds usrid:password@host.domain:port
# extract filename:
.\%f := \Freplace(\%i,\Fstripx(\%i,/),) # f has the directory removed
.\%f := \Fltrim(\%f,/) # now f has any '/' trimmed off
.\%q := \Freplace(\%i,\%f,) # q holds just the path name
# Now handle 'User:password' part of URL:
# find the '@'s location in the URL:
.\%t := \Findex(@,\%a)
# Definitly set defaults for user and password:
.\%u := { }
set login userid
.\%w := { }
if > \%t 0 {
# extract and clean up the 'usrid:password':
.\%u := \Fstripx(\%a,@)
# extract and clean up the 'host.domain:port':
.\%a := \Flop(\%a,@)
.\%a := \Flop(\%a,@) # the ftp two '@' case
# is there a password?
.\%t := \Findex(:,\%u)
# Now seperate the user id from the password if present:
if > \%t 0 {
.\%w := \Flop(\%u,:)
.\%u := \Fright(\%u,\%t)
.\%u := \Ftrim(\%u,:)
}
# For kermit:
set ftp autologin on
set ftp user \%u \%w
set login userid \%u
}
# Finished extracting user/password
# Now handle any port part of the URL:
.\%p := { }
# Is there a port specified?
.\%t := \Findex(:,\%a) # 'host.domain:port' are divided at \%t index
# Now, if a port was specified:
if > \%t 0 {
.\%p := \Flop(\%a,:)
.\%a := \Freplace(\%a,\%p,)
if equal \%p kermit .\%p := 1649
.\%a := \Ftrim(\%a,:)
if equal \%r telnet if equal \%p 1649 -
if not equal {\%i} {} {
# this case is really not interactive, but in fact IKSD
# to a specific file
.\%r := IKSD
}
}
# End of handling port number
# Handle HTTP/interactive selections here:
# Make this script do double duty, by putting the following line
# in the printer setup part of the your Lynx configuration file.
# Then you can pass the URL of the currently viewed page
# (not just the currently active link) to other browsers:
# PRINTER:View URL with other browser:exec /path/lynxbooster.ksc ${LYNX_PRINT_URL}:TRUE
# PRINTER:View/edit current page source with other browser:exec /usr/local/bin/lynxbooster.ksc file\://%s :TRUE:10000000
# (hit the 'p' key, and select 'View URL with other browser' to bring
# up this menu.)
# (for the second, hit '\', to first bring up the source listing view,
# then p to get this menu)
# See the Lynx man pages for information on enviromental variable
# LYNX_PRINT_URL.
# if equal \%r http {
switch \%r {
:file,
:http,
# This part should be adjusted for whatever suplemental
# HTTP tools you want to use.
if equal {\%f} {} .\%f := \%a
clear screen
# -- try to keep this screen formating/menu simple and uncluttered
:wwwchoice
echo
echo To connect to \%a\, choose an alternate browser:
echo ( URL: \%d )
echo
# most of these are frame-capable browsers
# (Lynx barely handles frames.):
echo { N Netscape}
echo { E Lynx, edit source locally!}
echo { W w3m}
echo { L Links}
echo { D Debris}
# Warning about Debris: I'm certain it will be great when complete,
# but it is a work in progress. My experience is that
# if you notice this script flashing on the screen and aborting
# before you can do anything, you may of called Debris once too often.
# :-)
# and a few methods of dumping files/directories
# in background:
echo { Y Lynx/dump in background}
echo { R Wget/recurse in background}
echo { X Exit back to Lynx}
# echo { E Etc.........}
# echo { K Let the frog handle it....}
# if they ever add http to automatic file download.
# Could have Lynx with some drasticly different configuration
# file listed in here, maybe special provisions for handling
# cookies.
echo
ask \%b {Alternate browser choice: }
echo \%b
switch \%b {
# :N, exec netscape \%d
:N, exec lynx -image_links -nocolor -tna -resubmit_posts -
"-useragent=Mozilla/4.0 (compatible; MSIE 5.5; Windows 95; U)" \%d
break
:E, exec lynx -image_links -nocolor -tna -resubmit_posts \%d
break
:W, exec w3m -M -F -no-cookie -no-mouse \%d
break
:L, exec links \%d
break
:D, exec debris \%d
break
:Y, run lynx -source \%d > \%f &
# May want to put cookie handling capabilities
# with the above command
# or maybe nohup this to direct the output
# away from the screen
break
:R, run wget -D \%a -P \v(download) -np -brkl5 \%d
break
# -D \%a - restricted to \%a domain
# -P \v(download) - put in download directory
# -np - no parent directories
# -b - go to background
# -r - download recursively
# -k - 'konvert' to relative links
# -l5 - limit to just 5 levels of recursion
:X, break # exit back to Lynx
:default, echo {Invalid choice, try again}, goto wwwchoice
}
quit
break
:default, break
}
# end of HTTP/interactive selection
if not equal {\%p} { } .\%p := :\%p
else .\%p :=
# If a specific directory/file is defined to retreive, hop to
# non-interactive options
# if not equal {\%i} {} forward getafile
# temp (X) : set ftp autologin on
if not equal {\%f} {} forward getafile
# No file is specified
# Assumption is that they expect you to browse
# directory for whatever reason.
if equal \%r ftp {
if not equal {\%w} { } exec FTP -u \%u -P \%w -S -D \%q \%a \%p
if not equal {\%u} { } exec FTP -u \%u -S -D \%q \%a \%p
exec FTP -A -S -D \%q \%a \%p
}
if equal \%r iksd {
if equal {\%w} { } .\%w := \v(userid)@\v(host)
if equal {\%u} { } .\%u := anonymous
# It seems to work best for me if normal initialization
# is carried out before making an IKSD connection
take ~/.kermrc
set network type tcp
set host telnet://\%a\%p
remote login \%u \%w
remote cd \%i
end
}
# Parts from here to ':modechoice' will probably need modification
# if any protocols that actually use pty/pipe external
# programs are used.
# So if a password was given:
if not equal {\%w} { } {
echo { Remember, in the URL}
echo { the fools gave you this password: \%w}
ask \%z Press any key to continue
}
# If a userid was given:
if not equal {\%u} { } {
exec kermit -M \%u \%r://\%a\%p\%i
forward the_end
}
# If no userid was part of the URL:
exec kermit -J \%r://\%a\%p\%i
forward the_end
# Here handle getting a specific file:
:getafile
clear screen
# -- try to keep this screen formating/menu simple and uncluttered
:modechoice
echo
echo To connect to \%a and retreive \%i,
echo using \%r protocol, choose a mode:
echo
echo { F Foreground - 'I like to watch'}
echo { B Background - 'My time is precious'}
echo { X Exit - 'I need to do something else'}
echo
echo d is \%d
echo r is \%r
ask \%b {Job mode choice: }
echo \%b
switch \%b {
:f, if equal \%r ftp {
exec FTP \%d
# Using C-Kermit 7.1 FTP personality
break
}
exec kermit \%d
# Use IKSget if using older version, pre-7.1
# instead of kermit here.
# May want to nohup this to control output
break
:b, if equal \%r ftp {
run FTP \%d & # Again, Using C-Kermit 7.1's FTP personality
# May want to nohup this to control output
# otherwise may need to ^L to refresh screen as
# messages arrive from the background
break
}
run kermit \%d &
# Again, use IKSget if using older version, pre-7.1
# instead of kermit here.
# ditto the above ftp comments
break
:x, break
:default, echo {Invalid choice, try again}, goto modechoice
}
forward the_end
:the_end
echo Exiting lynxbooster.ksc
quit