- print <<END;
- <tr bgcolor='$color{'color20'}'>
- <td align='center' colspan='2'>
- $p2pline[0]:
- </td>
- <td align='center'>
- <form method='post' action='$ENV{'SCRIPT_NAME'}'>
- <input type='hidden' name='P2PROT' value='$p2pline[1]'>
- <input type='image' img src='$gif' alt='$Lang::tr{'click to disable'}' title='$Lang::tr{'fwdfw toggle'}' style='padding-top: 0px; padding-left: 0px; padding-bottom: 0px ;padding-right: 0px ;display: block;'>
- <input type='hidden' name='ACTION' value='togglep2p'>
- </form>
- </td>
- </tr>
+my $gif;
+
+open(FILE, "<$p2pfile") or die "Unable to read $p2pfile";
+@p2ps = <FILE>;
+close FILE;
+
+&Header::openbox('100%', 'center',);
+print <<END;
+ <table width='35%' class='tbl'>
+ <tr>
+ <th align='center' colspan='2' bgcolor='$color{'color22'}' >
+ <b>$Lang::tr{'protocol'}</b>
+ </th>
+ <th align='center' bgcolor='$color{'color22'}' >
+ <b>$Lang::tr{'status'}</b>
+ </th>
+ </tr>