Changeset 26989 for gs2-extensions/tdb-edit
- Timestamp:
- 2013-03-05T10:27:01+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl
r25486 r26989 49 49 $revision += 0; 50 50 # - and add to Perl's path 51 unshift (@INC, $ENV{'GEXTTDBEDIT_INSTALLED'} . '/lib/perl5/site_perl/' . $major . '.' . $minor . '.' . $revision); 51 52 unshift (@INC, $ENV{'GEXTTDBEDIT_INSTALLED'} . '/share/perl/' . $major . '.' . $minor . '.' . $revision); 52 53 } … … 82 83 my $collection = ''; 83 84 my $no_daemon = 0; 84 my $debug = 0;85 my $debug = 1; 85 86 my $server; 86 my $server_host; 87 my $machine_name = `hostname -s`; 88 chomp($machine_name); 89 my $server_host = $machine_name . '.local'; 87 90 my $server_port; 88 91 my $server_threads; … … 138 141 my $key = $1; 139 142 my $value = $2; 143 # Allow the override of serverhost 140 144 if ($key eq "serverhost") 141 145 { … … 216 220 if ($pid == 0) 217 221 { 222 print STDERR "[" . time() . ":" . $server_host . ":" . $server_port . "]\n"; 223 print " * Starting server on " . $server_host . ":" . $server_port . "\n"; 218 224 # - create server object 219 print " * Creating pool of " . $server_threads . " threads listening on socket : " . $server_host . ":" . $server_port . "\n";225 print " * Creating pool of " . $server_threads . " threads listening on socket\n"; 220 226 $server = SocketsSwimmingThreadPoolServer->new(host=>$server_host, 221 227 port=>$server_port, … … 494 500 } 495 501 &debugPrint($the_count, $tid, $command_name, 'Command: ' . $command1) unless !$debug; 496 $result = `$command1`; 502 if (-e $tdb_path) 503 { 504 $result = `$command1`; 505 } 506 else 507 { 508 &debugPrint("TDB database doesn't exist (yet): " . $tdb_path); 509 $result = ''; 510 } 497 511 &debugPrint($the_count, $tid, $command_name, 'Result: ' . $result) unless !$debug; 498 if ($result =~ /-{70}/)512 if ($result !~ /-{70}/) 499 513 { 500 514 $result .= "-"x70 . "\n";
Note:
See TracChangeset
for help on using the changeset viewer.