[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jan  3 17:58:10 EST 2008
Update of /home/repository/moby/moby-live/Perl/scripts
In directory dev.open-bio.org:/tmp/cvs-serv3663

Modified Files:
	service_tester.pl 
Log Message:
service tester checks for its write permissions at the beginning of the test, rather than after an hour of testing
moby-live/Perl/scripts service_tester.pl,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/service_tester.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/scripts/service_tester.pl	2008/01/03 22:52:14	1.5
+++ /home/repository/moby/moby-live/Perl/scripts/service_tester.pl	2008/01/03 22:58:10	1.6
@@ -62,6 +62,11 @@
 my %ALIVE     = ();
 my $FILENAME  = 'isAliveStats.xml';
 
+# this is just to test if I'm going to have permissions
+# right now, rather than an hour from now...  Arghghg!
+open( OUT, ">>$DIRECTORY/$FILENAME" ) || die("Cannot Open File $DIRECTORY/$FILENAME $!");
+close OUT;
+
 # create some shared variables
 my $alive_handle = tie %ALIVE, 'IPC::Shareable', undef, { destroy => 'yes' };
 
@@ -188,7 +193,7 @@
 
 IPC::Shareable->clean_up_all;
 
-open( OUT, ">$DIRECTORY/$FILENAME" ) || die("Cannot Open File $!");
+open( OUT, ">$DIRECTORY/$FILENAME" ) || die("Cannot Open File $DIRECTORY/$FILENAME $!");
 print OUT $doc->toString(1);
 close OUT;