mod_ssl    
The playground of the mod_ssl user community... 
Title
About
News
Documents
Example
Source Code
Contribution
Support
Related

 

User Contribution Area

Welcome to the User Contribution Area of mod_ssl. This area is directly maintained by the mod_ssl users and provided AS IS without any kind of support or guaranty.

THIS AREA IS PROVIDED BY RALF S. ENGELSCHALL ``AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL RALF S. ENGELSCHALL OR HIS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

This area can be reached through the following URLs:

Feel free to upload any mod_ssl related packages to this area yourself. But you should announce them on modssl-users@modssl.org, please. And remember: This area is writeable, but you cannot remove or rename files. When you want to get rid of obsolete files, drop rse@engelschall.com a note. And notice that the author of mod_ssl reserves the right to remove any non mod_ssl related files without notice. 

   Bytes      Timestamp       Filename
________ ____________________ ____________________________
) {
   s|\s*\n$||;
   push(@HI, $_);
}
close(FP);
sub ls {
    my ($pat) = @_;
    my (@F, @R, $f, @S, @T);
    @F = sort { (stat($a))[9] <=> (stat($b))[9]; } (glob($pat));
    @R = ();
    foreach $f (@F) {
        next if ($f =~ m|^index.*|);
        @S = stat($f);
        $f = "$f/" if (-d $f);
        @T = localtime($S[9]);
        my @moy = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
                   'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
        push(@R, sprintf("%"."8d %"."s %"."2d %"."02d:%"."02d:%"."02d %"."d %"."s\n",
             $S[7], $moy[$T[4]], $T[3], $T[2], $T[1], $T[0], 1900+$T[5], $f));
    }
    return @R;
}
@L = &ls("*");
foreach $l (@L) {
    next if ($l =~ m|^\s*$|);
    $l =~ s|(\s+)(\S+[^/])(\s*\n)$|$1."$2".$3|e;
    $l =~ s|(\s+)(\S+/)(\s*\n)$|$1."$2".$3|e;
    foreach $hi (@HI) {
        $l =~ s|^(.*$hi.*)$|$1  [LATEST]|;
        $l =~ s|>($hi)<|>$1<|;
    }
    print $l;
}
!>