|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T u
Length: 1342 (0x53e) Types: TextFile Names: »usr/lbin/restorefiles «
└─⟦307897ef0⟧ Bits:30004042/core1.imd SW95705I 386/ix Multi-user Release 1.2 └─⟦this⟧ »usr/lbin/restorefiles «
#ident "@(#)sadmin:shell/restorefiles 1.2" # restore a file from the save area to the regular file systems flags="-qq -k$$" trap 'exit' 1 2 15 sfile=`checkre ${flags} -fe 'Enter full path name of file to be restored [q]: ' \ '.' ' ' \ '^[^ ; ][^ ; ]*$' 'Blanks or tabs not permitted in the file name.' \ '^/' 'A full path name must begin with "/".' \ '[^/]$' 'No trailing "/" in the file name.' \ '/[^/]\{1,14\}$' 'No more than 14 characters in a file name.'` echo 'Enter path name of where restored file is to be placed or press RETURN if restored file is to be put to its original place:\n\t\c' read rfile if [ -z "${rfile}" ] then rfile=${sfile} fi trap 'exit 1' 1 2 15 trap "rm -f /tmp/$$restorefiles /tmp/$$Xrestorefiles" 0 ( cd /save/list fgrep -x ${sfile} /dev/null */* | tail -1 >/tmp/$$restorefiles ) if [ ! -s /tmp/$$restorefiles ] then echo "File '${sfile}' not in save area." exit fi ed - /tmp/$$restorefiles <<-! t. s;^;cp '/save/files/; s;:;'; s;$; /tmp/$$Xrestorefiles; -s/:.*// s;\(..\).\(..\).\(..\).\(.*\);echo Found '${sfile}' saved \4 \2/\3/\1.; w q ! sh /tmp/$$restorefiles 2>/dev/null || { echo >&2 "Unable to restore '${sfile}'. Wrong permission." exit 1 } if mv /tmp/$$Xrestorefiles ${rfile} then echo "'${sfile}' now restored as\\n'${rfile}'." else echo "'${sfile}' not restored." fi