Annotation of parser3/www/htdocs/mailreceive.html, revision 1.1.16.1

1.1       paf         1: @postprocess[body]
                      2: ^body.match[(\s)\s+][gs]{$match.1}
                      3: 
                      4: @main[]
                      5: ^showMessage[$mail:received]
                      6: 
                      7: @showMessage[message]
                      8: ^message.foreach[key;value]{
1.1.16.1! paf         9:        $key=((
1.1       paf        10:        ^if($value is hash){
                     11:                ^if($value.value is file){
                     12:                        ^showFile[$value.value]
                     13:                }{
                     14:                        ^showMessage[$value]
                     15:                }
                     16:        }{
                     17:                ^if($value is date){
                     18:                        ^showDate[$value]
                     19:                }{
                     20:                        ^showString[$value]
                     21:                }
1.1.16.1! paf        22:        }))
1.1       paf        23: }
                     24: 
                     25: @showString[string]
                     26: $string
                     27: 
                     28: @showDate[date]
                     29: ^date.sql-string[]
                     30: 
                     31: @showFile[file]
                     32: +$file.name ($file.size) [$file.content-type]

E-mail: