old-misc-utils.lib

来自「Perl写的CA认证程序」· LIB 代码 · 共 42 行

## Misc RAServer Utilities.

sub buildRefs {
        my @keys = @_;
        my $ret, $i;

	my $query    = $keys[0];
	my $maxItems = $keys[2];

	$maxItems = 30 if( not $maxItems );

        my $rows     = $keys[1] / $maxItems;
        my $current = $query->param('viewFrom') / $maxItems;

        my $title = "<DIV ALIGN=\"RIGHT\">Extra References ";

        for( $i = 0; $i <= $rows ; $i++ ) {
                my $from = $i * $maxItems;
                my $to   = $from + $maxItems;

                if ( $i != $current ) {
                        $query->param( -name=>"viewFrom", -value=>"$from" );
                        $query->param( -name=>"viewTo",   -value=>"$to" );

                        my $link = $query->self_url();
                        $title .= "&nbsp; <a href=\"$link\">$i</a> ";
                } else {
                        $title .= "&nbsp; $i ";
                }
        }

        $ret = $query->startTable( COLS=>[ "$title" ],
                               TITLE_BGCOLOR=>"#EEEEF1",
                               TABLE_BGCOLOR=>"#000000" );

        $ret .= $query->endTable();

        return $ret;
}

1;