Weitergabe von Variablen an CGI-Skript (Perl/CGI)

[thread]15563[/thread]

Weitergabe von Variablen an CGI-Skript

Leser: 21

Articles: hide open all | hide show old branches

+7 replies
gmafx

2010-10-22 21:50
User since
2009-11-19
47 Artikel
BenutzerIn
Hallo,

ich bin gerade ziemlich am verzweifeln, ein wenig damit herumzuspielen, einige dynamische HTML-Dokumente mittels Perl-CGI zu erstellen.

Die Aufgabe ist die Folgende:

Beim Aufruf einer HTML-Addresse (direkt das unten stehende CGI-Skript) wird mittels .htaccess ein Benutzername/Passwort abgefragt. Der Benutzername wird dann verwendet, um zu einem bestimmten Ordner (mit selben Namen wie der Benutzer) zu gelangen.

Dessen Inhalt (mehrere Ordner) wird bestimmt, und es wird ein Pop-Up-Menu erstellt, welches die Auswahl der Ordner ermöglicht.

Die Information über den Ordnernamen wird dann an das Skript "link.cgi" weitergegeben.

Das funktioniert alles wunderbar, allerdings möchte ich dem Benutzer die Auswahl des Ordners ersparen, falls ohnehin nur ein Ordner vorhanden sein sollte.

Wie kann ich in diesem Fall den Ordnernamen an das Skript "link.cgi" weitergeben?

(Falls kein Ordner vorhanden ist, breche ich einfach ab).

Wer kann helfen?
gma

Hier das Skript:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

#!/usr/bin/perl use CGI qw(:standard); $name=$ENV{'REMOTE_USER'}; $dir="/Library/WebServer/Documents/$name"; chdir($dir) or die "$!huhu"; opendir (DIR, ".") or die "$!"; @folders = grep {/ome/} readdir DIR; $c=0; foreach $folder (@folders) { $c++; } if ($c==0) { print header; print start_html('no data'), h1('keine Daten vorhanden!'), hr; } else { print header; print start_html('Test'), h1('test'), start_form( -name => 'main_form', -method => 'POST', -enctype => &CGI::URL_ENCODED, -action => '/cgi-bin/link.cgi', ), p, "Ordner auswaehlen :", p, popup_menu('ordnermenu', [@folders]), p, submit , end_form, hr; if (param()) { print em(join(", ",param('ordnermenu'))), , hr; } print end_html; }
- +3 replies
- clms
  
  2010-10-23 00:37
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  2010-10-22T19:50:20 gmafx
  Wie kann ich in diesem Fall den Ordnernamen an das Skript "link.cgi" weitergeben?
  
  Funktioniert "link.cgi" auch mit GET?
  Dann kann Dein Skript einfach ein Redirekt nach
  "/cgi-bin/link.cgi?ordnermenu=$folders[0]" zurückgeben.
  
  Oder Du machst ein Redirekt nach "/cgi-bin/link.cgi" (ohne Parameter)
  und bohrst dieses Skript auf, so dass es sich - falls der
  Parameter "ordnermenu" undef ist - einen Defaultordner sucht.
  Wenn nur einer zur Auswahl steht, wird es schon den richtigen erwischen.
  - +2 replies
  - gmafx
    
    2010-10-23 14:17
    User since
    2009-11-19
    47 Artikel
    BenutzerIn
    
    Super,
    
    ahh, redirect, hört sich sinnvoll an, habe ich nur noch nie gemacht!
    
    Wie immer, wenn ich etwas neues mache, funktioniert das, was ich probiere, technisch nicht. Ich versuche es etwa so:
    
    Code: (dl )
    
    1 2 3
    
    $link = "http://localhost/cgi-bin/linc.cgi" print $q->redirect( -URL => $link);
    
    Ich bekomme in der Zeile, in der der redirect steht einen:
    
    Code: (dl )
    
    Can't call method "redirect" on an undefined value at
    
    $link enthält einen validen Link, den ich auch ausdrucken lassen kann. Diesen habe ich mir vorher zusammengebaut.
    
    Irgendwas verstehe ich hier nicht mir der redirect-Funktion, selbst diese andernortens vorgeschlagene Testskript geht nicht:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    #!/usr/bin/perl use strict; use warnings; use CGI;[code] my $query = new CGI; print $query->redirect("http://localhost/cgi-bin/test2.cgi");
    
    Oder fehlt da noch etwas? Letzteres Skript fabriziet:
    
    (8)Exec format error: exec of '/Library/WebServer/CGI-Executables/my.pl' failed
    Premature end of script headers: my.pl
    
    Was geht hier falsch?
    gma
    
    P.S.:
    
    ohne CGI geht es:
    
    Code: (dl )
    
    1 2 3 4 5
    
    print "Status: 302 Found\n"; print "Location: $ucsc\n"; print "URI: <$ucsc>\n"; print "Content-type: text/html\r\n\r\n"; print "URL: $ucsc";
    
    Last edited: 2010-10-23 14:30:40 +0200 (CEST)
    - FIFO
      
      2010-10-23 14:59
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      2010-10-23T12:17:32 gmafx
      
      Code: (dl )
      
      1 2 3
      
      $link = "http://localhost/cgi-bin/linc.cgi" print $q->redirect( -URL => $link);
      
      Ich bekomme in der Zeile, in der der redirect steht einen:
      
      Code: (dl )
      
      Can't call method "redirect" on an undefined value at
      
      $link enthält einen validen Link, den ich auch ausdrucken lassen kann. Diesen habe ich mir vorher zusammengebaut.
      
      1. Interessanter ist, was $q enthält.
      2. In der ersten Zeile fehlt das Semikolon am Schluss.
      Dein Code ist leider nicht besonders vollständig, auch die Fehlermeldung lässt einen etwas ratlos zurück, den Anfang kennen wir alle ;-)
      
      Code: (dl )
      
      1 2 3 4 5 6
      
      #!/usr/bin/perl use strict; use warnings; use CGI;[code] ...
      
      Steht das code in den eckigen Klammern in Deinem Source? Vielleicht ein CnPS?
      
      Gruß FIFO
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +2 replies
- FIFO
  
  2010-10-23 09:59
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  2010-10-22T19:50:20 gmafx
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  @folders = grep {/ome/} readdir DIR; $c=0; foreach $folder (@folders) { $c++; } if ($c==0) { ...
  
  Ein Test auf ein leeres Array geht lesbarer:
  
  Code (perl): (dl )
  
  1 2 3
  
  @folders = grep {/ome/} readdir DIR; if (! @folders) { # oder: if (scalar @folders == 0) ...
  
  btw: use strict; use warnings; erspart extrem viel Ärger ;-)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - gmafx
    
    2010-10-23 14:20
    
    User since
    2009-11-19
    47 Artikel
    BenutzerIn
    
    Ertappt! Ok, ich gebe es ja zu, programmieren kann ich nicht wirklich!
    
    Aber vielleicht lerne ich es ja noch irgendwann! Das hier hilftmir auf jeden Fall schon mal wesentlich weiter, meine Skript etwas schlanker aussehen zu lassen. Vielen Dank, dass sieht wesentlich schicker aus als mein Ansatz!
    
    Strict und warnings schaue ich mir gleich mal an!
    gma
- topeg
  
  2010-10-23 20:12
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Das Script mal etwas moderner geschrieben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  
  #!/usr/bin/perl use CGI; use CGI::Carp qw(fatalsToBrowser); use strict; use warnings; my $link_cgi='/cgi-bin/link.cgi'; my $name=$ENV{'REMOTE_USER'}; my $dir="/Library/WebServer/Documents/$name"; # neue CGI Instanz erzeugen my $cgi=CGI->new(); # Verzeichnis auslesen opendir (my $dh, $dir) or die "ERROR OPENDIR: $!"; # hole alle Verzeichnisse (-d) die "ome" (/ome/) im namen haben und sortiere (sort) sie. my @folders = sort grep {/ome/ && -d "$dir/$_"} readdir($dh); closedir($dh); # kein Ordner gefunden if(!@folders) { print $cgi->header(), $cgi->start_html('no data'), $cgi->h1('keine Daten vorhanden!'), $cgi->hr; $cgi->end_html; } # nur ein ordner gefunnden elsif(@folders==1) { # url zusammensetzen: my $uri="$link_cgi?ordnermenu=$folders[0]"; print $cgi->redirect( -uri=>$uri, -nph=>1, -status=>302 ); } else { print $cgi->header(), $cgi->start_html('Test'), $cgi->h1('test'), $cgi->start_form( -name => 'main_form', -method => 'POST', -enctype => &CGI::URL_ENCODED, -action => $link_cgi, ), $cgi->p( "Ordner auswaehlen :" ), $cgi->p( $cgi->popup_menu('ordnermenu', [@folders]) ), $cgi->p( $cgi->submit() ), $cgi->end_form, $cgi->hr; if (my @ordner=$cgi->param('ordnermenu')) { print $cgi->em(join(", ",@ordner)), $cgi->hr; } print $cgi->end_html; }
  
  Noch eine bemerkung dazu die Namen der Ordner zu benutzen. Das ist recht gefährlich da wenn man nicht aufpasst. Der Nutzer hat unter Umständen Zugriff auf alle für ihn lesbaren Ordner. Mal als Beispiel:
  der Nutzer tippt etwas der Art:
  /cgi-bin/link.cgi?ordnermenu=../../../../etc/ das würde ihn auf einem LinuxSystem in den Ordner mit allen Konfigurationen des Systems leiten. Er könnte dort die Namen aller anderen Nutzer heraus finden, sich die Konfiguration von Apache ansehen usw. Das kann eine schwere Sicherheitslücke sein wenn man nicht sehr vorsichtig ist.
  EDIT:
  Ähnliches gilt Übrigens auch für $ENV{'REMOTE_USER'} da der Name als Ordnername ohne Überprüfungen eingesetzt wird. wird lustig wenn jemand einen Namen wie "../../../../etc/" hat :-)
  Last edited: 2010-10-24 11:15:53 +0200 (CEST)

View all threads created 2010-10-22 21:50.