Dibatalkan

Need Perl Script coverting to C

Need a script changing over from perl to c, c+ or c++

There is around 18 pages of this stuff,

sub window_start

{

my ($text,$type) = @_;

my $size;

if ($type eq 'big'){

$size='width=100%';

};

print qq~

<table border=0 cellpadding=0 cellspacing=0 $size>

<tr>

<td>

<table border=0 cellpadding=0 cellspacing=0>

<tr height=20 class=text_zag><td valign=top aligtn=left><img src="$img_dir/tpl/$tpl/lc.png" border=0 alt="" title=""></td><td align=center valign=top class=fon> <b>$text</b> </td><td valign=top align=right><img src="$img_dir/tpl/$tpl/rc.png" border=0 alt="" title=""></td><td width="5px" valign=top><img src="$img_dir/tpl/$tpl/space_h.png" border=0 alt="" title=""></tr>

</table>

</td><td></td>

</tr>

<tr>

<td>

<table class=ramka align=center cellpadding=0 cellspacing=1 border=0 width=100%>

<tr>

<td>

<table class=in_fon align=center cellpadding=0 cellspacing=3 border=0 width=100%>

~;

}

sub stroka{

my ($text,$type) = @_;

my ($style,$showaddon,$attach);

if (!$type){$style="text_small_font";$showaddon="";}else{$attach="<td> </td>";};

if ($type==1) {$style="text_success";$showaddon="<td><img src="$img_dir/tpl/$tpl/ok.png"> </td>";};

if ($type==2) {$style="text_error";$showaddon="<td><img src="$img_dir/tpl/$tpl/error.png"> </td>";};

if ($type==3) {$style="text_small_font";$showaddon="<td><img src="$img_dir/tpl/$tpl/attention.png"> </td>";};

if ($type==4) {$style="text_small_font";$showaddon="<td><img src="$img_dir/tpl/$tpl/construction.png"> </td>";};

if ($type==5) {$style="text_small_font";$showaddon="<td><img src="$img_dir/tpl/$tpl/dossier.png"> </td>";};

if ($type==6) {$style="text_small_font";$showaddon="<td><img src="$img_dir/tpl/$tpl/info.png"> </td>";};

print qq~

<tr class=in_fon valign=center>

$showaddon<td class=$style>$text</td>$attach

</tr>

~;

};

sub stroka_colour

{

print qq~

<tr class=chcolorn>

<td class=text_small_font>@_</td>

</tr>

~;

}

sub window_end

{

print qq~

</table>

</td>

</tr>

</table>

</td><td valign=top class="shad" width="5px">

<img src="$img_dir/tpl/$tpl/space.jpg" border=0 alt="" title="">

</td></tr>

<tr><td colspan=2 class=shad>

<img src="$img_dir/tpl/$tpl/space.jpg" width="5px" height="5px" border=0 alt="" title="">

</td></tr>

</table>

~;

}

return true;

It maybe that you can see the script and come out with a smaller version,

Many Thanks

Kemahiran: Pengaturcaraan C

Lihat lebih lanjut: png construction, tpl, my c, jpg c, img table, table jpg, script src, text png, sub script, table perl, perl table, script height, script version, table error, png text, height 100, img text, perl script text, png jpg, need info, need type, perl print, script top, perl info, png version

Tentang Majikan:
( 1 ulasan ) barnsley, United Kingdom

ID Projek: #301531