Datei mit unbekannter Extension suchen...: ...und mit MIME:Lite verschicken - #2774 (Perl/CGI)

cbxk1xg

2004-06-07 15:51

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

[quote=coax,07.06.2004, 13:29]was ist nun mit den Code von mir, tut er nicht das was er soll ? Immerhin erraet er doch richtig anhand der SessionID welche Datei es sein kann.[/quote]
Irgendwie verstehe ich nicht, wie das genau funktioniert. Wo ist den der Bezug zur SessionID? Müsste man nicht vergleichen, ob die SessionID mit einem Dateinamen matcht?

Ich habe mal versucht deinen Vorschlag einzubauen und die Eegbnisse testweise auszugeben. Bei mir gibt das jedenfalls einen Error 500.

Code (perl): (dl )

opendir DIR, "$TEMP_DIR/" or &file_error("Unable to open directory. $!");
readdir DIR for 0 .. 1;
@files = grep -f "$TEMP_DIR/$_", readdir DIR;
closedir DIR;

my %hash;

foreach my $filename (@files)
{
my($base) = $filename =~ /(.+?)\..+?$/;
$hash{$base} = $filename;
}

my $AttachentFile = $hash{$SessionID};
my $ext = (split /\./, $AttachentFile)[1];
my $MailAttachment = "$TEMP_DIR/$SessionID$ext";

if (!-e $MailAttachment) {&program_error("Keine Datei vorhanden. $!");}

print "Content-type: text/html\n\n";
print "AttachentFile: $AttachentFile<br>\n";
print "MailAttachment: $MailAttachment<br>\n";
print "ext: $ext<br>\n";
exit;