Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]260[/thread]

Problem mit Abfrage

Leser: 2


<< >> 3 Einträge, 1 Seite
Gast Gast
 2004-05-18 18:26
#2479 #2479
Hallo, habe folgendes Script mit dem ich eMails senden und Abrufen kann. Jetzt muss mit Hilfe einer IF-Abfrage geprüft werden, ob eine eMail im Postfach ist oder nicht. Wenn keine Drin ist soll eine Meldung ausgegeben werden. Ich versteh nicht was nicht geht. Ich werde noch verrückt

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
	receive();
	#sendmail();



sub sendmail {

	use Net::SMTP;
	use strict;


	my($mailhost,$absender,$empfaenger);

	$mailhost='HOST:25';
	$absender='postfach';
	$empfaenger='empfaenger@domain.de';

	# Objekt erzeugen

	my $smtp=Net::SMTP->new($mailhost);

	# Absender und Empfaegner

	$smtp->mail($absender);
	$smtp->to($empfaenger);

	# Beginne mit dem Senden des Kommandos DATA an den Server

	$smtp->data();

	# Sende nun die Daten an den Server

	$smtp->datasend('Test');
	#To: $empfaenger
	#Subject: Testmail

	#Test v.1

	#__END	

	# Stoppe das senden der Daten an den Server

	$smtp->dataend();

	# Baue nun die Verbindung ab.

	$smtp->quit();


}



sub receive {


	use Net::POP3;

	$username = 'test';
	$password = '123456';

    	# Constructors
    	$pop = Net::POP3->new('HOST');
    	$pop = Net::POP3->new('HOST', Timeout => 60);


    	if ($pop->login($username, $password) > 0) {
      		my $msgnums = $pop->list; # hashref of msgnum => size

				if($msgnums == ????????) {

							print "Juhu.";

						}

						else {

							print "Scheisse.";

						}


		


					foreach my $msgnum (keys %$msgnums) {

        		
						my $msg = $pop->get($msgnum);
						print @$msg;

						

        					$pop->delete($msgnum);

					}
      		

			
	}


    	$pop->quit;
[E|B]
 2004-05-18 21:28
#2480 #2480
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Net::SMTP authorisiert über SASL.
Wenn das dein Server nicht unterstützt, versuch mal eine Authorisation mit CRAM-MD5 --- Net::SMTP_auth wird dir da weiterhelfen.
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]
renee
 2004-05-19 01:32
#2481 #2481
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
my $pop = Net::POP3->new($params{server}) or die $!;
my $msg_nums = $pop->login($params{user}, $params{pwd});

if ($msg_nums > 0) {
   ### E-Mail enthalten ###
    my $msgnums = $pop->list; # hashref of msgnum => size
    foreach my $msgnum (sort{$a <=> $b} keys %$msgnums){
      my $lines = join("",@{$pop->get($msgnum)});
      my ($head,$body) = split(/\n\s+?\n/,$lines,2);
      my @headlines = split(/\n/,$head);
      my ($subject,$from);
      foreach(@headlines){
        $subject = $1 if($_ =~ m/Subject:\s+?(.+)/i);
        $from = $1 if($_ =~ m/From:\s+?(.+)/i);
      }
  }
}
else{
  print "Keine E-Mails";
}
\n\n

<!--EDIT|renee|1084916051-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< >> 3 Einträge, 1 Seite



View all threads created 2004-05-18 18:26.