Changeset 28844
- Timestamp:
- Aug 5, 2010, 9:09:57 AM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/czartool/Pantasks.pm (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/czartool/Pantasks.pm
r28834 r28844 5 5 6 6 package czartool::Pantasks; 7 8 7 9 8 my @servers = ( … … 23 22 ########################################################################### 24 23 # 25 # Returns the server list as an array 26 # 27 ########################################################################### 28 sub getServerList { 29 my ($self) = @_; 30 31 return \@servers; 32 } 33 34 ########################################################################### 35 # 36 # Constructor 24 # Constructor TODO put in check that we can run pantasks_client 37 25 # 38 26 ########################################################################### … … 43 31 bless $self, $class; 44 32 return $self; 33 } 34 35 ########################################################################### 36 # 37 # Returns the server list as an array 38 # 39 ########################################################################### 40 sub getServerList { 41 my ($self) = @_; 42 43 return \@servers; 45 44 } 46 45 … … 56 55 return "stdscience"; 57 56 } 58 59 57 60 58 ########################################################################### … … 173 171 } 174 172 } 175 173 1;
Note:
See TracChangeset
for help on using the changeset viewer.
