Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]290[/thread]

Mailmodul: Alternative zu Mime::Lite? (Seite 2)

Leser: 2


<< |< 1 2 3 >| >> 25 Einträge, 3 Seiten
Strat
 2004-06-11 23:43
#2841 #2841
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
die komplette syntax zu FindBin lautet, wenn sich dein Script in .../cgi-bin/ und die Module in .../cgi-bin/lib/ liegen, folgendermaszen:
Code: (dl )
1
2
3
use FindBin;
use lib "$FindBin::Bin/lib";
use Modul;
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
jemand
 2004-06-11 23:47
#2842 #2842
User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]
und wenn findBin nicht gefunden wird??
PS: @strat: wäre dankebar für weitere infos zu dem thema Zeilenumbrüche
print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;
Strat
 2004-06-12 00:57
#2843 #2843
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das Modul FindBin muss gefunden werden, weil es ein Perl-Standardmodul ist.

was war da nochmal wegen Zeilenumbruechen? ach ja, ich habe dir den folgenden Einzeiler gepostet:
also wenn deine Datei "dateiname" heisst, dann fuehre in der shell folgendes kommando aus:
Code: (dl )
perl -i.bak -pe 's/\r?\n/\n/g' dateiname

das ersetzt alle windows-zeilenumbrueche durch linux-zeilenumbrueche (d.h. wenn das script unter linux ausgefuehrt wird). Die Originaldatei bekommt die Endung .bak, falls was schief geht...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Crian
 2004-06-12 03:15
#2844 #2844
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Da fällt mir ein ... ich konnte heute gerade wieder jemanden mit dem Link zu Deinem Vortrag über Perl-Einzeiler glücklich machen =)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
jemand
 2004-06-12 16:33
#2845 #2845
User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]
könnte der folgende code gehen??
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
use CGI::Carp qw(fatalsToBrowser);
 use Net::SMTP;


my $mailto = 'ich-22@web.de';
my $subject = 'Dies ist ein Test!!!';
my $mailtext = 'Dies ist der 26.04.1992. Dies ist der Mailtesttext';

    $smtp = Net::SMTP->new('web.de');

    $smtp->mail($ENV{USER});
    $smtp->to($mailto);

    $smtp->data();
    $smtp->datasend("To: $mailto\n");
    $smtp->datasend("Subject: $subject\n");
    $smtp->datasend("$mailtext\n");
    $smtp->dataend();

    $smtp->quit

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 //EN">';
print '<html>';
print '<head>';
print '</head>';
print '<body><h1>hatz geklappt???!!</h1><br>Ich hoff es geht!!!<br>';
print 'Die mail sollte geschrieben worden sein!!';
print '</body></html>';
\n\n

<!--EDIT|jemand|1087043656-->
print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;
jemand
 2004-06-12 16:48
#2846 #2846
User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]
was ist das?:
'Insecure dependency in open while running setgid at dateischreiber.cgi line 35. '
print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;
[E|B]
 2004-06-12 17:13
#2847 #2847
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Quote
könnte der folgende code gehen??


Nein.

1. Die Authorisation erfolgt nicht.
2. Der von dir erzeugte E-Mail Header ist nicht korrekt.
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
Dubu
 2004-06-12 17:29
#2848 #2848
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
[quote=jemand,12.06.2004, 14:33]könnte der folgende code gehen??
[/quote]
Hmm... nein.

Quote
Code: (dl )
1
2
3
4
5
6
7
8
9
use CGI::Carp qw(fatalsToBrowser);
 use Net::SMTP;


my $mailto = 'ich-22@web.de';
my $subject = 'Dies ist ein Test!!!';
my $mailtext = 'Dies ist der 26.04.1992. Dies ist der Mailtesttext';

    $smtp = Net::SMTP->new('web.de');

Du moechtest eine Mail ueber den Server 'web.de' versenden. Der SMTP-Server von web.de heisst aber 'smtp.web.de', AFAIK. Ausserdem muss man sich da - soweit ich weiss - authentifizieren, wenn man eine Mail verschicken moechte, entweder per vorherigem POP-Abruf oder per Authenticated SMTP.

Quote
Code: (dl )
1
2
3
4
5
6
7
8
9
10
    $smtp->mail($ENV{USER});
    $smtp->to($mailto);

    $smtp->data();
    $smtp->datasend("To: $mailto\n");
    $smtp->datasend("Subject: $subject\n");
    $smtp->datasend("$mailtext\n");
    $smtp->dataend();

    $smtp->quit

Hier fehlt ein Semikolon.
jemand
 2004-06-12 23:18
#2849 #2849
User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]
gut oder auch schlecht
kann mir jemand sagen was das heißen soll?kann man den fehler behenben?:
'Insecure dependency in open while running setgid at dateischreiber.cgi line 35. '
print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;
[E|B]
 2004-06-12 23:58
#2850 #2850
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
@Dubu

Auch dein Main Header ist falsch.
Vor der E-Mail Nachricht müssen zwei "\n" stehen.
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
<< |< 1 2 3 >| >> 25 Einträge, 3 Seiten



View all threads created 2004-06-11 00:26.