dsploit/mkchangelog.pl at master · opcodesec/dsploit · GitHub

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
@aLines         = split /\n/, `git log`;
$stop           = `cat VERSION`;
$is_message     = 0;
$message        = '';

print "Version :\n\n";

foreach my $line (@aLines)
{
  last if $line =~ $stop;

  if( $line =~ /^Date:.+/ )
  {
    $is_message = 1;
  }
  elsif( $line =~ /^commit .+/ )
  {
    $message = trim( $message );

    print " $message\n" if $message;

    $is_message = 0;
    $message    = '';
  }
  elsif( $is_message && $line =~ /^\s+(.*)/ )
  {
    $message .= " ".$1
  }
}

sub trim($)
{
  my $string = shift;
  $string =~ s/^\s+//;
  $string =~ s/\s+$//;
  return $string;
}

sub ltrim($)
{
  my $string = shift;
  $string =~ s/^\s+//;
  return $string;
}

sub rtrim($)
{
  my $string = shift;
  $string =~ s/\s+$//;
  return $string;
}