File: mail.htm

package info (click to toggle)
libembperl-perl 2.0rc3-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 5,688 kB
  • ctags: 5,161
  • sloc: ansic: 20,422; perl: 10,064; makefile: 5,134; cpp: 467; xml: 49; sh: 14
file content (31 lines) | stat: -rw-r--r-- 530 bytes parent folder | download 
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
 
<html>

<head>
<title>Embperl Tests - use Mail taglib</title>
</head>

<body>


  [$ syntax + Mail $]

  <mail:send to="richter@ecos.de" subject="Testmail" mailhost="mail.i.ecos.de">
    Hi,
    this is a test for a new mail tag
    it is send at [+ scalar(localtime) +]
    from Embperl's Mail taglib.
  </mail:send>

  [+ "tagend" +]<br>

  $? = [+ $? +]<br>

  [$ if $? $]
		<h2>Sorry, there was an error, your mail couldn't be send</h2>
  [$else$]
		<h2>Your mail was successfully delivered</h2>
  [$endif$]

</body>
</html>