mirror of
https://gitlab.com/apparmor/apparmor.git
synced 2025-03-09 02:41:03 +01:00
42 lines
929 B
Perl
42 lines
929 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Pulls metadata out of the .sh files and writes it to a file
|
||
|
|
#
|
||
|
|
$i = 1;
|
||
|
|
|
||
|
|
open (WRITEFILE, ">metadata.txt");
|
||
|
|
opendir (TESTDIR, ".") or die "Could not open directory";
|
||
|
|
while (defined ($file = readdir(TESTDIR))) {
|
||
|
|
if ($file =~ /\.sh$/) {
|
||
|
|
push @file_array, $file;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
closedir(TESTDIR);
|
||
|
|
@file_array = sort(@file_array);
|
||
|
|
|
||
|
|
$in_description = 0;
|
||
|
|
foreach $file (@file_array) {
|
||
|
|
open (SCRIPT, $file);
|
||
|
|
print "Handling: $file\n";
|
||
|
|
while (<SCRIPT>) {
|
||
|
|
if (/^#=NAME\s(.*)/) {
|
||
|
|
print "Found #=NAME in $file\n";
|
||
|
|
print WRITEFILE "\n$i\. $1\n\n";
|
||
|
|
$i++;
|
||
|
|
$in_description = 0;
|
||
|
|
} elsif (/^#=DESCRIPTION\s+(\S.*)\s*$/) {
|
||
|
|
print WRITEFILE "$1\n";
|
||
|
|
} elsif (/^#=DESCRIPTION\s*$/) {
|
||
|
|
$in_description = 1;
|
||
|
|
} elsif ($in_description && /^#=END\s*$/) {
|
||
|
|
$in_description = 0;
|
||
|
|
} elsif ($in_description && /^#\s(.+)$/) {
|
||
|
|
print WRITEFILE "$1\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close(SCRIPT);
|
||
|
|
}
|
||
|
|
close(WRITEFILE);
|
||
|
|
|
||
|
|
|