Upload billed med mail

Du kan eventuelt starte med at kigge på den BLOBTEST jeg har liggende på http://www.xcom.dk/oss/ - den indeholder en række masen rundt med browser upload (via CGI-modulet) af en fil (målet var dog der at hælde filen ind i en database - via DBI).

Du burde dog rimeligt enkelt kunne lave et af dem om, så man sendte filen af sted ved at benytte MIME::Lite modulet fra CPAN.

jeg kigger på den...

/cdc

mahler>> den opgave var for stor til mig, det kunne jeg ikke bruge til noget

/cdc

Kan ikke bruge noget af det desværre

ok... så prøv følgende.
Husk at skifte my@mail.adr ud med din egen mailadresse. Scriptet kaldes bare som det er og laver selv en uploadf form. Det kan sikkert laves pænere, men det virker:

#!/usr/local/bin/perl
#script: upload.pl
use strict;
use CGI qw/:standard FatalsToBrowser/;
use MIME::Lite;

     
print header, start_html(\'file upload\'), h1(\'file upload\');
  print_form()    unless param;
  print_results() if param;
  print end_html;
     
  sub print_form {
        print start_multipart_form(),
        filefield(-name=>\'upload\',-size=>60),br,
        submit(-label=>\'Upload File\'),
        end_form;
  }
     
  sub print_results {
        my $length;
        my $file = param(\'upload\');
        if (!$file) {
            print \"No file uploaded.\";
            return;
        }
        print h2(\'File name\'),$file;
        print h2(\'File MIME type\'), uploadInfo($file)->{\'Content-Type\'};
        if ($file =~ /.*\\\\(.*)\\.(.*)$/) { $file = \"$1\\.$2\" }

        my $buffer;
        my $bytesread;
        my $content;
        while ($bytesread=read($file,$buffer,1024)) { $content .= $buffer; }

my $msg = MIME::Lite->new(
        From => \'Upload2Mail <my@mail.adr>\',
        To  => \'Modtager <my@mail.adr>\',
        Subject => \'Upload2Mail:\' . $file,
        Type => \'multipart/mixed\');

$msg->attach(Type => \'TEXT\',
            Data => \"Filename: $file\\nMIME-type: \" . uploadInfo($file)->{\'Content-Type\'});

$msg->attach(Type => uploadInfo($file)->{\'Content-Type\'},
            Data => $content,
            Filename => $file,
            Disposition => \'attachment\');
$msg->send;



    }

exit();