$t0 = time(); $t1 = $t0 + 3600; Header("Expires: " . + gmdate("D, d M Y H:i:s", $t1) . " GMT"); $WMLOUTPUT = preg_match("/vnd.wap.wml/i", getenv("HTTP_ACCEPT")); $MIDILIST = array( "-;Ach Du Lieber ...;ach_du_lieber_augustin.mid", "-;Auld lang shine;auld_lang_shine.mid", "-;Avanti popolo;avanti_popolo.mid", "-;Bella ciao;bella_ciao.mid", "-;Blowing in the wind;blowing_in_the_wind.mid", "-;Brigata internazionale;brigata_internazionale.mid", "-;Clementine;clementine.mid", "-;Gam-gam;gam_gam.mid", "-;Glory hallelujah;glory_hallelujah.mid", "-;Guantanamera;guantanamera.mid", "-;Guitar tango;guitar_tango.mid", "-;Hail to the Chief;hail_to_the_chief.mid", "-;Hallelujah chorus;hallelujah.mid", "-;Hava nagila;hava_nagila.mid", "-;Hello Mary Lou;hello_marylou.mid", "-;Jingle bells;jingle_bells.mid", "-;Kalinka;kalinka.mid", "-;Katjusha;katjusha.mid", "-;La paloma;la_paloma.mid", "-;Le Internationale;le_internationale.mid", "-;Lili Marlene;lili_marlene.mid", "-;London bridge;london_bridge.mid", "-;Mars sturmovih;mars_sturmovih_bataljonov.mid", "-;Mary's little lamb;mary_had_a_little_lamb.mid", "-;Morning has broken;morning_has_broken.mid", "-;Puff, the dragon;puff_the_magic_dragon.mid", "-;Que sera-sera;que_sera-sera.mid", "-;Shalom alechem;shalom_alechem.mid", "-;Sirtaki;sirtaki.mid", "-;Stille nacht;stille_nacht.mid", "-;Tike-tike;tike-tike.mid", "-;Torna a surriento;torna_a_surriento.mid", "-;Yankee Doodle;yankee_doodle.mid", "-;Zemratik;zemratik.mid" ); function GenerateList() { global $WMLOUTPUT; global $MIDILIST; foreach ($MIDILIST as $w) { list($s, $caption, $url) = explode(";",$w); $s = trim($s); $caption = trim($caption); $url = trim($url); if ($WMLOUTPUT) { echo "
$s $caption
"; } else { echo "$s $captionCategory:
'; echo 'Well-known tunes
'; echo ''; GenerateList(); echo '
'; echo '