Project

General

Profile

Download (21.4 KB) Statistics
| Branch: | Tag: | Revision:
1
<?php
2
/* $Id$ */
3
/*
4
    firewall_nat_out.php
5
    Copyright (C) 2004 Scott Ullrich
6
    All rights reserved.
7

    
8
    originally part of m0n0wall (http://m0n0.ch/wall)
9
    Copyright (C) 2003-2004 Manuel Kasper <mk@neon1.net>.
10
    All rights reserved.
11

    
12
    Redistribution and use in source and binary forms, with or without
13
    modification, are permitted provided that the following conditions are met:
14

    
15
    1. Redistributions of source code must retain the above copyright notice,
16
       this list of conditions and the following disclaimer.
17

    
18
    2. Redistributions in binary form must reproduce the above copyright
19
       notice, this list of conditions and the following disclaimer in the
20
       documentation and/or other materials provided with the distribution.
21

    
22
    THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
23
    INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
24
    AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
25
    AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
26
    OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
27
    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
28
    INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
29
    CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
30
    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
31
    POSSIBILITY OF SUCH DAMAGE.
32
*/
33
/*
34
	pfSense_MODULE:	nat
35
*/
36

    
37
##|+PRIV
38
##|*IDENT=page-firewall-nat-outbound
39
##|*NAME=Firewall: NAT: Outbound page
40
##|*DESCR=Allow access to the 'Firewall: NAT: Outbound' page.
41
##|*MATCH=firewall_nat_out.php*
42
##|-PRIV
43

    
44
require("guiconfig.inc");
45
require_once("functions.inc");
46
require_once("filter.inc");
47
require_once("shaper.inc");
48

    
49
if (!is_array($config['nat']['advancedoutbound']))
50
	$config['nat']['advancedoutbound'] = array();
51

    
52
if (!is_array($config['nat']['advancedoutbound']['rule']))
53
	$config['nat']['advancedoutbound']['rule'] = array();
54

    
55
$a_out = &$config['nat']['advancedoutbound']['rule'];
56

    
57
if ($_POST['apply']) {
58
	write_config();
59

    
60
	$retval = 0;
61
	$retval |= filter_configure();
62

    
63
	if(stristr($retval, "error") <> true)
64
	        $savemsg = get_std_save_message($retval);
65
	else
66
		$savemsg = $retval;
67

    
68
	if ($retval == 0) {
69
		clear_subsystem_dirty('natconf');
70
		clear_subsystem_dirty('filter');
71
        }
72
}
73

    
74

    
75

    
76
if (isset($_POST['save']) && $_POST['save'] == "Save") {
77
	/* mutually exclusive settings - if user wants advanced NAT, we don't generate automatic rules */
78
	switch ($_POST['advancedoripsec']) {
79
	case "ipsecpassthru":
80
               	$config['nat']['ipsecpassthru']['enable'] = true;
81
               	unset($config['nat']['advancedoutbound']['enable']);
82
		break;
83
	case "advancedoutboundnat":
84
        	if (!isset($config['nat']['advancedoutbound']['enable'])) {
85
			$config['nat']['advancedoutbound']['enable'] = true;
86
			// if there are already AON rules configured, don't generate default ones
87
			if(!empty($a_out))
88
				continue;
89
			/*
90
			 *    user has enabled advanced outbound NAT and doesn't have rules
91
			 *    lets automatically create entries
92
			 *    for all of the interfaces to make life easier on the pip-o-chap
93
			 */
94
			$ifdescrs = get_configured_interface_with_descr();
95
				
96
			foreach($ifdescrs as $if => $ifdesc) {
97
				if (interface_has_gateway($if))
98
					continue;
99
				$osipaddr = get_interface_ip($if);
100
				$ossubnet = get_interface_subnet($if);
101
				if (!is_ipaddr($osipaddr) || empty($ossubnet))
102
					continue;
103
				$osn = gen_subnet($osipaddr, $ossubnet);
104
				foreach ($ifdescrs as $if2 => $ifdesc2) {
105
					if (!interface_has_gateway($if2))
106
						continue;
107

    
108
					$natent = array();
109
					$natent['source']['network'] = "{$osn}/{$ossubnet}";
110
					$natent['dstport'] = "500";
111
					$natent['descr'] = sprintf(gettext('Auto created rule for ISAKMP - %1$s to %2$s'),$ifdesc,$ifdesc2);
112
					$natent['target'] = "";
113
					$natent['interface'] = $if2;
114
					$natent['destination']['any'] = true;
115
					$natent['staticnatport'] = true;
116
					$a_out[] = $natent;
117
					
118
					$natent = array();
119
                                        $natent['source']['network'] = "{$osn}/{$ossubnet}";
120
                                        $natent['sourceport'] = "";
121
                                        $natent['descr'] = sprintf(gettext('Auto created rule for %1$s to %2$s'),$ifdesc,$ifdesc2);
122
                                        $natent['target'] = "";
123
                                        $natent['interface'] = $if2;
124
                                        $natent['destination']['any'] = true;
125
                                        $natent['natport'] = "";
126
                                        $a_out[] = $natent;
127
					
128
					/* PPTP subnet */
129
					if($config['pptpd']['mode'] == "server") {
130
						if (is_ipaddr($config['pptpd']['localip'])) {
131
							if($config['pptpd']['pptp_subnet'] <> "")
132
								$ossubnet = $config['pptpd']['pptp_subnet'];
133
							else
134
								$ossubnet = "32";
135
							$osn = gen_subnet($config['pptpd']['localip'], $ossubnet);
136
							$natent = array();
137
							$natent['source']['network'] = "{$osn}/{$ossubnet}";
138
							$natent['sourceport'] = "";
139
							$natent['descr'] = gettext("Auto created rule for PPTP server");
140
							$natent['target'] = "";
141
							$natent['interface'] = $if2;
142
							$natent['destination']['any'] = true;
143
							$natent['natport'] = "";
144
							$a_out[] = $natent;
145
						}
146
					}
147
					/* PPPoE subnet */
148
					if (is_pppoe_server_enabled() && have_ruleint_access("pppoe")) {
149
						foreach ($config['pppoes']['pppoe'] as $pppoes) {
150
							if (($pppoes['mode'] == "server") && is_ipaddr($pppoes['localip'])) {
151
								if($pppoes['pppoe_subnet'] <> "")
152
									$ossubnet = $pppoes['pppoe_subnet'];
153
								else
154
									$ossubnet = "32";
155
								$osn = gen_subnet($pppoes['localip'], $ossubnet);
156
								$natent = array();
157
								$natent['source']['network'] = "{$osn}/{$ossubnet}";
158
								$natent['sourceport'] = "";
159
								$natent['descr'] = gettext("Auto created rule for PPPoE server");
160
								$natent['target'] = "";
161
								$natent['interface'] = $if2;
162
								$natent['destination']['any'] = true;
163
								$natent['natport'] = "";
164
								$a_out[] = $natent;
165
							}
166
						}
167
					}
168
					/* L2TP subnet */
169
					if($config['l2tp']['mode'] == "server") {
170
						if (is_ipaddr($config['l2tp']['localip'])) {
171
							if($config['l2tp']['l2tp_subnet'] <> "")
172
								$ossubnet = $config['l2tp']['l2tp_subnet'];
173
							else
174
								$ossubnet = "32";
175
							$osn = gen_subnet($config['l2tp']['localip'], $ossubnet);
176
							$natent = array();
177
							$natent['source']['network'] = "{$osn}/{$ossubnet}";
178
							$natent['sourceport'] = "";
179
							$natent['descr'] = gettext("Auto created rule for L2TP server");
180
							$natent['target'] = "";
181
							$natent['interface'] = $if2;
182
							$natent['destination']['any'] = true;
183
							$natent['natport'] = "";
184
							$a_out[] = $natent;
185
						}
186
					}
187
					/* add openvpn interfaces */
188
					if($config['openvpn']['openvpn-server']) {
189
						foreach ($config['openvpn']['openvpn-server'] as $ovpnsrv) {
190
							$natent = array();
191
							$natent['source']['network'] = $ovpnsrv['tunnel_network'];
192
							$natent['sourceport'] = "";
193
							$natent['descr'] = gettext("Auto created rule for OpenVPN server");
194
							$natent['target'] = "";
195
							$natent['interface'] = $if2;
196
							$natent['destination']['any'] = true;
197
							$natent['natport'] = "";
198
							$a_out[] = $natent;
199
						}
200
					}
201
				}	
202
			}
203

    
204
			$savemsg = gettext("Default rules for each interface have been created.");
205
		}
206
		break;
207
	}
208
        write_config();
209
	mark_subsystem_dirty('natconf');
210
        header("Location: firewall_nat_out.php");
211
        exit;
212
}
213

    
214
if (isset($_POST['del_x'])) {
215
        /* delete selected rules */
216
        if (is_array($_POST['rule']) && count($_POST['rule'])) {
217
                foreach ($_POST['rule'] as $rulei) {
218
                        unset($a_out[$rulei]);
219
                }
220
                write_config();
221
		mark_subsystem_dirty('natconf');
222
                header("Location: firewall_nat_out.php");
223
                exit;
224
        }
225

    
226
} else {
227
        /* yuck - IE won't send value attributes for image buttons, while Mozilla does - so we use .x/.y to find move button clicks instead... */
228
        unset($movebtn);
229
        foreach ($_POST as $pn => $pd) {
230
                if (preg_match("/move_(\d+)_x/", $pn, $matches)) {
231
                        $movebtn = $matches[1];
232
                        break;
233
                }
234
        }
235
        /* move selected rules before this rule */
236
        if (isset($movebtn) && is_array($_POST['rule']) && count($_POST['rule'])) {
237
                $a_out_new = array();
238

    
239
                /* copy all rules < $movebtn and not selected */
240
                for ($i = 0; $i < $movebtn; $i++) {
241
                        if (!in_array($i, $_POST['rule']))
242
                                $a_out_new[] = $a_out[$i];
243
                }
244

    
245
                /* copy all selected rules */
246
                for ($i = 0; $i < count($a_out); $i++) {
247
                        if ($i == $movebtn)
248
                                continue;
249
                        if (in_array($i, $_POST['rule']))
250
                                $a_out_new[] = $a_out[$i];
251
                }
252

    
253
                /* copy $movebtn rule */
254
                if ($movebtn < count($a_out))
255
                        $a_out_new[] = $a_out[$movebtn];
256

    
257
                /* copy all rules > $movebtn and not selected */
258
                for ($i = $movebtn+1; $i < count($a_out); $i++) {
259
                        if (!in_array($i, $_POST['rule']))
260
                                $a_out_new[] = $a_out[$i];
261
                }
262
                if (count($a_out_new) > 0)
263
			$a_out = $a_out_new;
264
		else
265
			unset($config['nat']['advancedoutbound']);
266

    
267
                write_config();
268
		mark_subsystem_dirty('natconf');
269
                header("Location: firewall_nat_out.php");
270
                exit;
271
        }
272
}
273

    
274

    
275
$pgtitle = array(gettext("Firewall"),gettext("NAT"),gettext("Outbound"));
276
include("head.inc");
277

    
278
?>
279
<body link="#0000CC" vlink="#0000CC" alink="#0000CC">
280
<?php include("fbegin.inc"); ?>
281
<form action="firewall_nat_out.php" method="post" name="iform">
282
<script type="text/javascript" language="javascript" src="/javascript/row_toggle.js">
283
</script>
284
<?php if ($savemsg) print_info_box($savemsg); ?>
285
<?php if (is_subsystem_dirty('natconf')): ?><p>
286
<?php print_info_box_np(gettext("The NAT configuration has been changed.")."<br>".gettext("You must apply the changes in order for them to take effect."));?><br>
287
<?php endif; ?>
288
<table width="100%" border="0" cellpadding="0" cellspacing="0">  <tr><td>
289
<?php
290
	$tab_array = array();
291
	$tab_array[] = array(gettext("Port Forward"), false, "firewall_nat.php");
292
	$tab_array[] = array(gettext("1:1"), false, "firewall_nat_1to1.php");
293
	$tab_array[] = array(gettext("Outbound"), true, "firewall_nat_out.php");
294
	$tab_array[] = array(gettext("NPt"), false, "firewall_nat_npt.php");
295
	display_top_tabs($tab_array);
296
?>
297
  </td></tr>
298
  <tr>
299
    <td>
300
	<div id="mainarea">
301
              <table class="tabcont" width="100%" border="0" cellpadding="0" cellspacing="0">
302
				<tr><td align="right"><b><?=gettext("Mode:"); ?></b></td>
303
                  <td>
304
                      &nbsp;&nbsp;<input name="advancedoripsec" type="radio" id="ipsecpassthru" value="ipsecpassthru" <?php if (isset($config['nat']['ipsecpassthru']['enable'])) echo "checked";?>>
305
                      <strong><?=gettext("Automatic outbound NAT rule generation"); ?><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<?=gettext("(IPsec passthrough included)");?></strong>
306
                  </td>
307

    
308
                  <td>
309
                      &nbsp;&nbsp;<input name="advancedoripsec" type="radio" id="advancedoutbound" value="advancedoutboundnat" <?php if (isset($config['nat']['advancedoutbound']['enable'])) echo "checked";?>>
310
                      <strong><?=gettext("Manual Outbound NAT rule generation") . "<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" . gettext("(AON - Advanced Outbound NAT)");?></strong></td>
311
                  <td valign="middle" align="left">
312
					<input name="save" type="submit" class="formbtn" value="<?=gettext("Save");?>">
313
					&nbsp;<br/>&nbsp;
314
                  </td>
315
                </tr>
316
				<tr>
317
					<td colspan="5">
318
						&nbsp;
319
					</td>
320
				</tr>
321
				<tr>
322
					<td  class="vtable" colspan="5">
323
						&nbsp;
324
					</td>
325
				</tr>
326
              </table>
327
              <table class="tabcont" width="100%" border="0" cellpadding="0" cellspacing="0">
328
				<tr><td colspan="5"><b>&nbsp;<?=gettext("Mappings:"); ?></b></td></tr>
329
				<tr><td>&nbsp;</td></tr>
330
                <tr id="frheader">
331
                  <td width="3%" class="list">&nbsp;</td>
332
                  <td width="3%" class="list">&nbsp;</td>
333
                  <td width="10%" class="listhdrr"><?=gettext("Interface");?></td>
334
                  <td width="15%" class="listhdrr"><?=gettext("Source");?></td>
335
                  <td width="10%" class="listhdrr"><?=gettext("Source Port");?></td>
336
                  <td width="15%" class="listhdrr"><?=gettext("Destination");?></td>
337
                  <td width="10%" class="listhdrr"><?=gettext("Destination Port");?></td>
338
                  <td width="15%" class="listhdrr"><?=gettext("NAT Address");?></td>
339
                  <td width="10%" class="listhdrr"><?=gettext("NAT Port");?></td>
340
		  <td width="10%" class="listhdrr"><?=gettext("Static Port");?></td>
341
                  <td width="25%" class="listhdr"><?=gettext("Description");?></td>
342
                  <td width="5%" class="list">
343
                    <table border="0" cellspacing="0" cellpadding="1">
344
                      <tr>
345
			<td width="17"></td>
346
                        <td><a href="firewall_nat_out_edit.php"><img src="/themes/<?= $g['theme']; ?>/images/icons/icon_plus.gif" width="17" height="17" border="0" title="<?=gettext("add new mapping");?>"></a></td>
347
                      </tr>
348
                    </table>
349
		  </td>
350
                </tr>
351
              <?php $nnats = $i = 0; foreach ($a_out as $natent): ?>
352
                <tr valign="top" id="fr<?=$nnats;?>">
353
                  <td class="listt"><input type="checkbox" id="frc<?=$nnats;?>" name="rule[]" value="<?=$i;?>" onClick="fr_bgcolor('<?=$nnats;?>')" style="margin: 0; padding: 0; width: 15px; height: 15px;"></td>
354
                  <td class="listt" align="center"></td>
355
                  <td class="listlr" onClick="fr_toggle(<?=$nnats;?>)" id="frd<?=$nnats;?>" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
356
                    <?php
357
					if (!$natent['interface'])
358
					  	echo htmlspecialchars(convert_friendly_interface_to_friendly_descr("wan"));
359
					else
360
						echo htmlspecialchars(convert_friendly_interface_to_friendly_descr($natent['interface']));
361
					?>
362
                                        &nbsp;
363
                  </td>
364
                  <td class="listr" onClick="fr_toggle(<?=$nnats;?>)" id="frd<?=$nnats;?>" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
365
                    <?=$natent['source']['network'];?>
366
                  </td>
367
                  <td class="listr" onClick="fr_toggle(<?=$nnats;?>)" id="frd<?=$nnats;?>" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
368
                    <?php
369
			echo ($natent['protocol']) ? $natent['protocol'] . '/' : "" ;
370
                      if (!$natent['sourceport'])
371
                          echo "*";
372
                      else
373
                          echo $natent['sourceport'];
374
                    ?>
375
                  </td>
376
                  <td class="listr" onClick="fr_toggle(<?=$nnats;?>)" id="frd<?=$nnats;?>" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
377
                    <?php
378
                      if (isset($natent['destination']['any']))
379
                          echo "*";
380
                      else {
381
                          if (isset($natent['destination']['not']))
382
                              echo "!&nbsp;";
383
                          echo $natent['destination']['address'];
384
                      }
385
                    ?>
386
                  </td>
387
                  <td class="listr" onClick="fr_toggle(<?=$nnats;?>)" id="frd<?=$nnats;?>" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
388
                    <?php
389
			echo ($natent['protocol']) ? $natent['protocol'] . '/' : "" ;
390
                      if (!$natent['dstport'])
391
                          echo "*";
392
                      else
393
                          echo $natent['dstport'];
394
                    ?>
395
                  </td>
396
                  <td class="listr" onClick="fr_toggle(<?=$nnats;?>)" id="frd<?=$nnats;?>" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
397
                    <?php
398
                      if (!$natent['target'])
399
                          echo "*";
400
                      elseif ($natent['target'] == "other-subnet")
401
                          echo $natent['targetip'] . '/' . $natent['targetip_subnet'];
402
                      else
403
                          echo $natent['target'];
404
                    ?>
405
                  </td>
406
                  <td class="listr" onClick="fr_toggle(<?=$nnats;?>)" id="frd<?=$nnats;?>" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
407
                    <?php
408
                      if (!$natent['natport'])
409
                          echo "*";
410
                      else
411
                          echo $natent['natport'];
412
                    ?>
413
                  </td>
414
                  <td class="listr" onClick="fr_toggle(<?=$nnats;?>)" id="frd<?=$nnats;?>" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
415
                    <?php
416
			if(isset($natent['staticnatport']))
417
			    echo "<CENTER>" . gettext("YES") . "</CENTER>";
418
			else
419
			    echo "<CENTER>" . gettext("NO") . "</CENTER>";
420
                    ?>		    
421
                  </td>
422
                  <td class="listbg"  onClick="fr_toggle(<?=$nnats;?>)" ondblclick="document.location='firewall_nat_out_edit.php?id=<?=$nnats;?>';">
423
                    <?=htmlspecialchars($natent['descr']);?>&nbsp;
424
                  </td>
425
                  <td class="list" valign="middle" nowrap>
426
                    <table border="0" cellspacing="0" cellpadding="1">
427
                      <tr>
428
                        <td><a href="firewall_nat_out_edit.php?id=<?=$i;?>"><img src="/themes/<?= $g['theme']; ?>/images/icons/icon_e.gif" width="17" height="17" border="0" title="<?=gettext("edit mapping");?>"></a></td>
429
                      </tr>
430
                      <tr>
431
                        <td><input onmouseover="fr_insline(<?=$nnats;?>, true)" onmouseout="fr_insline(<?=$nnats;?>, false)" name="move_<?=$i;?>" src="/themes/<?= $g['theme']; ?>/images/icons/icon_left.gif" title="<?=gettext("move selected rules before this rule");?>" height="17" type="image" width="17" border="0"></td>
432
                        <td><a href="firewall_nat_out_edit.php?dup=<?=$i;?>"><img src="/themes/<?= $g['theme']; ?>/images/icons/icon_plus.gif" title="<?=gettext("add a new nat based on this one");?>" width="17" height="17" border="0"></a></td>
433
                      </tr>
434
                    </table>
435
              <?php $i++; $nnats++; endforeach; ?>
436
                <tr>
437
                  <td class="list" colspan="11"></td>
438
                  <td class="list" valign="middle" nowrap>
439
                    <table border="0" cellspacing="0" cellpadding="1">
440
                      <tr>
441
                        <td><?php if ($nnats == 0): ?><img src="/themes/<?= $g['theme']; ?>/images/icons/icon_left_d.gif" width="17" height="17" title="<?=gettext("move selected mappings to end");?>" border="0"><?php else: ?><input name="move_<?=$i;?>" type="image" src="/themes/<?= $g['theme']; ?>/images/icons/icon_left.gif" width="17" height="17" title="<?=gettext("move selected mappings to end");?>" border="0"><?php endif; ?></td>
442
                        <td><a href="firewall_nat_out_edit.php"><img src="/themes/<?= $g['theme']; ?>/images/icons/icon_plus.gif" width="17" height="17" border="0" title="<?=gettext("add new mapping");?>"></a></td>
443
                      </tr>
444
                      <tr>
445
                        <td><?php if ($nnats == 0): ?><img src="/themes/<?= $g['theme']; ?>/images/icons/icon_x_d.gif" width="17" height="17" title="<?=gettext("delete selected rules");?>" border="0"><?php else: ?><input name="del" type="image" src="/themes/<?= $g['theme']; ?>/images/icons/icon_x.gif" width="17" height="17" title="<?=gettext("delete selected mappings");?>" onclick="return confirm('<?=gettext("Do you really want to delete the selected mappings?");?>')"><?php endif; ?></td>
446
                      </tr>
447
                    </table></td>
448
                </tr>
449
                <tr>
450
                  <td colspan="12">
451
			<p><span class="vexpl"><span class="red"><strong><?=gettext("Note:"); ?><br>
452
			</strong></span>
453
			<?=gettext("With automatic outbound NAT enabled, a mapping is automatically created " .
454
			"for each interface's subnet (except WAN-type connections) and the rules " .
455
			"on this page are ignored.<br/><br/> " .
456
			"If manual outbound NAT is enabled, outbound NAT rules will not be " .
457
			"automatically generated and only the mappings you specify on this page " .
458
			"will be used. <br/><br/> " .
459
			"If a target address other than a WAN-type interface's IP address is used, " .
460
			"then depending on the way the WAN connection is setup, a "); ?>
461
			<a href="firewall_virtual_ip.php"><?=gettext("Virtual IP"); ?></a>
462
			<?= gettext(" may also be required.") ?></span><br>
463
                    </td>
464
                </tr>
465

    
466
              </table>
467
	    </div>
468
</td>
469
  </tr>
470
</table>
471
            </form>
472
<?php include("fend.inc"); ?>
473
</body>
474
</html>
(61-61/231)