example-procs.tcl

Example procedures with which to demonstrate the acs-automated-testing automated testing platform.

Location:

packages/acs-automated-testing/tcl/example-procs.tcl

Created:

24 July 2001

Author:

Peter Harper <peter.harper@open-msg.com>

CVS Identification:

$Id: example-procs.tcl,v 1.4.2.3 2022/09/09 10:00:05 antoniop Exp $

Procedures in this file

• aa_example_write_audit_entries (public, deprecated)
• aa_example_write_audit_entry (private, deprecated)

Detailed information

 aa_example_write_audit_entries entries

 aa_example_write_audit_entry name value

Content File Source

##############################################################################
#
#   Copyright 2001, OpenACS, Peter Harper.
#
#   This file is part of acs-automated-testing
#
##############################################################################

ad_library {
    Example procedures with which to demonstrate the acs-automated-testing
    automated testing platform.

    @author Peter Harper (peter.harper@open-msg.com)
    @creation-date 24 July 2001
    @cvs-id $Id: example-procs.tcl,v 1.4.2.3 2022/09/09 10:00:05 antoniop Exp $
}

d_proc -deprecated -private aa_example_write_audit_entry {
  name
  value
} {
  @author Peter Harper
  @creation-date 24 July 2001
} {
  ns_log debug "aa_example_write_audit_entry: Auditing: $name, $value"
  return 1
}

d_proc -deprecated aa_example_write_audit_entries {
  entries
} {
  @author Peter Harper
  @creation-date 24 July 2001
} {
  foreach entry $entries {
    set name [lindex $entry 0]
    set value [lindex $entry 1]
    set result [aa_example_write_audit_entry $name $value]
    if {$result == 0} {
      return 0
    }
  }
  return 1;
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: