HP3000-L Archives

May 2002, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Per Ostberg <[log in to unmask]>
Reply To:
Date:
Wed, 22 May 2002 01:20:21 +0200
Content-Type:
text/plain
Parts/Attachments:
Meddelandetext (69 lines)
I sometimes use this command file to put a file somewhere else,  
hth
/per

--ftptrans-----------
parm host="kemd09"
fil="@",user="!hpuser.!HPACCOUNT",pasw="",rname="!fil"
#
# Created 19971210, Per Östberg, [log in to unmask]
#
if "!fil" = "@"
  echo 'Usage: ftptrans [host],[file],[user],[password],[rname]    '
  echo 'Transfers a file via ftp:                                  '
  echo '       [host] - remote host    (default:kemd09)            '
  echo '       [file] - local filename (no default)                '
  echo '       [user] - remote username(default:!hpuser.!hpaccount)'
  echo '   [password] - remote password(default:empty)             '
  echo '      [rname] - remote filename(default:same as file)      '
  return
endif

echo ExitOnError        >ftpin
echo open !host        >>ftpin
echo user !user !pasw  >>ftpin
echo put  !fil !rname  >>ftpin
echo quit              >>ftpin

build ftplist
continue
run ftp.arpa.sys;stdin=ftpin;stdlist=ftplist
if !FTPLastErr <> 0
  echo Error from FTP: !FTPLastErr
  echo Ftp-output in file: FTPLIST.!hpgroup
  return
else
  purge ftplist
  purge ftpin,temp
endif
----------


> I want to create a command file or at least add some commands to a
couple jobs I
>  have to send files from my 3000 to an FTP site of one of my vendors.
>  
> What do I need to do to make this work?
>  
> Rs~
>  
> Russ Smith
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * *  
> * * * * * * * * * *
> The opinions expressed in this email are mine, and are not meant to
reflect
> those of any other party.  The subject matter herein is intended
solely for
> the named recipient(s) of this email.
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * *  
> * * * * * * * * * *
>  
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>  

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2