webForumDet fria alternativet

Menysystem..

Perl & Ruby

7 svar · 550 visningar · startad av cgi

Medlem sedan jan. 2000371 inlägg
Frågan#1

..i CGI hur gör man det igentligen? ex,
index.cgi?sida=forum
index.cgi?sida=artiklar
index.cgi?sida=gastbok
eller något liknanden.

Hur gör man för att sortera ut bokstäver i en sökning ex,
A|B|C|.....
så om man trycker på bokstaven A så sorterar den ut rubriker på bokstaven A.
Har försökt lite olika metoder på dessa men får inget att funka.
Någon som vet.?

Medlem sedan jan. 2000371 inlägg
#2

Ingen som vet.??

Medlem sedan apr. 2000642 inlägg
#3

hmm.. om du förklarar lite närmare vad det är du vill göra?

Peter Bredlöv
http://www.scorpiondata.com

Medlem sedan jan. 2000371 inlägg
#4

Alltså.. istället för att ha ex flera filer, gastbok.cgi skriv_inlagg.cgi m.m
ska det vara en enda fil, så om ska ex, läsa gästboken ska det vara index.cgi?sida=las
och om ska skriva ett inlägg index.cgi?sida=skriv o,s,v.
Sedan bokstavssökningen, jag vet ej hur jag kan förklara mer i detalj,
men om man trycker på bokstaven A så ska sökmotorn leta på alla rubriker på bokstaven A.

Medlem sedan apr. 2000642 inlägg
#5

hmmm.. nej, jag förstår nog fortfarande inte vad det är du vill ha.. tyvärr

Peter Bredlöv
http://www.scorpiondata.com

Medlem sedan jan. 2000371 inlägg
#6

Vet ej hur jag ska förklara mer i detalj,?
Alltså om jag har ex, ett script på 5 filer, så ska jag sätta ihop alla filer till en (index.cgi), så man stegar sig igenom databasen med variabler,
index.cgi?action=skriv
index.cgi?action=las
index.cgi?action=admin
osv..

Det borde ju se ut ungefär på följande sett:

&admin if ($action eq 'skriv');
&visa if ($action eq 'las');
&skriv if ($action eq 'admin');
&radera if ($action eq 'radera');

men jag får inte ihop det riktigt...

Medlem sedan nov. 19991 033 inlägg
#7
$in = $ENV{'QUERY_STRING'};
@in = split(/[&;]/,$in); 
    push(@in, @ARGV) if $cmdflag;

    foreach $i (0 .. $#in) {
      $in[$i] =~ s/\+/ /g;  
      ($key, $val) = split(/=/,$in[$i],2);

      $key =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
      $val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;

      $in{$key} .= "\0" if (defined($in{$key}));
      $in{$key} .= $val;
    }

Sedan kan du använda

if ($in{'action'} eq "skriv") {
 &admin;
 }

o.s.v

Medlem sedan jan. 2000371 inlägg
#8

Det där funkar ju kanon, tack för hjälpen.!!

262 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)