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, C==, c/, C++, c$, c#\, c#, c or c, c ++ , c +, img table, table jpg, script src, text png, sub script, table perl, perl table, script height, script version, need class, table error

Tentang Majikan:
( 1 ulasan ) barnsley, United Kingdom

ID Projek: #301531