This is designed to provide information regarding the 'Almanac of the day which includes: The Saints of the Day, Quote of the day, etymology of the saint of the day, the personality of the name of the day, the lucky number, Those born on this day, it happened today, The personalities born today. All in Italian language.

;================================================
;
;  Nome: Almanacco del Giorno
;  Versione: 1.0
;  Scritto da: ICEMANxxx
;  Data: 05/10/2010
;  WebSite: www.atomirc.net
;  IRC: AtomIRC (irc.atomirc.net)
;  Canale: #AtomIRC
;  CopyRight: Creative Commons BY-NC-SA
;
;================================================ 

on *:text:!almanacco:#:{
  set %almacanale $chan
  sockclose alma
  sockopen alma www.barbanera.it 80
}

on *:sockopen:alma: {
  if ($sockerr) {
    echo -s Errore connessione al Sito.
    sockclose alma
  }
  else {
    sockwrite -n $sockname GET /almaoggi.php  HTTP/1.1
    sockwrite -n $sockname Host: www.barbanera.it
    sockwrite -n $sockname $crlf
  }
}

on *:sockread:alma: {
  var %alma.temp
  sockread %alma.temp
  if (*<param name="MESSAGE" value="* iswm %alma.temp) { msg %almacanale 2,15 L' Almanacco del giorno... }
  if (*santooggi* iswm %alma.temp) { msg %almacanale 2,15 I Santi di oggi: $htmlfree(%alma.temp) }
  if (*class="nomeoggi* iswm %alma.temp) { msg %almacanale 2,15 Il Nome: $htmlfree(%alma.temp) }
  if (*notenome* iswm %alma.temp) { msg %almacanale 2,15  $htmlfree(%alma.temp) }
  if (*Carattere:* iswm %alma.temp) { msg %almacanale 2,15  $htmlfree(%alma.temp) }
  if (*Numero fortunato:* iswm %alma.temp) { msg %almacanale 2,15  $htmlfree(%alma.temp) }
  if (*class="comeoggi* iswm %alma.temp) { msg %almacanale 2,15  Se sei nato/a Oggi : $htmlfree(%alma.temp) }
  if (*class="proverbio"* iswm %alma.temp) { msg %almacanale 2,15  Il Proverbio del Giorno: $htmlfree(%alma.temp) }
  if (*class="accaddeoggi"* iswm %alma.temp) { msg %almacanale 2,15  Oggi Accadde: $htmlfree(%alma.temp) }
  if (*class="natioggi* iswm %alma.temp) { msg %almacanale 2,15  Personalità nate Oggi:  }
  if (* - 1* iswm %alma.temp) { msg %almacanale 2,15 $remove($htmlfree(%alma.temp), $chr(13)) }
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, $chr(9))
  return %x
}