diff options
Diffstat (limited to 'examples/misc')
| -rw-r--r-- | examples/misc/swat.pl | 122 |
1 files changed, 0 insertions, 122 deletions
diff --git a/examples/misc/swat.pl b/examples/misc/swat.pl deleted file mode 100644 index f6414b6349..0000000000 --- a/examples/misc/swat.pl +++ /dev/null @@ -1,122 +0,0 @@ -#! /usr/bin/perl5 -## -## This is a simple script written by Herb Lewis @ SGI <herb@samba.org> -## for reporting which parameters are supported by loadparm.c but -## not by SWAT I just thought it looked fun and might be of interest to others -## --jerry@samba.org -## -## Here is a little info on the usage and output format so you don't have -## to dig through the code to understand what is printed. -## -## Useage: swat.pl [path_to_loadparm.c] -## -## The output consists of 4 columns of information -## Option Name, Global Page, Share Page, Printer Page -## The section separaters will also be printed (preceded by 16 *) to show -## which options are grouped in the various sections. -## -## If the option name is preceded by an * it means this is a deprecated option. -## If the option name is preceded by 5 spaces it means this is an alias for the -## previous option. -## -## Under the Global Page, Share Page, and Printer Page columns there will be -## one of 3 entries, BASIC, ADVANCED, or no. "BASIC" indicates this option will -## show in the Basic View of that page in SWAT. "ADVANCED" indicates this -## option will show in the Advanced View of that page in SWAT. "No" indicates -## that this option is not available on that page in SWAT. -## -## Under the Global Page column, if an entry begins with an * it indicates that -## this is actually specified in Samba as a "service parameter" not a "global -## parameter" but you can set a default value for this on the Global Page in -## SWAT. -## -## --herb@samba.org - -$lastone = "nothing"; - -if (@ARGV[0]) { - $filename = @ARGV[0]; -} else { - $filename = "/usr3/samba20/samba/source/param/loadparm.c"; -} - -open (INFILE,$filename) || die "unable to open $filename\n"; -while (not eof(INFILE)) -{ - $_ = <INFILE>; - last if ( /^static struct parm_struct parm_table/) ; -} -print "Option Name Global Page Share Page Printer Page\n"; -print "---------------------------------------------------------------------"; -while (not eof(INFILE)) -{ - $_ = <INFILE>; - last if (/};/); - @fields = split(/,/,$_); - next if not ($fields[0] =~ /^.*{"/); - $fields[0] =~ s/.*{"//; - $fields[0] =~ s/"//; - if ($fields[3] eq $lastone) { - print " $fields[0]\n"; - next; - } - $lastone = $fields[3]; - $fields[2] =~ s/^\s+//; - $fields[2] =~ s/\s+$//; - $fields[2] =~ s/}.*$//; - $fields[6] =~ s/^\s+//; - $fields[6] =~ s/\s+$//; - $fields[6] =~ s/}.*$//; - if ($fields[2] =~ /P_SEPARATOR/) { - print "\n****************$fields[0]\n"; - next; - } - else { - if ($fields[6] =~ /FLAG_DEPRECATED/) { - print "*$fields[0]".' 'x(31-length($fields[0])); - } - else { - print "$fields[0]".' 'x(32-length($fields[0])); - } - } - if (($fields[2] =~ /P_GLOBAL/) || ($fields[6] =~ /FLAG_GLOBAL/)) { - if ($fields[6] =~ /FLAG_GLOBAL/) { - print "*"; - } - else { - print " "; - } - if ($fields[6] =~ /FLAG_BASIC/) { - print "BASIC "; - } - else { - print "ADVANCED "; - } - } - else { - print " no "; - } - if ($fields[6] =~ /FLAG_SHARE/) { - if ($fields[6] =~ /FLAG_BASIC/) { - print "BASIC "; - } - else { - print "ADVANCED "; - } - } - else { - print "no "; - } - if ($fields[6] =~ /FLAG_PRINT/) { - if ($fields[6] =~ /FLAG_BASIC/) { - print "BASIC"; - } - else { - print "ADVANCED"; - } - } - else { - print "no"; - } - print "\n"; -} |