[FormMagick-devel] CVS: formmagick/examples pre.pl,NONE,1.1 pre.xml,NONE,1.1

[Adrian C. <adr...@us...>]

Update of /cvsroot/formmagick/formmagick/examples
In directory usw-pr-cvs1:/tmp/cvs-serv21010

Added Files:
	pre.pl pre.xml 
Log Message:
Pre/Post-Event test example script.



--- NEW FILE ---
#!/usr/bin/perl -w

use strict;
use lib "../lib";
use CGI::FormMagick;

my $fm = new CGI::FormMagick();
my $uptime;

#$fm->debug(1);
$fm->display();

sub getUptime {
    open(FH, "uptime|") 
    	or die "Could not get uptime!\n";
    
    $uptime = <FH>;
    chomp $uptime;
    return 1;
}

sub showUptime {
    return $uptime;
}

sub say_hello {
    print qq(hello!);
    return 1;
}

--- NEW FILE ---
<FORM TITLE="PreEventTest" HEADER="head.tmpl" FOOTER="foot.tmpl" PRE-EVENT="getUptime" POST-EVENT="say_hello">
    <PAGE NAME="PreEventTestingPage">
        <FIELD ID="name" TYPE="TEXT" VALUE="showUptime()" SIZE="64">
            <LABEL>Current system uptime:</LABEL>
        </FIELD>
    </PAGE>
</FORM>