Text 12376, 142 rader
Skriven 2001-07-26 11:26:33 av Michael Cronsten (2:205/412)
  Kommentar till text 12371 av Johan Svensson (2:206/112.3)
Ärende: cgi
===========
 JS>MC> Jag funderar på att göra ett cgi-script som visar dagens namnsdag, 
 JS>MC> är det  lämpligt att använda cgi för det? 
 
 JS>MC> Eller är det bättre att göra ett skript som utförs vid midnatt 
 JS>MC> varje dag och  skriver dessa uppgifter till en ren textfil utan 
 JS>MC> CR/LF, så att man kan  använda SSI include för att ta in resultatet 
 JS>MC> i html-sidor? 
 JS> 
 JS>  Tja, är man extrem optimeringsfanatiker och vill spara in på vartenda 
 JS>  processorcykel man kan, så javisst. Själv skulle jag generera det 
 JS> dynamiskt vid varje access. 
 
Jag har nu gjort ett cgi-script som körs varje gång det anropas... ;-) Totalt
blev filen 30K. Men det bästa vore om programmet körs vid midnatt och skriver
dagens namnsdag till en fil. Går det köra ett cron-jobb som exekverar ett
cgi-script? Det är inte min webbserver (Linux)... 
 
Så här ser scriptet ut, är i drift på http://m.nu/m/ 
 
 
#!/usr/bin/perl 
############################################## 
# namnsdag.cgi   010724   version 1.0        # 
# Copywrite 2001  MiCro                      # 
# micro@jamt.net           http://m.nu/m/    # 
############################################## 
 
    # Get the current time and format the hour, minutes and seconds. 
    ($sec,$min,$hour,$mday,$manad,$year,$wday) =
(localtime(time))[0,1,2,3,4,5,6]; 
 
  print "Content-type: text/html\n\n"; 
  #print 'dag i månaden: ',$mday,'   månad-1: ',$manad; 
 
   if ($manad < 1) { 
    if    ($mday < 2) { print 'Nyårsdagen     imorgon: Svea'; } 
    elsif ($mday < 3) { print 'Svea     imorgon: Alfred, Alfrida'; } 
    elsif ($mday < 4) { print 'Alfred, Alfrida     imorgon: Rut'; } 
    elsif ($mday < 5) { print 'Rut     imorgon: Hanna, Hannele'; } 
    elsif ($mday < 6) { print 'Hanna, Hannele     imorgon:
Kasper,Melker,Baltsar/13-dag jul'; } 
    elsif ($mday < 7) { print 'Kasper,Melker,Baltsar/13-dag jul     imorgon:
August, Augusta'; } 
    elsif ($mday < 8) { print 'August, Augusta     imorgon: Erland'; } 
    elsif ($mday < 9) { print 'Erland     imorgon: Gunnar, Gunder'; } 
    elsif ($mday < 10) { print 'Gunnar, Gunder     imorgon: Sigurd, Sigbritt';
} 
    elsif ($mday < 11) { print 'Sigurd, Sigbritt     imorgon: Jan, Jannike'; }

    elsif ($mday < 12) { print 'Jan, Jannike     imorgon: Frideborg, Fridolf';
} 
    elsif ($mday < 13) { print 'Frideborg, Fridolf     imorgon: Knut /
Tjugondedag jul'; } 
    elsif ($mday < 14) { print 'Knut / Tjugondedag jul     imorgon: Felix,
Felicia'; } 
    elsif ($mday < 15) { print 'Felix, Felicia     imorgon: Laura, Lorentz'; }

    elsif ($mday < 16) { print 'Laura, Lorentz     imorgon: Hjalmar, Helmer';
} 
    elsif ($mday < 17) { print 'Hjalmar, Helmer     imorgon: Anton, Tony'; } 
    elsif ($mday < 18) { print 'Anton, Tony     imorgon: Hilda, Hildur'; } 
    elsif ($mday < 19) { print 'Hilda, Hildur     imorgon: Henrik'; } 
    elsif ($mday < 20) { print 'Henrik     imorgon: Fabian, Sebastian'; } 
    elsif ($mday < 21) { print 'Fabian, Sebastian     imorgon: Agnes, Agneta';
} 
    elsif ($mday < 22) { print 'Agnes, Agneta     imorgon: Vincent, Viktor'; }

    elsif ($mday < 23) { print 'Vincent, Viktor     imorgon: Frej, Freja'; } 
    elsif ($mday < 24) { print 'Frej, Freja     imorgon: Erika'; } 
    elsif ($mday < 25) { print 'Erika     imorgon: Paul, Pål'; } 
    elsif ($mday < 26) { print 'Paul, Pål     imorgon: Bodil, Boel'; } 
    elsif ($mday < 27) { print 'Bodil, Boel     imorgon: Göte, Göta'; } 
    elsif ($mday < 28) { print 'Göte, Göta     imorgon: Karl, Karla'; } 
    elsif ($mday < 29) { print 'Karl, Karla     imorgon: Diana'; } 
    elsif ($mday < 30) { print 'Diana     imorgon: Gunilla, Gunhild'; } 
    elsif ($mday < 31) { print 'Gunilla, Gunhild     imorgon: Ivar, Joar'; } 
    elsif ($mday < 32) { print 'Ivar, Joar     imorgon: Max, Maximilian'; } 
        } 
   elsif ($manad < 2) { 
    if    ($mday < 2) { print 'Max, Maximilian     imorgon:
Kyndelsmässodagen'; } 
    elsif ($mday < 3) { print 'Kyndelsmässodagen     imorgon: Disa, Hjördis';
} 
    elsif ($mday < 4) { print 'Disa, Hjördis     imorgon: Ansgar, Anselm'; } 
    elsif ($mday < 5) { print 'Ansgar, Anselm     imorgon: Agata, Agda'; } 
    elsif ($mday < 6) { print 'Agata, Agda     imorgon: Dorotea, Doris'; } 
    elsif ($mday < 7) { print 'Dorotea, Doris     imorgon: Rikard, Dick'; } 
 
///// etc. 
 
    elsif ($mday < 28) { print 'Astrid, Asta     imorgon: Malte'; } 
    elsif ($mday < 29) { print 'Malte     imorgon: Sune'; } 
    elsif ($mday < 30) { print 'Sune     imorgon: Andreas, Anders'; } 
    elsif ($mday < 31) { print 'Andreas, Anders     imorgon: Oskar, Ossian'; }

        } 
   elsif ($manad < 12) { 
    if    ($mday < 2) { print 'Oskar, Ossian     imorgon: Beata, Beatrice'; } 
    elsif ($mday < 3) { print 'Beata, Beatrice     imorgon: Lydia'; } 
    elsif ($mday < 4) { print 'Lydia     imorgon: Barbara, Barbro'; } 
    elsif ($mday < 5) { print 'Barbara, Barbro     imorgon: Sven'; } 
    elsif ($mday < 6) { print 'Sven     imorgon: Nikolaus, Niklas'; } 
    elsif ($mday < 7) { print 'Nikolaus, Niklas     imorgon: Angela,
Angelika'; } 
    elsif ($mday < 8) { print 'Angela, Angelika     imorgon: Virginia'; } 
    elsif ($mday < 9) { print 'Virginia     imorgon: Anna'; } 
    elsif ($mday < 10) { print 'Anna     imorgon: Malin, Malena'; } 
    elsif ($mday < 11) { print 'Malin, Malena     imorgon: Daniel, Daniela'; }

    elsif ($mday < 12) { print 'Daniel, Daniela     imorgon: Alexander,
Alexis'; } 
    elsif ($mday < 13) { print 'Alexander, Alexis     imorgon: Lucia'; } 
    elsif ($mday < 14) { print 'Lucia     imorgon: Sten Sixten'; } 
    elsif ($mday < 15) { print 'Sten Sixten     imorgon: Gottfrid'; } 
    elsif ($mday < 16) { print 'Gottfrid     imorgon: Assar'; } 
    elsif ($mday < 17) { print 'Assar     imorgon: Stig'; } 
    elsif ($mday < 18) { print 'Stig     imorgon: Abraham'; } 
    elsif ($mday < 19) { print 'Abraham     imorgon: Isak'; } 
    elsif ($mday < 20) { print 'Isak     imorgon: Israel, Moses'; } 
    elsif ($mday < 21) { print 'Israel, Moses     imorgon: Tomas'; } 
    elsif ($mday < 22) { print 'Tomas     imorgon: Natanael, Jonatan'; } 
    elsif ($mday < 23) { print 'Natanael, Jonatan     imorgon: Adam'; } 
    elsif ($mday < 24) { print 'Adam     imorgon: Eva'; } 
    elsif ($mday < 25) { print 'Eva     imorgon: Juldagen'; } 
    elsif ($mday < 26) { print 'Juldagen     imorgon: Stefan, Staffan'; } 
    elsif ($mday < 27) { print 'Stefan, Staffan     imorgon: Johannes, Johan';
} 
    elsif ($mday < 28) { print 'Johannes, Johan     imorgon: Benjamin /
Värnlösa barns dag'; } 
    elsif ($mday < 29) { print 'Benjamin/Värnlösa barns dag     imorgon:
Natalia, Natalie'; } 
    elsif ($mday < 30) { print 'Natalia, Natalie     imorgon: Abel, Set'; } 
    elsif ($mday < 31) { print 'Abel, Set     imorgon: Sylvester'; } 
    elsif ($mday < 32) { print 'Sylvester     imorgon: Nyårsdagen'; } 
        } 
 
  exit; 
 
# slut!   
  
---
 * Origin: Jamten-TCL   +46-63-133330 (2:205/412)