Celestin Apprentice 2/Apprentice-Release2.iso/Source Code/C++/Applications/Nuntius 1.2/src/Nuntius/tools/GetNewNews

Text File | 1994-04-12 | 460 b | 26 lines | [TEXT/MPS ]

#set exit 1
set olddir "``pwd``"
set exit 1
set toDir scratch-1:csm:
if {#} == 0
    choose -u speck -askpw "RUNET:Gorm Appleshare:speck" -type AFPServer
    set from speck:
    set outWithIt 'eject speck:'
else
    set from "{{1}}"
    set outWithIt ''
end
cd "{{from}}"
set ff "`f comp.≈`"
cd "{olddir}"
for n in {ff}
    set exit 0
    mkdir {toDir}{n}:
    set exit 1
    echo -n > {toDir}{n}:z
    rm -y {toDir}{n}:≈
    cp "{{from}}"{n} {toDir}{n}:articles
end
cd "{olddir}"
{outWithIt}