While waiting for the systems team to update permissions on a file so that I could do my work, I made this little notification script to let me know that I could now write to the file:
#!/usr/bin/perl
my $isW = 0;
do{
if (-w “/etc/httpd/conf/httpd.conf”) {
$isW = 1;
}
}
while ($isW=0);
print “\n”;
print ” ”’ \n”;
print ” ;+ ‘ \n”;
print ” ‘ ‘ \n”;
print ” ‘ ‘ \n”;
print ” .+ ‘ \n”;
print ” ‘, ””`\n”;
print “;;;;;;;” .’\n”;
print “;;;;’;:, ‘\n”;
print “;;::’. ‘\n”;
print “;;::’. ‘\n”;
print “;;::’. ‘\n”;
print “;;::’. ‘\n”;
print “;;’:’` ‘\n”;
print “;;;:””’` :’\n”;
print “;”’;` ,”””’ \n”;
print “\n” ;
print “\n”;