diff options
author | Juergen Daubert <juergen.daubert@t-online.de> | 2006-09-04 19:02:00 +0000 |
---|---|---|
committer | Juergen Daubert <juergen.daubert@t-online.de> | 2006-09-04 19:02:00 +0000 |
commit | a8d3e111ba64c9b91e8eeb6750de3f30de69a397 (patch) | |
tree | 18f396f2dd3d7cf043e3c35529bc78f5d8adfbf3 /lib/prtverify/10_file_check_clean_repo.awk | |
parent | c0922fe4735ddb104a0e0b2562eb7e20a0b534ad (diff) | |
download | prt-utils-a8d3e111ba64c9b91e8eeb6750de3f30de69a397.tar.gz prt-utils-a8d3e111ba64c9b91e8eeb6750de3f30de69a397.tar.xz |
prt-utils: added prtverify
Diffstat (limited to 'lib/prtverify/10_file_check_clean_repo.awk')
-rw-r--r-- | lib/prtverify/10_file_check_clean_repo.awk | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/lib/prtverify/10_file_check_clean_repo.awk b/lib/prtverify/10_file_check_clean_repo.awk new file mode 100644 index 0000000..df6632d --- /dev/null +++ b/lib/prtverify/10_file_check_clean_repo.awk @@ -0,0 +1,32 @@ +# +# 10_file_check_clean_repo.awk +# +# Version 0.1.0 - 2006-08-07 +# Johannes Winkelmann, jw at smts dot ch +# +# Tests for invalid files in a clean repo + + +function list_files(dir,af, cmd,f) +{ + cmd = "ls -1A --color=none " dir + delete af + while (cmd | getline f) + af[f] + close(cmd) +} + + +BEGIN { + + if (loglevel_ok(FATAL)) { + + list_files(PORTDIR, af) + + for (f in af) { + if (f ~ "(.(tar.(bz2|gz)|tgz|zip|rar|svn)|CVS|REPO|index.hml)$") + perror(FATAL, "invalid file/directory: " f) + } + } +} + |