• Publicity: Public Only All

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

Detailed information

aa_example_write_audit_entries (public, deprecated)

 aa_example_write_audit_entries entries
Deprecated. Invoking this procedure generates a warning.

Parameters:
entries (required)
Author:
Peter Harper
Created:
24 July 2001

Partial Call Graph (max 5 caller/called nodes):
%3 aa_example_write_audit_entry aa_example_write_audit_entry (private, deprecated) ad_log_deprecated ad_log_deprecated (public) aa_example_write_audit_entries aa_example_write_audit_entries aa_example_write_audit_entries->aa_example_write_audit_entry aa_example_write_audit_entries->ad_log_deprecated

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

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: