NineSec Team Shell
Server IP : 184.107.3.203  /  Your IP : 216.73.216.51
Web Server : Apache
System : Linux dedicated2.avenfashion.com.ph 4.18.0-553.40.1.el8_10.x86_64 #1 SMP Mon Feb 10 12:11:18 EST 2025 x86_64
User : adminteladeoro ( 1015)
PHP Version : 8.2.28
Disable Function : exec,passthru,shell_exec,system
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON
Directory (0755) :  /usr/share/systemtap/tapset/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //usr/share/systemtap/tapset/libperl5.26.3-64.stp
/*
   This probe will fire when the perl script enters a subroutine.
 */

probe perl.sub.call = process("/usr/lib64/libperl.so.5.26").mark("sub__entry")
{

  sub = user_string($arg1)
  filename = user_string($arg2)
  lineno = $arg3
  package = user_string($arg4)

}

/*
   This probe will fire when the return from a subroutine has been
   hit.
 */

probe perl.sub.return = process("/usr/lib64/libperl.so.5.26").mark("sub__return")
{

  sub = user_string($arg1)
  filename = user_string($arg2)
  lineno = $arg3
  package = user_string($arg4)

}

/*
   This probe will fire when the Perl interperter changes state.
 */

probe perl.phase.change = process("/usr/lib64/libperl.so.5.26").mark("phase__change")
{
  newphase = user_string($arg1)
  oldphase = user_string($arg2)

}


/*
   Fires when Perl has successfully loaded an individual file.
 */

probe perl.loaded.file = process("/usr/lib64/libperl.so.5.26").mark("loaded__file")
{
  filename = user_string($arg1)

}


/*
   Fires when Perl is about to load an individual file.
 */

probe perl.loading.file = process("/usr/lib64/libperl.so.5.26").mark("loading__file")
{
  filename = user_string($arg1)

}


/*
   Traces the execution of each opcode in the Perl runloop.
 */

probe perl.op.entry = process("/usr/lib64/libperl.so.5.26").mark("op__entry")
{
  opname = user_string($arg1)
}

NineSec Team - 2022