Hi Rebols,
I'm sorry for the previous msg about FTP Timeout. I found out what's going
on BUT need some HELP to understand the problem
Those who can help me I'll be very gratefull .
There's is a script attached and a Windows shortcut to call it.
Just make a folder named c:\tvprog put everything in there and try to run
the script in both way:
1. without Windows shortcut and it works out fine
2. via Windows shortcut and it returns error TCP 500
I NEED to understand what's going on
Thank you all
REBOL [
title: "GetTVProg"
file: %tvprog.r
date: [10-jan-2000]
lstupd: [03-mar-2000]
file: "%tvprog.r"
version: 1.0
author: "Carlos Lorenz Filho"
email: [EMAIL PROTECTED]
purpose: {Possibilitar downloads seletivos via FTP para usuarios da lista
TVProg}
]
user: {AS34T!*21Pr24%x68e2(*
z634v7b9i^5%3ms#$9td&*
(%0)PR456$%6ba78e8TT98
l345#$ex&*&t#m$TPx9r5A$32
2!o9PTn5^643i2Ec9A*a}
pass: {QlY4Tt3x8XJYusgX%p%8&5AY)}
grids: [
1 "ABC.TXT" "ABC"
2 "APL.TXT" "ANIMAL PLANET"
3 "UNO.TXT" "AXN"
4 "BBC.TXT" "BBC"
5 "BIT.TXT" "BLOOMBERG"
6 "CAR.TXT" "CARTOON"
7 "CBR.TXT" "CANAL BRASIL"
8 "RUR.TXT" "CANAL RURAL"
9 "MAX.TXT" "CINEMAX"
10 "CMT.TXT" "CMT"
11 "CNE.TXT" "CNN Espanhol"
12 "CNN.TXT" "CNN Int"
13 "CNT.TXT" "CNT"
14 "CUL.TXT" "CULTURA"
15 "DWL.TXT" "DEUTSCHE WELLE"
16 "DIK.TXT" "DISCOVERY KIDS"
17 "DIS.TXT" "DISCOVERY"
18 "ECO.TXT" "ECO"
19 "EET.TXT" "E!"
20 "ESB.TXT" "ESPN Brasil"
21 "ESP.TXT" "ESPN Int"
22 "EUR.TXT" "EUROCHANNEL"
23 "BRA.TXT" "FILM & ARTS"
24 "FOX.TXT" "FOX"
25 "KID.TXT" "FOX KIDS"
26 "FUT.TXT" "FUTURA"
27 "GSP.TXT" "GLOBO SP"
28 "GBM.TXT" "GLOBO MINAS"
29 "GRJ.TXT" "GLOBO RIO"
30 "POA.TXT" "GLOBO RS"
31 "GLN.TXT" "GLOBONEWS"
32 "GNT.TXT" "GNT"
33 "HAL.TXT" "HALLMARK"
34 "HBO.TXT" "HBO"
35 "HB2.TXT" "HB2"
36 "EST.TXT" "LAS ESTRELLAS"
37 "MDO.TXT" "MUNDO"
38 "MGM.TXT" "MGM GOLD"
39 "MSW.TXT" "MULTISHOW"
40 "MTV.TXT" "MTV"
41 "NIC.TXT" "NICKELODEON"
42 "TRA.TXT" "PEOPLE & ARTS"
43 "RAI.TXT" "RAI"
44 "RIT.TXT" "RITMOSON"
45 "RTP.TXT" "RTP"
46 "SET.TXT" "SONY"
47 "SHO.TXT" "SHOPTIME"
48 "SUP.TXT" "SUPERSTATION"
49 "NAC.TXT" "TV SENAC"
50 "HIT.TXT" "TELEHIT"
51 "SEN.TXT" "TV SENADO"
52 "TC1.TXT" "TELECINE 1"
53 "TC2.TXT" "TELECINE 2"
54 "TC3.TXT" "TELECINE 3"
55 "TC4.TXT" "TELECINE 4"
56 "TC5.TXT" "TELECINE 5"
57 "TED.TXT" "TV EDUCATIVA"
58 "TLN.TXT" "TELENOTICIAS"
59 "TNT.TXT" "TNT"
60 "TV5.TXT" "TV5"
61 "TVE.TXT" "TV ESPANHA"
62 "USA.TXT" "USA NETWORK"
63 "WBT.TXT" "WBTV"
64 "WEA.TXT" "WEATHER CHANNEL"
65 "WNT.TXT" "WORLDNET"
]
grid-search: make function! [series seek where] [
grid: find series seek
if where == "rec" [ return first grid ]
if where == "file" [ return second grid]
]
user: parse user "zPdTA978b!#174Sm3$2%5^&6*x0()E_+R"
pass: parse pass "Qf%j)dsfX#8*y&ATPI(7YU8&8JKLsg#627"
local-date: make function! [some-date [date!] ][
months: [2 4 5 8 9 12]
locale-months: ["-Fev-" "-Abr-" "-Mai-" "-Ago-" "-Set-" "-Dez-"]
if found? find months some-date/month[
return join some-date/day [pick locale-months
index? find months some-date/month some-date/year]
]
return some-date
]
left: func [str num][copy/part str num]
right: func [str num][copy skip tail str negate num]
substr: func [str num length][copy/part at str num length]
userf: {}
passf: {}
foreach k user[if k <> " "[append userf k]]
foreach k pass[if k <> " "[append passf k]]
user: userf
pass: passf
site: to-url join "ftp://" [user ":" pass "@ftp.saturnet.com.br/REBOL/Scripts/"]
sitedata: to-url join "ftp://" [user ":" pass "@ftp.saturnet.com.br/REBOL/Txt/"]
print "^Lconectando ao site FTP TVProg"
files: read sitedata
either not exists? %../tvprog/lista.cf[
print trim {^LLista de Grades de Programa��o Dispon�veis na TVPROG:
01> ABC 17> Discovery 33> Hallmark 49> TV Senac 65>
Worldnet
02> Animal Planet 18> ECO 34> HBO 50> Telehit
03> AXN 19> E! 35> HBO 2 51> TV Senado
04> BBC 20> ESPN Br 36> Las Estrellas 52> Telecine 1
05> Bloomberg 21> ESPN Int 37> Mundo 53> Telecine 2
06> Cartoon 22> Eurochannel 38> MGM 54> Telecine 3
07> Canal Brasil 23> Film & Arts 39> Multishow 55> Telecine 4
08> Canal Rural 24> FOX 40> MTV 56> Telecine 5
09> Cinemax 25> FOX Kids 41> Nickelodeon 57> TV Educativa
10> CMT 26> Futura 42> People & Arts 58> Telenoticias
11> CNN Espanhol 27> Globo SP 43> RAI 59> TNT
12> CNN Int 28> Globo MG 44> Ritmoson 60> TV5
13> CNT 29> Globo RJ 45> RTPi 61> TV Espanha
14> TV Cultura 30> Globo RS 46> Sony 62> USA
15> Deutsche Welle 31> GloboNews 47> Shoptime 63> Warner
16> Discovery Kids 32> GNT 48> Superstation 64> Weather Channel
}
go-out: true
print trim {Digite os n�meros das grades que deseja receber, separados por
espa�os.
Por exemplo: 05 20 24 34 78 04 e pressione a tecla <Enter>.
Os nomes de grades selecionadas ficar�o gravados no arquivo
lista.cf no
diret�rio c:\tvprog. Para alterar sua sele��o, exclua o
arquivo
lista.cf antes de rodar o script GetTVProg.
As grades de programa��o ser�o gravadas no arquivo
c:\tvprog\tvprog.txt.
}
a: input
args: make block! parse a "-"
foreach arg args[
if greater? arg "65" [
arg: "65"
]
if lesser? arg "0" [
arg: "1"
]
if equal? arg "0" [
arg: "1"
]
nfile: grid-search grids (to-integer arg) "file"
write/append %../tvprog/lista.cf join nfile newline
files: make block! read %../tvprog/lista.cf
]
][
files: make block! read %../tvprog/lista.cf
]
write %../tvprog/tvprog.txt join read site/header.txt [newline newline]
foreach file files [
if (length? (to-string file)) < 7 [
print "^LH� um problema com seu arquivo de configura��o (lista.cf)!"
print "Por favor, exclua-o do diret�rio c:\tvprog e rode o script novamente."
wait 4
quit
]
nfile: grid-search grids (to-string :file) "file"
if error? try [arq: to-block find read sitedata/:file now/date][
print "^/Houve erro de transfer�ncia de arquivo. Tente novamente."
wait 3
quit
]
forskip arq 4 [if (greater? second arq now/time)[
break
]
]
break-date: local-date first arq
if error? try[write/append %/c/tvprog/tvprog.txt join "Canal: " [nfile "^/^/"
"Data: " break-date newline newline]][
print "^/Houve erro de grava��o no arquivo. Tente novamente."
wait 3
quit
]
forskip arq 4 [
if (break-date <> local-date first arq)[
break-date: local-date first arq
if error? try[write/append %/c/tvprog/tvprog.txt join newline ["Data:
" break-date newline newline]][
print "^/Houve erro de grava��o no arquivo. Tente novamente."
wait 3
quit
]
]
hra: to-string second arq
if (equal? substr hra 2 1 ":" ) [hra: join "0" hra]
if error? try[write/append %/c/tvprog/tvprog.txt join hra [" " third arq "
- " fourth arq "^/"]][
print "^/Houve erro de grava��o no arquivo. Tente novamente."
wait 3
quit
]
]
if error? try[write/append %/c/tvprog/tvprog.txt
"^/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^/^/"][
print "^/Houve erro de grava��o no arquivo. Tente novamente."
wait 3
quit
]
print join "^/Arquivo " [nfile " transferido."]
]
print "^LA programa��o transferida est� no arquivo c:\tvprog\tvprog.txt"
wait 3
quit
GetTVProg.lnk
