my $inputfile; # --- A file passed to maemian
GetOptions ("inputfile|i=s" => \$inputfile);
-if ($inputfile && -x $inputfile) {
- print "$inputfile\n";
-} else {
- croak "Have you specified an input file?\n $!\n";
+sub file_tests {
+ use File::Basename;
+ my $path = shift;
+ if (-r $path) {
+ my ($filename, $dirs) = fileparse($path);
+ if ($filename =~ /maemo/) {
+ print "W: Any use of the word \"maemo\" is subject to trademark.\n";
+ }
+
+ # --- Open file into an array
+ open my $file, '<', $path or die "Cannot open file: $!\n";
+ my @lines = <$file>;
+ close $file;
+
+ if (grep /BEGIN PGP SIGNED MESSAGE/, @lines) {
+ print "$filename is signed\n";
+ }
+ # print "\n$dirs\n$filename\n";
+ } else {
+ croak "File not readable: $!\n";
+ }
}
+if ($inputfile) {
+ file_tests($inputfile);
+} else {
+ croak "No input file found: $!\n";
+}