perl/RackMonkey/Engine.pm

219     my ($self, $type, $act, $updateUser, $record) = @_;
231       unless (length($updateUser) <= $self->getConf('maxstring'));
232 …the username 'install', it's reserved for use by Rackmonkey."    if (lc($updateUser) eq 'install');
233 …e username 'rackmonkey', it's reserved for use by Rackmonkey." if (lc($updateUser) eq 'rackmonkey'…
240     my $lastId = $self->$type($updateTime, $updateUser, $record);
244     $sth->execute($typeStr, $lastId, $$record{'name'}, $actStr, '', $updateTime, $updateUser);
411     my ($self, $updateTime, $updateUser, $record) = @_;
419 …my $ret = $sth->execute($self->_validateAppUpdate($record), $updateTime, $updateUser, $$record{'id…
425         $sth->execute($self->_validateAppUpdate($record), $updateTime, $updateUser);
433     my ($self, $updateTime, $updateUser, $record) = @_;
499     my ($self, $updateTime, $updateUser, $record) = @_;
507 …my $ret = $sth->execute($self->_validateBuildingUpdate($record), $updateTime, $updateUser, $$recor…
513         $sth->execute($self->_validateBuildingUpdate($record), $updateTime, $updateUser);
521     my ($self, $updateTime, $updateUser, $record) = @_;
809     my ($self, $updateTime, $updateUser, $record) = @_;
817 …my $ret = $sth->execute($self->_validateDeviceInput($record), $updateTime, $updateUser, $$record{'…
823         $sth->execute($self->_validateDeviceInput($record), $updateTime, $updateUser);
831     my ($self, $updateTime, $updateUser, $record) = @_;
1041     my ($self, $updateTime, $updateUser, $record) = @_;
1049 …my $ret = $sth->execute($self->_validateDeviceAppUpdate($record), $updateTime, $updateUser, $$reco…
1055         $sth->execute($self->_validateDeviceAppUpdate($record), $updateTime, $updateUser);
1063     my ($self, $updateTime, $updateUser, $record) = @_;
1124     my ($self, $updateTime, $updateUser, $record) = @_;
1132 …my $ret = $sth->execute($self->_validateDomainUpdate($record), $updateTime, $updateUser, $$record{…
1138         $sth->execute($self->_validateDomainUpdate($record), $updateTime, $updateUser);
1146     my ($self, $updateTime, $updateUser, $record) = @_;
1278     my ($self, $updateTime, $updateUser, $record) = @_;
1286 …my $ret = $sth->execute($self->_validateHardwareUpdate($record), $updateTime, $updateUser, $$recor…
1292         $sth->execute($self->_validateHardwareUpdate($record), $updateTime, $updateUser);
1300     my ($self, $updateTime, $updateUser, $record) = @_;
1444     my ($self, $updateTime, $updateUser, $record) = @_;
1452 …my $ret = $sth->execute($self->_validateOrgUpdate($record), $updateTime, $updateUser, $$record{'id…
1458         $sth->execute($self->_validateOrgUpdate($record), $updateTime, $updateUser);
1466     my ($self, $updateTime, $updateUser, $record) = @_;
1594     my ($self, $updateTime, $updateUser, $record) = @_;
1602 …my $ret = $sth->execute($self->_validateOsUpdate($record), $updateTime, $updateUser, $$record{'id'…
1608         $sth->execute($self->_validateOsUpdate($record), $updateTime, $updateUser);
1616     my ($self, $updateTime, $updateUser, $record) = @_;
1909     my ($self, $updateTime, $updateUser, $record) = @_;
1933 …my $ret = $sth->execute($self->_validateRackUpdate($record), $updateTime, $updateUser, $$record{'i…
1939         $sth->execute($self->_validateRackUpdate($record), $updateTime, $updateUser);
1947     my ($self, $updateTime, $updateUser, $record) = @_;
2050     my ($self, $updateTime, $updateUser, $record) = @_;
2058 …my $ret = $sth->execute($self->_validateRoleUpdate($record), $updateTime, $updateUser, $$record{'i…
2064         $sth->execute($self->_validateDomainUpdate($record), $updateTime, $updateUser);
2072     my ($self, $updateTime, $updateUser, $record) = @_;
2236     my ($self, $updateTime, $updateUser, $record) = @_;
2244 …my $ret = $sth->execute($self->_validateRoomUpdate($record), $updateTime, $updateUser, $$record{'i…
2250         $sth->execute($self->_validateRoomUpdate($record), $updateTime, $updateUser);
2253         $self->updateRow($updateTime, $updateUser, $hiddenRow);
2260     my ($self, $updateTime, $updateUser, $record) = @_;
2400     my ($self, $updateTime, $updateUser, $record) = @_;
2409     my ($self, $updateTime, $updateUser, $record) = @_;
2417 …my $ret = $sth->execute($self->_validateRowUpdate($record), $updateTime, $updateUser, $$record{'id…
2423         $sth->execute($self->_validateRowUpdate($record), $updateTime, $updateUser);
2478     my ($self, $updateTime, $updateUser, $record) = @_;
2486 …my $ret = $sth->execute($self->_validateServiceUpdate($record), $updateTime, $updateUser, $$record…
2492         $sth->execute($self->_validateServiceUpdate($record), $updateTime, $updateUser);
2500     my ($self, $updateTime, $updateUser, $record) = @_;