JJJ: Henvisninger: Internet

HTML ######################################################### # HTML FOR VALGT MENUPUNKT ######################################################### # Angiv html-koden for et valgt menupunkt (uden link). # Skriv # for navnet på henvisningen. $valgt = < HTML ######################################################### # HTML FOR "ÅBENT" MENUPUNKT ######################################################### # Angiv html-koden for et "åbent" menupunkt med et link. # Skriv * for URL'en og # for navnet på henvisningen. # # Et menupunkt er "åbent", når der vises en side under # punktet, men ikke hovedsiden. $aabent = < HTML ######################################################### # HTML FOR UNDERMENUPUNKT ######################################################### # Angiv html-koden for et enkelt undermenupunkt med link. # Skriv * for URL'en og # for navnet på henvisningen. $underpunkt = < HTML ######################################################### # HTML FOR VALGT UNDERMENUPUNKT ######################################################### # Angiv html-koden for et valgt undermenupunkt uden link. # Skriv # for navnet på henvisningen. $undervalgt = < HTML ######################################################### # HTML FOR "ÅBENT" UNDERMENUPUNKT ######################################################### # Angiv html-koden for et "åbent" undermenupunkt med link. # Skriv * for URL'en og # for navnet på henvisningen. $underaabent = < HTML ######################################################### # HTML FOR MENUTOP ######################################################### # Angiv html-koden for toppen af menuen (valgtfrit). $menutop = < Jesper Juellund Jensen



	#!/usr/bin/perl ######################################################### # MENUPUNKTER ######################################################### # Angiv alle menupunkter nedenfor. # Hvert menupunkt skal angives som et navn og en url, # adskilt af et mellemrum. # Et undermenupunkt skal indledes af et mellemrum. # Url'en er i forhold til toppen af webstedet. $punkter = <	#
#
#
#
#
#

HTML ######################################################### # HTML FOR MENUBUND ######################################################### # Angiv html-koden for bunden af menuen (valgfrit). $menubund = < HTML ######################################################### # STI FOR TOPPEN AF WEBSTEDET ######################################################### # Angiv stien for toppen af webstedet. # Stien skal starte med /, men må ikke afslutte af /. $topsti = "/"; ######################################################### # URL FOR TOPPEN AF WEBSTEDET ######################################################### # Angiv absolut url for toppen af webstedet. # Url'en skal afsluttes af "/". $topurl = "http://www.cyrk.dk/"; ######################################################### # SELVE PROGRAMMET ######################################################### # Det er alt. Man skal ikke ændre i koden nedenfor. # brugervalg # ---------- # Indlæs navnet på det dokument, der søges... # Brugervalg placeres i den globale variabel %brugervalg. # Hvis den ikke kan findes, er %brugervalg tom (udefineret). sub brugervalg { # ========== if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($key, $value) = split (/=/, $pair); $key =~ tr/+/ /; $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; if ($brugervalg{$key}) { $brugervalg{$key} .= ", $value"; } else { $brugervalg{$key} = $value; } } } } # Findes et dokument under et menupunkt? # -------------------------------------- sub under { # sti-for-dokumentet-som-tabel, sti-for-menupunkt-som-tekst # ===== @dokumentstitabel = @_; $menupunktsti = pop(@dokumentstitabel); @menupunktstitabel = split(/\//, $menupunktsti); while ( ($menupunktstitabel[0] eq $dokumentstitabel[0]) && ($dokumentstitabel[0]) ) { shift(@menupunktstitabel); shift(@dokumentstitabel); } return (scalar(@menupunktstitabel)<1); } # Er dokumentet dette menupunkt? # -------------------------------------- sub her { # sti-for-dokumentet-som-tabel, sti-for-menupunkt-som-tekst # === @dokumentstitabel = @_; $menupunktsti = pop(@dokumentstitabel); @menupunktstitabel = split(/\//, $menupunktsti); while ( ($menupunktstitabel[0] eq $dokumentstitabel[0]) && ($dokumentstitabel[0]) ) { shift(@menupunktstitabel); shift(@dokumentstitabel); } $doknavn = pop(@dokumentstitabel); return ( (scalar(@menupunktstitabel)<1) && (scalar(@dokumentstitabel)<1) && ( $doknavn eq "index.shtml" ) ); } # Selve programmet # ---------------- &brugervalg(); print "Content-type:text/html\n\n"; print "$menutop"; # Find dokumentets relative sti som tabel (stisomtabel) @topstisomtabel = split(/\//, $topsti); @stisomtabel = split(/\//, $ENV{'DOCUMENT_URI'}); do { shift(@topstisomtabel); shift(@stisomtabel); } while ( ($topstisomtabel[0] eq $stisomtabel[0]) && ($stisomtabel[0]) ); $punkter =~ s/\n /\t/g; @menulinjer = split(/\n/, $punkter); foreach $menulinje (@menulinjer) { ($navn, $url) = split (/ /, $menulinje); ($url) = split(/\t/, $url); @undermenulinjer = split(/\t/, $menulinje); shift(@undermenulinjer); if (($navn) && ($url)) { # Find ud af om siden findes ved dette menupunkt $sidenFindesHer = &under(@stisomtabel, $url); $sidenFindesIUndermenu = ""; foreach $undermenulinje (@undermenulinjer) { ($undernavn, $underurl) = split (/ /, $undermenulinje); $sidenFindesIUndermenu = $sidenFindesIUndermenu || &under(@stisomtabel, $underurl); } $sidenFindesHer = $sidenFindesHer || $sidenFindesIUndermenu; #Skriv html for menupunktet if ($sidenFindesHer) { if (&her(@stisomtabel, $url)) { $html = $valgt; } else { $html = $aabent; } } else { $html = $punkt; } $url = $topurl . $url; $html =~ s/#/$navn/g; $html =~ s/\*/$url/g; print "$html"; # Undermenuer if ($sidenFindesHer) { foreach $undermenulinje (@undermenulinjer) { ($undernavn, $underurl) = split (/ /, $undermenulinje); if (&under(@stisomtabel, $underurl)) { if (&her(@stisomtabel, $underurl)) { $html = $undervalgt; } else { $html = $underaabent; } } else { $html = $underpunkt; } $url = $topurl . $underurl; $html =~ s/#/$undernavn/g; $html =~ s/\*/$url/g; print "$html"; } } } } print "$menubund";

Internet

På denne side findes en række henvisninger til steder, der handler om internettet, f.eks. om at skrive html-dokumenter. Oversigten er ret rodet og er egentlig først og fremmest et sted, hvor jeg selv har mine henvisninger. Man skal således heller ikke regne med, at jeg jævnligt tjekker henvisningernes gyldighed. Trods disse forbehold kan det da godt være, at du finder noget, du kan bruge...

Nyheder

ComON
ComputerWorld

PC World

Slashdot
Wired

Html – vejledninger

WebCafe (dansk)
Html.dk (dansk)
HTML Help by The Web Design Group
HtmlGoodies
The Dynamic Duo – DHTML Tutorial
Netcoders (dansk)

Html – oversigter & referencer

W3C (World Wide Web Consortium)
W3C HTML Validation Service
HTML Tag list (bl.a. med angivelse af, hvilke tags der hører til hvilken html-version og understøttes af hvilken browser)
HTML Tag Reference (Netscape)
HTML Elements (Microsoft)

Resourcer

Alt Er Gratis
WebMekka
Zip Danmark
QuickPoll

Style Sheets

W3C CSS Validation Service
"Safe list" En liste over CSS-attributter/selectors, som der generelt er god understøttelse for
HtmlHelp - css
Browser Compatibility Charts

Internet

Nyheder

Html – vejledninger

Html – oversigter & referencer

Resourcer

Style Sheets

JavaScript

PHP

Perl/CGI/SSI

Asp

Grafik og baggrunde til din egen hjemmeside

Webhotel mm.

Alt muligt