Overview
| Comment: | Added first pass on mtgetfile |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
117e4b22f444b09e3c477a5256c327c0 |
| User & Date: | mrwellan on 2013-11-20 17:48:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-11-21
| ||
| 12:35 | Added exception handling to cdb:remote run to better support remote access to regression directories check-in: c98c7b6bd9 user: mrwellan tags: v1.55, v1.5514 | |
|
2013-11-20
| ||
| 17:48 | Added first pass on mtgetfile check-in: 117e4b22f4 user: mrwellan tags: v1.55 | |
|
2013-11-19
| ||
| 08:22 | Don't use server check-in: 3d42b226e0 user: mrwellan tags: v1.55 | |
Changes
Added utils/mtgetfile version [325e266edf].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 |
#!/bin/bash
fullparams="$@"
function findfile () {
megatest $fullparams -repl <<EOF
(let* ((numargs (length remargs))
(path (if (> numargs 0)(car remargs) #f))
(scriptn (if (> numargs 1)(cadr remargs) #f))
(keys (cdb:remote-run db:get-keys #f))
(target (if (args:get-arg "-reqtarg")
(args:get-arg "-reqtarg")
(if (args:get-arg "-target")
(args:get-arg "-target")
#f)))
(key-vals (if target (keys:target->keyval keys target) #f))
(errmsg (cond
((not key-vals) "missing -target")
((not target) "missing -target")
((not scriptn) "missing file name to find")
(else #f))))
(if errmsg
(begin
(print "THEPATH: Missing required switch: " errmsg)
(print "THEPATH: Usage: mtgetfile -target target scriptname [searchpath]")
(exit)))
(print "THEPATH: key-vals=" key-vals " path=" path " scriptn=" scriptn))
EOF
}
findfile | egrep "^THEPATH: " | sed -e 's/^THEPATH: //'
|