#!/usr/bin/perl
# 4104658

my $rewriteFile = 0;

open(CUPSCONF,$ARGV[2] . "/private/etc/cups/cupsd.conf.OLD");
while(<CUPSCONF>)
{
	if ( m/^Port 631/ ) 
	{
		$rewriteFile = 1;
	}
}
close(CUPSCONF);

if ( $rewriteFile == 1 )
{
	my @lines;
	open(CUPSCONF,$ARGV[2] . "/private/etc/cups/cupsd.conf");
	while(<CUPSCONF>)
	{
		s/^#Port 631/Port 631/;
		s/^Listen 127.0.0.1:631/#Listen 127.0.0.1:631/;
		s/^#BrowseAddress \@LOCAL/BrowseAddress \@LOCAL/;
		push(@lines,$_);
	}
	close(CUPSCONF);
	open(CUPSCONF,">" . $ARGV[2] . "/private/etc/cups/cupsd.conf");
	foreach (@lines)
	{
		print CUPSCONF $_;
	}
	close(CUPSCONF);
}
