| 242 |
|
|
| 243 |
|
use FileHandle; |
| 244 |
|
my $sitefh = FileHandle->new(); |
| 245 |
+ |
|
| 246 |
+ |
# Be verbose and print file we're going to read: |
| 247 |
+ |
$self->verbose(">> Going to try to get sitename from: ".$sitefile." "); |
| 248 |
|
|
| 249 |
|
# See if we can read from the file. If not, just |
| 250 |
|
# use default site name: |
| 251 |
|
open($sitefh,"<".$sitefile) || |
| 252 |
|
do |
| 253 |
|
{ |
| 254 |
< |
$self->verbose("Unable to read a site name definition file. Using \'CERN\' as the site name."); |
| 254 |
> |
$self->verbose(">> Unable to read a site name definition file. Using \'CERN\' as the site name."); |
| 255 |
|
return $self->{sitename}; |
| 256 |
|
}; |
| 257 |
|
|
