"Fossies" - the Fresh Open Source Software Archive

Member "mod_relocate-1.0/trigger.pl" (17 Jul 2000, 334 Bytes) of package /linux/www/apache_httpd_modules/old/mod_relocate-1.0.tar.gz:

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 option. Alternatively you can here view or download 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");
   14 close(FILEHANLDE);