Opened by gmafx at 2010-10-22 21:50
User since
2009-11-19
47 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
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:
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()) {
em(join(", ",param('ordnermenu'))),
, hr;
}
print end_html;
}