Help for this page

Select Code to Download


  1. or download this
        if ( (open FILE, "${sessionFile}.db"){
        close FILE;
...
    } else {;
        return 0;
    }
  2. or download this
    sub sessionValidate{
  my ($session, $file) = @_;
...
  %$session = %stored;
  dbmclose %stored;
}
  3. or download this
      if ( sessionValidate(\%session, "$systemRoot/sessions/$FORM{sessionI
+D}") ){
    # ...
  }else{
    # ...
  }