Help for this page

Select Code to Download


  1. or download this
    $systempath = "$ENV{'PATH_TRANSLATED'}";
    $systempath =~ s/(\\[a-z0-9]*\.cgi)$//g;
    ...
    if ($&) {$extention = $&;} ## End if
    $extention =~ /\./;
    $extention = $';
    
  2. or download this
    BEGIN {
      if (($^O eq 'MSWin32') || defined($ENV{'OS'})) {
    ...
    ## $systempath = "systempath to your folder"; ## Enter the correct val
    +ue and un-comment this if you are having system path detection proble
    +ms
      push (@INC, "$systempath");
    } ## End BEGIN