"Fossies" - the Fresh Open Source Software Archive
As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard
) with prefixed line numbers and code folding
Alternatively you can here view
the uninterpreted source code file.
1 #!/usr/bin/perl -w
2 use strict;
5 #This is a sample trigger I use to test
6 #with. This could be a mod_perl script
7 #that logged to a database directly.
8 #No further instructions available, use
9 #your imagination.
11 open (FILEHANLDE, ">>/tmp/trigger.log");
12 my $time = localtime(time());
13 print FILEHANLDE ("$time \n");