home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / 1997 / 1997.ZIP / 982 < prev    next >
Encoding:
Internet Message Format  |  1997-06-03  |  7.5 KB
  1. From: Johan Vromans <jvromans@squirrel.nl>
  2. To: comp-binaries-psion@moderators.uu.net
  3. Newsgroups: comp.binaries.psion
  4. Subject: PsiBackup -- Perl program to Backup an NFS mounted Psion
  5. Followup-To: comp.sys.psion.apps
  6. Path: toga.it.dtu.dk!ej
  7. Message-ID: <ej860328111@it.dtu.dk>
  8. Date: Sun, 6 Apr 1997 12:01:51 GMT
  9. Approved: ej@it.dtu.dk
  10. Lines: 351
  11.  
  12.  [ Moderators note: I have allowed this binary to come through in ]
  13.  [ share format, as it may be easier for some to extract on unix. ]
  14.  [ At the same time I have created an equivalent zip file that's  ]
  15.  [ available from  ftp://ftp.it.dtu.dk/pub/psion/1997/982.zip     ] 
  16.  
  17.  
  18. PsiBackup backs up a Psion Series 3a organizer, mounted to a Unix
  19. system using NFS. The conventions used in file names are identical to
  20. the conventions of Psion's PsiWin and RCOM programs.
  21. PsiBackup requires Perl 5.003 or later.
  22.  
  23. A shell script (included) can be used for configuration and
  24. maintenance purposes. It can use John Boyce's JBStopGo program to stop
  25. and re-start active tasks on the Psion.
  26.  
  27. Links and references:
  28.  
  29.  p3nfs: Rudolf Koenig (rfkoenig@immd4.informatik.uni-erlangen.de)
  30.  JBSoft: http://www.compulink.co.uk/~jbsoft/programs.htm
  31.  
  32. Johan Vromans                                             jvromans@squirrel.nl
  33. Squirrel Design & Consultancy                         Boskoop, the Netherlands
  34. http://www.squirrel.nl                  http://www.squirrel.nl/people/jvromans
  35. PGP key fingerprint     =     7C F8 BD 5C 25 7F 47 A6  CB 87 32 0B E3 50 EF 04 
  36. ------------------------ "Arms are made for hugging" -------------------------
  37.  
  38. #!/bin/sh
  39. # This is a shell archive (produced by GNU sharutils 4.2).
  40. # To extract the files from this archive, save it to some FILE, remove
  41. # everything before the `!/bin/sh' line above, then type `sh FILE'.
  42. #
  43. # Made on 1997-04-05 18:45 MET DST by <jv@phoenix.squirrel.nl>.
  44. # Source directory was `/home/jv/psion/dumps'.
  45. #
  46. # Existing files will *not* be overwritten unless `-c' is specified.
  47. #
  48. # This shar contains:
  49. # length mode       name
  50. # ------ ---------- ------------------------------------------
  51. #    548 -rw-r--r-- README
  52. #  11358 -r--r--r-- PsiBackup.pl
  53. #   1954 -r-xr-xr-x PsiBackup.sh
  54. #   2110 -rw-r--r-- PsiBackup.txt
  55. #
  56. save_IFS="${IFS}"
  57. IFS="${IFS}:"
  58. gettext_dir=FAILED
  59. locale_dir=FAILED
  60. first_param="$1"
  61. for dir in $PATH
  62. do
  63.   if test "$gettext_dir" = FAILED && test -f $dir/gettext \
  64.      && ($dir/gettext --version >/dev/null 2>&1)
  65.   then
  66.     set `$dir/gettext --version 2>&1`
  67.     if test "$3" = GNU
  68.     then
  69.       gettext_dir=$dir
  70.     fi
  71.   fi
  72.   if test "$locale_dir" = FAILED && test -f $dir/shar \
  73.      && ($dir/shar --print-text-domain-dir >/dev/null 2>&1)
  74.   then
  75.     locale_dir=`$dir/shar --print-text-domain-dir`
  76.   fi
  77. done
  78. IFS="$save_IFS"
  79. if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED
  80. then
  81.   echo=echo
  82. else
  83.   TEXTDOMAINDIR=$locale_dir
  84.   export TEXTDOMAINDIR
  85.   TEXTDOMAIN=sharutils
  86.   export TEXTDOMAIN
  87.   echo="$gettext_dir/gettext -s"
  88. fi
  89. touch -am 1231235999 $$.touch >/dev/null 2>&1
  90. if test ! -f 1231235999 && test -f $$.touch; then
  91.   shar_touch=touch
  92. else
  93.   shar_touch=:
  94.   echo
  95.   $echo 'WARNING: not restoring timestamps.  Consider getting and'
  96.   $echo "installing GNU \`touch', distributed in GNU File Utilities..."
  97.   echo
  98. fi
  99. rm -f 1231235999 $$.touch
  100. #
  101. if mkdir _sh04170; then
  102.   $echo 'x -' 'creating lock directory'
  103. else
  104.   $echo 'failed to create lock directory'
  105.   exit 1
  106. fi
  107. # ============= README ==============
  108. if test -f 'README' && test "$first_param" != -c; then
  109.   $echo 'x -' SKIPPING 'README' '(file already exists)'
  110. else
  111.   $echo 'x -' extracting 'README' '(gzipped)'
  112.   sed 's/^X//' << 'SHAR_EOF' | uudecode &&
  113. begin 600 _sh04170/gzi
  114. 6Q]6?'P<US>KIQU/+[B]O8!^=)`(``+5;
  115. `
  116. end
  117. SHAR_EOF
  118.   $echo 'gunzipping file' 'README' &&
  119.   gzip -d < _sh04170/gzi > 'README' &&
  120.   $shar_touch -am 0405184597 'README' &&
  121.   chmod 0644 'README' ||
  122.   $echo 'restore of' 'README' 'failed'
  123.   if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  124.   && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
  125.     md5sum -c << SHAR_EOF >/dev/null 2>&1 \
  126.     || $echo 'README:' 'MD5 check failed'
  127. 9b0e42d5d36e14a1e3b290207350f9e2  README
  128. SHAR_EOF
  129.   else
  130.     shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'README'`"
  131.     test 548 -eq "$shar_count" ||
  132.     $echo 'README:' 'original size' '548,' 'current size' "$shar_count!"
  133.   fi
  134. fi
  135. # ============= PsiBackup.pl ==============
  136. if test -f 'PsiBackup.pl' && test "$first_param" != -c; then
  137.   $echo 'x -' SKIPPING 'PsiBackup.pl' '(file already exists)'
  138. else
  139.   $echo 'x -' extracting 'PsiBackup.pl' '(gzipped)'
  140.   sed 's/^X//' << 'SHAR_EOF' | uudecode &&
  141. begin 600 _sh04170/gzi
  142. F6J7RQ#=`3A$R!9)CE"$"FO>9>$^E&"]>$.P_./\#+1M%QUXL``#*
  143. `
  144. end
  145. SHAR_EOF
  146.   $echo 'gunzipping file' 'PsiBackup.pl' &&
  147.   gzip -d < _sh04170/gzi > 'PsiBackup.pl' &&
  148.   $shar_touch -am 0405184097 'PsiBackup.pl' &&
  149.   chmod 0444 'PsiBackup.pl' ||
  150.   $echo 'restore of' 'PsiBackup.pl' 'failed'
  151.   if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  152.   && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
  153.     md5sum -c << SHAR_EOF >/dev/null 2>&1 \
  154.     || $echo 'PsiBackup.pl:' 'MD5 check failed'
  155. 40bb938bd12baff58d1f3bbe441c083a  PsiBackup.pl
  156. SHAR_EOF
  157.   else
  158.     shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'PsiBackup.pl'`"
  159.     test 11358 -eq "$shar_count" ||
  160.     $echo 'PsiBackup.pl:' 'original size' '11358,' 'current size' "$shar_count!"
  161.   fi
  162. fi
  163. # ============= PsiBackup.sh ==============
  164. if test -f 'PsiBackup.sh' && test "$first_param" != -c; then
  165.   $echo 'x -' SKIPPING 'PsiBackup.sh' '(file already exists)'
  166. else
  167.   $echo 'x -' extracting 'PsiBackup.sh' '(gzipped)'
  168.   sed 's/^X//' << 'SHAR_EOF' | uudecode &&
  169. begin 600 _sh04170/gzi
  170. `
  171. end
  172. SHAR_EOF
  173.   $echo 'gunzipping file' 'PsiBackup.sh' &&
  174.   gzip -d < _sh04170/gzi > 'PsiBackup.sh' &&
  175.   $shar_touch -am 0405183997 'PsiBackup.sh' &&
  176.   chmod 0555 'PsiBackup.sh' ||
  177.   $echo 'restore of' 'PsiBackup.sh' 'failed'
  178.   if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  179.   && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
  180.     md5sum -c << SHAR_EOF >/dev/null 2>&1 \
  181.     || $echo 'PsiBackup.sh:' 'MD5 check failed'
  182. 16459fc0ddb3e82a6f5addffa07507c1  PsiBackup.sh
  183. SHAR_EOF
  184.   else
  185.     shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'PsiBackup.sh'`"
  186.     test 1954 -eq "$shar_count" ||
  187.     $echo 'PsiBackup.sh:' 'original size' '1954,' 'current size' "$shar_count!"
  188.   fi
  189. fi
  190. # ============= PsiBackup.txt ==============
  191. if test -f 'PsiBackup.txt' && test "$first_param" != -c; then
  192.   $echo 'x -' SKIPPING 'PsiBackup.txt' '(file already exists)'
  193. else
  194.   $echo 'x -' extracting 'PsiBackup.txt' '(gzipped)'
  195.   sed 's/^X//' << 'SHAR_EOF' | uudecode &&
  196. begin 600 _sh04170/gzi
  197. =4937J.=Y,@P=`8/Q=IHEZE]-R/)?QEW/TCX(``!Y
  198. `
  199. end
  200. SHAR_EOF
  201.   $echo 'gunzipping file' 'PsiBackup.txt' &&
  202.   gzip -d < _sh04170/gzi > 'PsiBackup.txt' &&
  203.   $shar_touch -am 0405183097 'PsiBackup.txt' &&
  204.   chmod 0644 'PsiBackup.txt' ||
  205.   $echo 'restore of' 'PsiBackup.txt' 'failed'
  206.   if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  207.   && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
  208.     md5sum -c << SHAR_EOF >/dev/null 2>&1 \
  209.     || $echo 'PsiBackup.txt:' 'MD5 check failed'
  210. e1cf0edb224fc4a5ee99110dc458baa8  PsiBackup.txt
  211. SHAR_EOF
  212.   else
  213.     shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'PsiBackup.txt'`"
  214.     test 2110 -eq "$shar_count" ||
  215.     $echo 'PsiBackup.txt:' 'original size' '2110,' 'current size' "$shar_count!"
  216.   fi
  217. fi
  218. rm -fr _sh04170
  219. exit 0
  220. ---
  221. Please mail binaries to 'psion-binaries@it.dtu.dk' to put them in this group.
  222. This Psion binary was approved by Erik Johansen <ej@it.dtu.dk>
  223.                Also check out:  ftp://ftp.it.dtu.dk/pub/psion/index.html
  224.  
  225.