home *** CD-ROM | disk | FTP | other *** search
/ NetComm Communications 5 / NetComm.iso / resource / netcomm / wcomm / disk2 / alias.sy_ / alias.bin
Encoding:
Text File  |  1994-10-24  |  551 b   |  25 lines
  1. new string str;
  2. new string aliases;
  3.  
  4. strcpy(str, "test -f $HOME/")
  5. strcat(str, aliasfile);
  6. ok := shexec(str);
  7. if ( ok != 0 ) then
  8.    strcpy(str, "Error locating aliases file: ");
  9.    strcat(str, aliasfile);
  10.    abort(str);
  11.    exit;
  12. else
  13.    strcpy(str, "cat $HOME/")
  14.    strcat(str, aliasfile);
  15.    ok := gettext(aliases, str, 500);
  16.    if ( ok != 0 ) then
  17.       strcpy(str, "Error downloading aliases file: ");
  18.       strcat(str, aliasfile);
  19.       abort(str);
  20.       exit;
  21.    else
  22.       writefile("$aliases", aliases);
  23.    endif
  24. endif
  25.