debian/perl-framework/t/htdocs/php/func5.php


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

<?php

$file = $_SERVER["argv"][0];

function foo()
{
        global $file;

        $fp = fopen($file, "w");
        if( $fp )
        {
                fclose($fp);
        }
        else
        {
                // Attempt to alert the user
                error_log("can't write $file.", 0);
        }
}

register_shutdown_function("foo");

print "foo() will be called on shutdown...\n";

?>