Fossil SCM
Add comments with usage hints to the tools/find-fossil-cgis.tcl script.
Commit
e8f3f411a5794c31aa1e8b55f31a81044627c6ae974981d01620f1845366ec37
Parent
609f885a02afc17…
1 file changed
+20
| --- tools/find-fossil-cgis.tcl | ||
| +++ tools/find-fossil-cgis.tcl | ||
| @@ -24,10 +24,30 @@ | ||
| 24 | 24 | # --symlink Process DIRECTORY arguments that are symlinks. |
| 25 | 25 | # Normally symlinks are silently ignored. |
| 26 | 26 | # |
| 27 | 27 | # -v Show progress information for debugging |
| 28 | 28 | # |
| 29 | +# EXAMPLE USE CASES: | |
| 30 | +# | |
| 31 | +# Find all CGIs that do not have the "errorlog:" property set | |
| 32 | +# | |
| 33 | +# find-fossil-cgis.tcl *.website --has '\nrepository:' \ | |
| 34 | +# --hasnot '\nerrorlog:' | |
| 35 | +# | |
| 36 | +# Add the errorlog: property to any CGI that does not have it: | |
| 37 | +# | |
| 38 | +# find-fossil-cgis.tcl *.website --has '\nrepository:' \ | |
| 39 | +# --hasnot '\nerrorlog:' | while read x | |
| 40 | +# do | |
| 41 | +# echo 'errorlog: /logs/errors.txt' >>$x | |
| 42 | +# done | |
| 43 | +# | |
| 44 | +# Find and print all CGIs that do redirects | |
| 45 | +# | |
| 46 | +# find-fossil-cgis.tcl *.website --has '\nredirect:' --print | |
| 47 | +# | |
| 48 | + | |
| 29 | 49 | |
| 30 | 50 | # Find the CGIs in directory $dir. Invoke recursively to |
| 31 | 51 | # scan subdirectories. |
| 32 | 52 | # |
| 33 | 53 | proc find_in_one_dir {dir} { |
| 34 | 54 |
| --- tools/find-fossil-cgis.tcl | |
| +++ tools/find-fossil-cgis.tcl | |
| @@ -24,10 +24,30 @@ | |
| 24 | # --symlink Process DIRECTORY arguments that are symlinks. |
| 25 | # Normally symlinks are silently ignored. |
| 26 | # |
| 27 | # -v Show progress information for debugging |
| 28 | # |
| 29 | |
| 30 | # Find the CGIs in directory $dir. Invoke recursively to |
| 31 | # scan subdirectories. |
| 32 | # |
| 33 | proc find_in_one_dir {dir} { |
| 34 |
| --- tools/find-fossil-cgis.tcl | |
| +++ tools/find-fossil-cgis.tcl | |
| @@ -24,10 +24,30 @@ | |
| 24 | # --symlink Process DIRECTORY arguments that are symlinks. |
| 25 | # Normally symlinks are silently ignored. |
| 26 | # |
| 27 | # -v Show progress information for debugging |
| 28 | # |
| 29 | # EXAMPLE USE CASES: |
| 30 | # |
| 31 | # Find all CGIs that do not have the "errorlog:" property set |
| 32 | # |
| 33 | # find-fossil-cgis.tcl *.website --has '\nrepository:' \ |
| 34 | # --hasnot '\nerrorlog:' |
| 35 | # |
| 36 | # Add the errorlog: property to any CGI that does not have it: |
| 37 | # |
| 38 | # find-fossil-cgis.tcl *.website --has '\nrepository:' \ |
| 39 | # --hasnot '\nerrorlog:' | while read x |
| 40 | # do |
| 41 | # echo 'errorlog: /logs/errors.txt' >>$x |
| 42 | # done |
| 43 | # |
| 44 | # Find and print all CGIs that do redirects |
| 45 | # |
| 46 | # find-fossil-cgis.tcl *.website --has '\nredirect:' --print |
| 47 | # |
| 48 | |
| 49 | |
| 50 | # Find the CGIs in directory $dir. Invoke recursively to |
| 51 | # scan subdirectories. |
| 52 | # |
| 53 | proc find_in_one_dir {dir} { |
| 54 |