Comando  : apri socket
Descr.   : apre un canale nel socket
Parametri: stringa1 opzione

stringa1 = nome o indirizzo num del srver cui collegarsi
opzione = porta

Con il comando socket possiamo collegarci ad internet o ad un server
locale. Una volta aperto il socket possiamo inviare testo o comandi
al server. Quello che ci invia il server sara' contenuto nella variabile
'trasmissione' ed inoltre sara' inserito in un file di nostra scelta
che useremo come log della connessione.
Il seguente esempio si collega ad un server Smtp per inviare una mail.

Esempio:

#----------Nuova Procedura---------

Nome: InviaMsg 

variabile globale Server
variabile globale User
variabile globale Mioindirizzo
variabile globale Destinatario
variabile globale Oggetto

#prende dall'editor il testo del msg.

assegna a nomeoggetto ".edit"
assegna a valore1 "0.0"
assegna a valore2 "end"
prendi testo editor

assegna a Testomsg risultato

#si collega al server

assegna a stringa1 Server
assegna a opzione "25"
apri socket

#definisce il file in cui si vuole che venga inserita la ricezione

assegna a stringa1 "Log"
inserisci ricezione socket nel file

aspetta trasmissione

#si fa riconoscere dal server

assegna a helo "helo "
assegna a stringa1 helo
assegna a stringa2 User
attacca variabili

assegna a stringa1 risultato
invia al socket

aspetta trasmissione

#invia al server i dati e la mail

assegna a mitt "mail from: "
assegna a stringa1 mitt
assegna a stringa2 Mioindirizzo
attacca variabili
assegna a stringa1 risultato
invia al socket

aspetta trasmissione

assegna a des "rcpt to: "
assegna a stringa1 des
assegna a stringa2 Destinatario
attacca variabili
assegna a stringa1 risultato
invia al socket

aspetta trasmissione

assegna a stringa1 "data"
invia al socket

aspetta trasmissione

assegna a mitt "From: "
assegna a stringa1 mitt
assegna a stringa2 Mioindirizzo
attacca variabili
assegna a stringa1 risultato
invia al socket

assegna a des "To: "
assegna a stringa1 des
assegna a stringa2 Destinatario
attacca variabili
assegna a stringa1 risultato
invia al socket

assegna a stringa1 "X-Mailer: NidlMail"
invia al socket

assegna a og "Subject: "
assegna a stringa1 og
assegna a stringa2 Oggetto
attacca variabili
assegna a stringa1 risultato
invia al socket

assegna a stringa1 ""
invia al socket

assegna a stringa1 Testomsg
invia al socket

assegna a stringa1 "\\_______ Via NidlMail 0.1 _______"
invia al socket

assegna a stringa1 "."
invia al socket

#invia al server il comando di chiusura collegamento.

assegna a stringa1 "quit"
invia al socket

aspetta fine trasmissione
aggiorna


