Return to 171.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/171.html, revision 1.1

1.1     ! misha       1: @main[]
        !             2: $request:charset[windows-1251]
        !             3: $response:charset[$request:charset]
        !             4: $sScript[./cat.sh]
        !             5: 
        !             6: $tData[^table::create{sType    sFormat sContentType    sFileName       sText   sCharset
        !             7: exec   text    text/plain      notfound.txt
        !             8: exec   binary  image/gif       notfound.gif
        !             9: exec           text/plain      161_windows1251.txt     тест            #old style
        !            10: cgi            text/plain      161_windows1251.txt                     #old style
        !            11: cgi    text    text/plain      161_windows1251.txt     тест    $request:charset
        !            12: exec   text    text/plain      161_utf8.txt    тест    UTF-8
        !            13: cgi    binary  image/gif       019paf2001.gif
        !            14: }]
        !            15: 
        !            16: ^tData.menu{
        !            17:        Get ^if(-f $tData.sFileName){file '$tData.sFileName' as ^if($tData.sFormat eq "binary"){binary}{text}^if(def $tData.sText){ with additional text '$tData.sText'}}{not existing file '$tData.sFileName'} ^if(def $tData.sCharset){in $tData.sCharset}{without ^$.charset option} (^if(def $tData.sFormat){^^file::${tData.sType}[$tData.sFormat^;script^;...]}{^^file::${tData.sType}[script^;...]}):
        !            18:        ^if(def $tData.sFormat){
        !            19:                ^rem{ *** new style where in 1st param we can specify 'text' or 'binary' format *** }
        !            20:                ^switch[$tData.sType]{
        !            21:                        ^case[exec]{
        !            22:                                $f[^file::exec[$tData.sFormat;$sScript;^if(def $tData.sCharset){$.charset[$tData.sCharset]};exec;$tData.sContentType;$tData.sFileName;$tData.sText]]
        !            23:                        }
        !            24:                        ^case[cgi]{
        !            25:                                $f[^file::cgi[$tData.sFormat;$sScript;^if(def $tData.sCharset){$.charset[$tData.sCharset]};cgi;$tData.sContentType;$tData.sFileName;$tData.sText]]
        !            26:                        }
        !            27:                }
        !            28:        }{
        !            29:                ^rem{ *** old style: 1st param can be path to script only *** }
        !            30:                ^switch[$tData.sType]{
        !            31:                        ^case[exec]{
        !            32:                                $f[^file::exec[$sScript;^if(def $tData.sCharset){$.charset[$tData.sCharset]};exec;$tData.sContentType;$tData.sFileName;$tData.sText]]
        !            33:                        }
        !            34:                        ^case[cgi]{
        !            35:                                $f[^file::cgi[$sScript;^if(def $tData.sCharset){$.charset[$tData.sCharset]};cgi;$tData.sContentType;$tData.sFileName;$tData.sText]]
        !            36:                        }
        !            37:                }
        !            38:        }
        !            39:        ^print[$f]
        !            40:        ^if(!$f.status){^f.save[^if($tData.sFormat eq "binary"){binary}{text};171_dir/^tData.line[].^file:justext[$tData.sFileName]]}
        !            41: }
        !            42: 
        !            43: 
        !            44: @print[f]
        !            45: status: $f.status
        !            46: text: '$f.text'
        !            47: size: ^if(def $f.size){$f.size}{-}
        !            48: stderr: ^if(def $f.stderr){def}{-}
        !            49: text.length: ^if(def $f.text){^f.text.length[]}{-}^taint[as-is][^#0A]