home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ST-Computer Leser-CD 2001 April
/
LCD_4_01.iso
/
apps
/
luna156
/
scripte
/
maus2net.lus
< prev
next >
Wrap
Text File
|
1999-08-10
|
1KB
|
80 lines
;
; Maus 2 Net - Jan Daldrup 1999 (http://place2be.de/)
; Luna Script zur Umwandlung von MausNet Nachrichten ins HTML Format
; Folgendes wird von diesem Script erledigt:
; - HTML Header einfügen
; - Textattribute umwandeln (25%)
; - Links expandieren (50%)
; - Umlaute umwandeln (in Planung)
;
; HTML Header einfügen
; Textanfang
text_home()
return(0)
crs_up(0)
blk_hide()
tput "<!DOCTYPE HTML PUBLIC "
keypress(34,$2)
tput "-//W3C//DTD HTML 4.0 //EN"
keypress(34,$2)
tput ">"
return(0)
tput "<HTML>"
return(0)
tput " <HEAD>"
return(0)
tput " <TITLE>Maus.Computer.Atari.News</TITLE>"
return(0)
tput " </HEAD>"
return(0)
tput "<BODY BGCOLOR="
keypress(34,$2)
tput "#FFFFFF"
keypress(34,$2)
tput ">"
return(0)
tput "<PRE>"
; Textende
text_end()
return(0)
tput "</PRE>"
return(0)
tput "</BODY>"
return(0)
tput "</HTML>"
; Textattribute Umwandeln
; Fett
replace(0,0,-1,-1,"* ","</B>")
replace(0,0,-1,-1,"*","<B>")
; Unterstrichen
replace(0,0,-1,-1,"_ ","</U>")
replace(0,0,-1,-1,"_","<U>")
; Links expandieren
; HTTP Adressen
search(0,0,-1,"http://")
crs_left(4)
blk_hide()
tput "<A HREF="
keypress(34,$2)
goto_char(32)
keypress(34,$2)
tput " TARGET="
keypress(34,$2)
tput "_top"
keypress(34,$2)
tput "></A>"
end()