/usr/share/aat/INC/AAT_ProgressBar.inc is in octopussy 1.0.6-0ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | <%
my %arg = @_;
my $title = $arg{title} || "ProgressBar";
my $msg = $arg{msg};
my $desc = $arg{desc} || "File ";
my $BARS = $arg{bars} || 40;
my $current = $arg{current};
my $total = $arg{total};
if (NOT_NULL($total))
{
my $cancel = $arg{cancel};
my $cbars = $current * $BARS / $total;
my $percent = int($current*100/$total);
my $str_bar = "<table border=1 bgcolor=#E7E7E7><tr>";
foreach my $i (1..$cbars)
{
my $color = 99 - ($i*50/$BARS);
$str_bar .= "<td width=10 height=32 bgcolor=\"rgb(0,0,$color)\"></td>";
}
foreach my $i ($cbars+1..$BARS)
{ $str_bar .= "<td width=10 height=32 bgcolor=\"white\"></td>"; }
$str_bar .= "</tr></table>";
}
%>
<AAT:Box>
<AAT:BoxRow>
<AAT:BoxCol align="C"><AAT:Label value="$title" style="B" /></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow><AAT:BoxCol><hr></AAT:BoxCol></AAT:BoxRow>
<AAT:BoxRow>
<AAT:BoxCol><AAT:Label value="$msg" style="B" /></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
<AAT:BoxCol align="C"><div id="progressbar_desc"></div></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
<AAT:BoxCol align="C"><div id="progressbar_progress"></div></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
<AAT:BoxCol align="C"><div id="progressbar_bar"></div></AAT:BoxCol>
</AAT:BoxRow>
<%
if (defined $arg{cancel})
{
%><AAT:Form method="POST" action="$arg{cancel}">
<AAT:BoxRow><AAT:BoxCol><hr></AAT:BoxCol></AAT:BoxRow>
<AAT:BoxRow>
<AAT:BoxCol align="C"><AAT:Form_Submit value="_CANCEL" /></AAT:BoxCol>
</AAT:BoxRow></AAT:Form><%
}
%>
</AAT:Box>
|