Файловый менеджер - Редактировать - /usr/lib/libreoffice/share/config/webcast/editpic.pl
Назад
#!/usr/bin/perl # # This file is part of the LibreOffice project. # # This Source Code Form is subject to the terms of the Mozilla Public # License, v. 2.0. If a copy of the MPL was not distributed with this # file, You can obtain one at http://mozilla.org/MPL/2.0/. # # This file incorporates work covered by the following license notice: # # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed # with this work for additional information regarding copyright # ownership. The ASF licenses this file to you under the Apache # License, Version 2.0 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.apache.org/licenses/LICENSE-2.0 . # require "common.pl"; print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD>\n"; print "<title>editpic.pl</title>"; print "</HEAD>\n"; print "<BODY>\n"; $sCurrPic = join( "", common::File_read( "currpic.txt" ) ); @aPictureArray = common::File_read( "picture.txt" ); $nPictureArrayLen = @aPictureArray; print "<FORM action=\"savepic.pl\" method=get>\n"; if( abs( $sCurrPic ) > 1 ) { print "<INPUT type=submit name=\"Auswahl\" value=\"-\"></INPUT>\n"; } else { print "<INPUT type=button value=\" \"></INPUT>\n"; } print "<INPUT type=text name=\"CurrPic\" value=\""; print $sCurrPic; print "\" SIZE=3></INPUT>\n"; if( abs( $sCurrPic ) < ( $nPictureArrayLen - 1 ) ) { print "<INPUT type=submit name=\"Auswahl\" value=\"+\"></INPUT>\n"; } else { print "<INPUT type=button value=\" \"></INPUT>\n"; } print "<INPUT type=submit name=\"Auswahl\" value=\"$$2\"></INPUT>\n"; print "</FORM>\n"; print "</BODY>\n"; print "</HTML>\n";
| ver. 1.4 |
Github
|
.
| PHP 7.4.3-4ubuntu2.28 | Генерация страницы: 0 |
proxy
|
phpinfo
|
Настройка