diff options
Diffstat (limited to 'contrib/dialog/samples/copifuncs/copi.ifman2')
-rwxr-xr-x | contrib/dialog/samples/copifuncs/copi.ifman2 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/contrib/dialog/samples/copifuncs/copi.ifman2 b/contrib/dialog/samples/copifuncs/copi.ifman2 index 0b6dbb7..7a111bf 100755 --- a/contrib/dialog/samples/copifuncs/copi.ifman2 +++ b/contrib/dialog/samples/copifuncs/copi.ifman2 @@ -1,3 +1,6 @@ +# vile:perlmode +# $Id: copi.ifman2,v 1.2 2012/06/29 22:33:42 tom Exp $ + if ( getpwuid($<) ne $ifowner ) { print "You must be owner of ifmail\n"; exit 1; } if ( (@ARGV < 3) || $ARGV[0] eq "-?" || $ARGV[0] eq "-h" ) { |