File: trigger.pl

package info (click to toggle)
libapache-mod-relocate 1.0-11
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 148 kB
  • ctags: 24
  • sloc: sh: 170; ansic: 113; makefile: 60; perl: 5
file content (14 lines) | stat: -rwxr-xr-x 334 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl -w   
use strict;


#This is a sample trigger I use to test 
#with. This could be a mod_perl script
#that logged to a database directly.
#No further instructions available, use
#your imagination.

open (FILEHANLDE, ">>/tmp/trigger.log");
my $time = localtime(time());
print FILEHANLDE ("$time \n");
close(FILEHANLDE);