#!/usr/bin/awk

# Useless
#function which(c,path) {
#	cmd = "test -x " c;
#
#	if (system(cmd)==0) {
#		return c;
#	} 
#
#	sub(/\/.*\//,"",c);
#  for (dir in path) {
#			cmd = "test -x " path[dir] "/" c;
#			if (system(cmd)==0) {
#					return path[dir] "/" c;
#			} 
#	}
#
#
#	return c;
#}

# used to replace "use lib utils.pm" with "use lib @libexecdir"
#
function led() {
#	led1 = "/usr/lib/nagios/plugins";
#	led2 = "${prefix}";
#	led3 = "/usr";
#	if ( match(led1, /^\$\{exec_prefix\}/ ) != 0 ) {
#		return "\"" led3 "/libexec\" " ;
#	
#	}
#	Hack to force debian package to have the correct dir on all arches
	return "\"/usr/lib/nagios/plugins\"" ;
}

BEGIN {
	split(ENVIRON["PATH"] ":/sbin:/usr/sbin",path,/:/);

}

# scripting language (first line)

/^#! ?\/.*\/python/ {sub(/^#! ?\/.*\/python/,"#! /usr/bin/python");}
/^#! ?\/.*\/perl/ {sub(/^#! ?\/.*\/perl/,"#! /usr/bin/perl");}
/^#! ?\/.*\/[a-z]{0,2}awk/ {sub(/^#! ?\/.*\/[a-z]{0,2}awk/,"#! mawk");}
/^#! ?\/.*\/sh/ {sub(/^#! ?\/.*\/sh/,"#! /bin/sh");}

# add to libexecdir to INC for perl utils.pm
/^use/ { if (/lib/) { if (/utils.pm/ ) {sub(/utils.pm/,led() )} } }


# Trusted path mechanism (deprecated)

/^[ \t]*\$ENV[ \t]*\{[ \t'"]*PATH[ \t"']*\}[ \t]*=/ {
	sub(/\=[ \t]*['"][^"']+["']/,"='/bin:/sbin:/usr/bin:/usr/sbin' # autoconf-derived");
}

/^[\t ]*(export[\t ]*)?PATH[\t ]*=['"]+.+["']$/ {
	sub(/\=.*$/,"='/bin:/sbin:/usr/bin:/usr/sbin' # autoconf-derived");
}

# Specific programs

# They are already correct, it seems... don't bother with this!
#
#/^[^#]/ && /(\/.*)?\/(bin|sbin|lib|libexec)\// {
#	match($0,/(\/.*)?\/(bin|sbin|lib|libexec)\/[-_a-zA-Z0-9]+/);
#	start=RSTART+RLENGTH;
#	c=substr($0,RSTART,RLENGTH);
#	sub(c,which(c,path));
#}

{
	print;
}

