0byt3m1n1
Path:
/
data
/
config
/
fileman
/
templates
/
luna
/
compiled
/
[
Home
]
File: main.html.compiled
# This file is a compiled version of a template that can be run much faster # than reparsing the file, yet accomplishes the same thing. You should not # attempt to modify this file as any changes you make would be lost as soon as # the original template file is modified. # Editor: vim:syn=perl # Generated: Thu Apr 21 20:26:44 2016, using GT::Template::Parser v2.159 local $^W; { files => [['main.html','/data/config/fileman/templates/luna/main.html',1449257597,33771],['include_header.html','/data/config/fileman/templates/luna/include_header.html',1452541743,727],['include_footer.html','/data/config/fileman/templates/luna/include_footer.html',1449257597,246]], parser_version => 2.170, code => \>::Template::parsed_template }; sub GT::Template::parsed_template { local $^W; # Get rid of warnings. This won't work for Perl 5.6's -W switch my $self = shift; my $return = ''; my $tags = $self->vars; my $escape = $self->{opt}->{escape}; my $strict = $self->{opt}->{strict}; my ($tmp, $tmp2, $tmp3); $return .= q{<div id="wrapper"> <div id="wrapper-header"> }; {; #Including /data/config/fileman/templates/luna/include_header.html $return .= q{<div id="header">}; if ($self->_get_var(q{session.id}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<div id="loginbar"><a href="#" rel="logout" class="out">Logout</a></div>}; } $return .= q{ <div id="logo"><h1><a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); if ($self->_get_var(q{hidden_subquery}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_subquery}, { escape => $escape, strict => $strict })); } $return .= q{">FileMan</a></h1></div> </div>}; if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="navbar" class="navbar"></div> <div id="cdbar"> <div id="cdform"> <form action="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{" method="post"> <label for="dname">Change Directory:</label> <input type="text" id="dname" name="dname" value="" class="text" /> <input type="submit" name="bcd" value="Go" class="submit" /> </form> </div> <div class="currentpath"></div> </div> }; } $return .= q{<hr class="hide" /> }; } # Done include $return .= q{</div> <div id="wrapper-content"> <form id="myform" action="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{" method="post"> <div id="hiddens" class="hide">}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_objects}, { escape => $escape, strict => $strict })); $return .= q{</div> <input type="hidden" id="cmd" name="cmd" value="" /> <div id="contentheader">}; if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.search}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-search" class="hide"> <div class="row clear"> <label for="search_input" class="name">Search</label> <div class="value"> <select id="search_scope" name="search_scope"> <option value="0" selected="selected">All</option> <option value="1">Selected Files</option> </select> <input type="text" id="search_input" name="search_input" value="" class="text longtext" /> <input type="submit" name="bsearch" value="Search" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_search.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_search.html" title="Search" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{question-mark.gif}); $return .= q{" alt="Question" /></a> <a href="#" rel="advance-search">Advanced Search</a> </div> </div> <div class="row clear"> <label class="name">Options</label> <div class="value"> <input type="checkbox" id="search_case" name="search_case" value="1" /> <label for="search_case">Case Sensitive</label> <input type="checkbox" id="search_exp" name="search_exp" value="2" /> <label for="search_exp">Regular Expression</label> <input type="checkbox" id="search_content" name="search_content" value="3" /> <label for="search_content">Search Contents</label> </div> </div> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.replace}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-replace" class="hide"> <div class="row clear"> <label class="name">Replace</label> <div class="value"> <select id="replace_scope" name="replace_scope"> <option value="0" selected="selected">All</option> <option value="1">Selected Files</option> </select> <input type="text" id="replace_input" name="replace_input" value="" class="text" /> <label>with</label> <input type="text" name="replace_with" value="" class="text" /> <input type="submit" name="breplace" value="Replace" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_replace.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_replace.html" title="Replace" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{question-mark.gif}); $return .= q{" alt="Question" /></a> </div> </div> <div class="row clear"> <label class="name">Options</label> <div class="value"> <input type="checkbox" id="replace_case" name="replace_case" value="1" /> <label for="replace_case">Case Sensitive</label> <input type="checkbox" id="replace_exp" name="replace_exp" value="2" /> <label for="replace_exp">Regular Expression</label> <input type="checkbox" id="replace_wholeword" name="replace_wholeword" value="3" /> <label for="replace_wholeword">Whole Word</label> <input type="checkbox" id="replace_bak" name="replace_bak" value="3" /> <label for="replace_bak">Create Backup</label> </div> </div> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.command}, { escape => 0, strict => 0, merge => 0 })) { unless ($self->_get_var(q{mswin}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-command" class="hide"> <div class="row"> <label for="command_input">Enter a command below:</label> <span class="longrun"> <input type="checkbox" id="opt_long" name="opt_long" value="1" /><label for="opt_long">Long Running</label> </span> </div> <div class="row"> <input type="hidden" name="working_dir" value="" /> <input type="text" id="command_input" name="command_input" value="" class="text longtext" onkeydown="//fm.loadCommand(this, event)" /> <input type="submit" name="button-command" value=" Execute " class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_command.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_command.html" title="Command" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{question-mark.gif}); $return .= q{" alt="Question" /></a> </div> </div> }; } } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.upload}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-upload" class="hide"> <div class="row clear"> <label for="upload_input" class="name">File</label> <div class="value"> <input type="file" id="upload_input" name="upload_input" size="50" class="file" /> <input type="submit" name="button-upload" value="Upload" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_upload.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_upload.html" title="Upload File" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{question-mark.gif}); $return .= q{" alt="Question" /></a> <a href="#" rel="upload-multiple">Upload Files</a> </div> </div> <div class="row clear"> <label class="name">Options</label> <div class="value"> <select name="upload_mode" title="Upload mode"> <option value="auto">Auto</option> <option value="ascii">ASCII</option> <option value="binary">Binary</option> </select> <input type="checkbox" name="opt_overwrite" id="opt_overwrite" value="1" /><label for="opt_overwrite">Overwrite existing file</label> </div> </div> </div> }; } $return .= q{<div id="cmd-edit" class="hide"> <label for="edit_input">File Name:</label><br /> <input type="button" name="switchmode" value="Switch To HTML" class="submit switch-mode" /> <div class="row"> <input type="text" id="edit_input" name="edit_input" value="" class="text longtext" /> <input type="submit" id="edit_save" name="edit_save" value="Save" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_file.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_file.html" title="Edit a File" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{question-mark.gif}); $return .= q{" alt="Question" /></a> </div> </div>}; if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.newfile}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-file" class="hide"> <label for="file_input">File Name:</label><br /> <input type="button" name="switchmode" value="Switch To HTML" class="submit switch-mode" /> <div class="row"> <input type="text" id="file_input" name="file_input" value="" class="text longtext" /> <input type="submit" id="file_save" name="file_save" value="Save" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_file.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_file.html" title="New File" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{question-mark.gif}); $return .= q{" alt="Question" /></a> </div> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.makedir}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-makedir" class="hide"> <div>Enter directory name below:</div> <div> <input type="text" id="makedir_input" name="makedir_input" value="" class="text longtext" /> <input type="submit" name="bmakedir" value=" Create " class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_makedir.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_makedir.html" title="Makedir" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{question-mark.gif}); $return .= q{" alt="Question" /></a> </div> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.protect}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-protect" class="hide"> <div class="row clear"> <label class="name">Existing Users</label> <div class="value"> <select id="protect_user" name="protect_user" disabled="disabled"></select> <input type="button" name="button-delete" value="Delete User" class="submit" disabled="disabled" /> <input type="button" name="button-delete-all" value="Delete All Users" class="submit" disabled="disabled" /> </div> </div> <div class="row clear"> <label class="name">Username/Password</label> <div class="value"> <input type="text" id="protect_input" name="protect_username" value="" class="text" /> <input type="password" id="protect_passwd" name="protect_password" value="" class="text" /> <input type="checkbox" id="protect_overwrite" name="opt_protect_overwrite" value="1" /><label for="protect_overwrite">Overwrite</label> <input type="hidden" name="protect" value="1" /> }; if ($self->_get_var(q{apache_server}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<input type="checkbox" id="protect_apache" name="opt_protect_apache" value="1" /><label for="protect_apache">MD5 Password</label>}; } $return .= q{ <input type="submit" name="button-add" value=" Add User " class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_protect.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_protect.html" title="Protect" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{question-mark.gif}); $return .= q{" alt="Question" /></a> </div> </div> </div> }; } $return .= q{</div> <div id="ocwrapper" class="clear"> <div id="contentmessage" class="hide"></div> <div id="icwrapper" class="clear"> <div id="contentwrapper" class="shadowleft"> <div class="shadowtop"><div class="shadowtopleft"></div><div class="shadowtopright"></div></div> <div class="shadowright"> <div id="content"> <div id="listfiles"> <div class="toolbar clear"> <div class="paging"></div> <select id="fm_action" name="fm_action" class="action"> <option value="">More Actions...</option>}; if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.download}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="download">Download</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.symlink}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="symlink">Symlink</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.copy}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="copy">Copy</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.move}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="move">Move</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.rename}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="rename">Rename</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.delete}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="delete">Delete</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.compress}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="compress">Compress</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.chmod}, { escape => 0, strict => 0, merge => 0 })) { unless ($self->_get_var(q{mswin}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="chmod">Chmod</option>}; } } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.tail}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="tail">Tail</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.perl}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="perl">Perl Check</option>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.diff}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="diff">Diff</option>}; } $return .= q{<option value="print">Print</option> </select> <div class="action-form">}; if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.download}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-download" class="hide"> <label>Compressed Type</label> <select name="download_compress"> <option value="0">None (a file)</option> <option value="1">.tar</option> }; if ($self->_get_var(q{have_gzip}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="2">.tar.gz</option>}; } if ($self->_get_var(q{have_azip}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="3">.zip</option>}; } $return .= q{</select> <label>Mode</label> <select name="download_mode"> <option value="auto">Auto</option> <option value="ascii">ASCII</option> <option value="binary" selected="selected">Binary</option> </select> <input type="submit" name="bdownload" value="Download" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_download.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_download.html" title="Download" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.symlink}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-symlink" class="hide"> <label>To</label> <input type="text" id="symlink_input" name="symlink_input" value="}; if ($self->_get_var(q{in.symlink_input}, { escape => 0, strict => 0, merge => 0 }) and $self->_get_var(q{message.linked}, { escape => 0, strict => 0, merge => 0 }) eq q{}) { $return .= $tmp if defined($tmp = $self->_get_var(q{in.symlink_input}, { escape => $escape, strict => $strict })); } $return .= q{" class="text" /> <input type="button" name="button-browse" value="Browse..." class="button" /> <input type="submit" name="bsymlink" value=" Create Symlink " class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_symlink.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_symlink.html" title="Symlink" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.copy}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-copy" class="hide"> <label>To</label> <input type="text" id="copy_input" name="copy_input" value="" class="text" /> <input type="button" name="button-browse" value="Browse..." class="button" /> <input type="submit" name="button-copy" value=" Copy " class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_copy.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_copy.html" title="Copy" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.move}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-move" class="hide"> <label>To</label> <input type="text" id="move_input" name="move_input" value="}; if ($self->_get_var(q{in.move_input}, { escape => 0, strict => 0, merge => 0 }) and $self->_get_var(q{message.copied}, { escape => 0, strict => 0, merge => 0 }) eq q{}) { $return .= $tmp if defined($tmp = $self->_get_var(q{in.move_input}, { escape => $escape, strict => $strict })); } $return .= q{" class="text" /> <input type="button" name="button-browse" value="Browse..." class="button" /> <input type="submit" name="button-move" value=" Move " class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_move.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_move.html" title="Move" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.rename}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-rename" class="hide"> <label>To</label> <input type="text" id="rename_input" name="rename_input" value="}; if ($self->_get_var(q{in.rename_input}, { escape => 0, strict => 0, merge => 0 }) and $self->_get_var(q{message.renamed}, { escape => 0, strict => 0, merge => 0 }) eq q{}) { $return .= $tmp if defined($tmp = $self->_get_var(q{in.rename_input}, { escape => $escape, strict => $strict })); } $return .= q{" class="text" /> <input type="submit" name="bmove" value=" Rename " class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_rename.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_rename.html" title="Rename" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.compress}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-compress" class="hide"> <label>To</label> <input type="text" id="compress_input" name="compress_input" value="" class="text" /> <select name="compress_mode"> <option value="1">.tar</option> }; if ($self->_get_var(q{have_gzip}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="2">.tar.gz</option>}; } if ($self->_get_var(q{have_azip}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<option value="3">.zip</option>}; } $return .= q{</select> <input type="submit" name="bcompress" value=" Create File " class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_compress.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_compress.html" title="Compress" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.chmod}, { escape => 0, strict => 0, merge => 0 })) { unless ($self->_get_var(q{mswin}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-chmod" class="hide"> <div id="group" class="clear"> <div class="group"> <span>User: </span> <input type="checkbox" id="ur" name="ur" value="r" class="checkbox" /> <label for="ur" title="read">r</label> <input type="checkbox" id="uw" name="uw" value="w" class="checkbox" /> <label for="uw" title="write">w</label> <input type="checkbox" id="ux" name="ux" value="x" class="checkbox" /> <label for="ux" title="execute">x</label> </div> <div class="group"> <span>Group: </span> <input type="checkbox" id="gr" name="gr" value="r" class="checkbox" /> <label for="gr" title="read">r</label> <input type="checkbox" id="gw" name="gw" value="w" class="checkbox" /> <label for="gw" title="write">w</label> <input type="checkbox" id="gx" name="gx" value="x" class="checkbox" /> <label for="gx" title="execute">x</label> </div> <div class="group"> <span>Other: </span> <input type="checkbox" id="or" name="or" value="r" class="checkbox" /> <label for="or" title="read">r</label> <input type="checkbox" id="ow" name="ow" value="w" class="checkbox" /> <label for="ow" title="write">w</label> <input type="checkbox" id="ox" name="ox" value="x" class="checkbox" /> <label for="ox" title="execute">x</label> </div> <div class="label"> <b>Or</b><br /><span style="font-size: 9px">(in octal notation)</span> </div> <div> <input type="text" id="chmod_input" name="chmod_input" value="" maxlength="4" class="text" /> <input type="checkbox" id="opt_recursive" name="chmod_recursive" value="1" class="chmod-recursive" /><label for="opt_recursive">Recursive</label> <input type="submit" name="bchmod" value="Chmod" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_chmod.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_chmod.html" title="Chmod" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> </div> </div> }; } } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.tail}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-tail" class="hide"> <label>Lines</label> <input type="text" id="tail_input" name="tail_input" value="}; if ($self->_get_var(q{in.tail_input}, { escape => 0, strict => 0, merge => 0 })) { $return .= $tmp if defined($tmp = $self->_get_var(q{in.tail_input}, { escape => $escape, strict => $strict })); } else { $return .= q{25}; } $return .= q{" class="text short-text" /> <select name="tail_retime"> <option value="">Refresh</option> <option value="2"}; if ($self->_get_var(q{in.tail_retime}, { escape => 0, strict => 0, merge => 0 }) == 2) { $return .= q{ selected="selected"}; } $return .= q{>2</option> <option value="5"}; if ($self->_get_var(q{in.tail_retime}, { escape => 0, strict => 0, merge => 0 }) == 5) { $return .= q{ selected="selected"}; } $return .= q{>5</option> <option value="10"}; if ($self->_get_var(q{in.tail_retime}, { escape => 0, strict => 0, merge => 0 }) == 10) { $return .= q{ selected="selected"}; } $return .= q{>10</option> <option value="30"}; if ($self->_get_var(q{in.tail_retime}, { escape => 0, strict => 0, merge => 0 }) == 30) { $return .= q{ selected="selected"}; } $return .= q{>30</option> <option value="50"}; if ($self->_get_var(q{in.tail_retime}, { escape => 0, strict => 0, merge => 0 }) == 50) { $return .= q{ selected="selected"}; } $return .= q{>50</option> <option value="60"}; if ($self->_get_var(q{in.tail_retime}, { escape => 0, strict => 0, merge => 0 }) == 60) { $return .= q{ selected="selected"}; } $return .= q{>60</option> </select> <input type="submit" name="btail" value="Tail" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_tail.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_tail.html" title="Tail" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> }; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.diff}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{ <div id="cmd-diff" class="hide"> <label>With file</label> <input type="text" id="diff_input" name="diff_input" value="}; if ($self->_get_var(q{in.diff_input}, { escape => 0, strict => 0, merge => 0 })) { $return .= $tmp if defined($tmp = $self->_get_var(q{in.diff_input}, { escape => $escape, strict => $strict })); } $return .= q{" class="text" /> <input type="button" name="button-browse" value="Browse..." class="button" /> <input type="submit" name="bdiff" value="Diff" class="submit" /> <a href="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_diff.html" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{cfg.cgi_url}, { escape => $escape, strict => $strict })); $return .= q{?}; $return .= $tmp if defined($tmp = $self->_get_var(q{hidden_query}, { escape => $escape, strict => $strict })); $return .= q{;page=help_diff.html" title="Diff" class="help"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/question-mark2.gif}); $return .= q{" alt="Question" /></a> </div> }; } $return .= q{</div> </div> <table class="foldertab"> <tr> <th class="selectbox"><input type="checkbox" name="checkall" value="checkall" /></th> <th class="icon"></th> <th class="name"><a href="#" rel="name">NAME</a></th> <th class="size"><a href="#" rel="size">SIZE</a></th> <th class="type"><a href="#" rel="desc">TYPE</a></th> <th class="modified"><a href="#" rel="date">MODIFIED</a></th>}; unless ($self->_get_var(q{mswin}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<th class="owner"><a href="#" rel="owner">Owner</a></th>}; } unless ($self->_get_var(q{mswin}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<th class="permission"><a href="#" rel="perm">Permissions</a></th>}; } $return .= q{<th class="scrollbar"></th> </tr> </table> <div class="contentframe"> <table class="foldertab"> </table> </div> </div> </div> </div> <div class="shadowbottom"><div class="shadowbottomleft"></div><div class="shadowbottomright"></div></div> </div> </div> </div> </form> </div> <div id="wrapper-footer"> <div id="contentfooter" class="clear">}; if ($self->_get_var(q{session.user.allowed_space}, { escape => 0, strict => 0, merge => 0 }) and $self->_get_var(q{space.usage}, { escape => 0, strict => 0, merge => 0 }) > 0) { $return .= q{ <div id="usage">}; if ($self->_get_var(q{space.usage}, { escape => 0, strict => 0, merge => 0 }) > 0 and $self->_get_var(q{space.usage}, { escape => 0, strict => 0, merge => 0 }) <= 100) { $return .= q{ <div class="bar" title="You are using }; $return .= $tmp if defined($tmp = $self->_get_var(q{space.usage}, { escape => $escape, strict => $strict })); $return .= q{% of your }; $return .= $self->_call_func('GT::FileMan::Commands::friendly_size', 1, 0, $tags->{q{space.allowed}}); $return .= q{ limit"> <div class="}; if ($self->_get_var(q{space.usage}, { escape => 0, strict => 0, merge => 0 }) >= 80) { $return .= q{used}; } else { $return .= q{waring}; } $return .= q{" style="width: }; $return .= $tmp if defined($tmp = $self->_get_var(q{space.usage}, { escape => $escape, strict => $strict })); $return .= q{%"></div> </div> }; } $return .= q{</div> }; } $return .= q{<div class="summary"></div> <div class="status"> </div> </div> }; {; #Including /data/config/fileman/templates/luna/include_footer.html $return .= q{<hr class="hide" /> <div id="footer" class="clear"> <a href="http://www.gossamer-threads.com"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{poweredby.gif}); $return .= q{" alt="Powered by Gossamer FileMan" /></a> <p>© 2008 Gossamer Threads Inc.</p> </div> }; } # Done include $return .= q{ </div> <div id="modal-dialog" class="modal-dialog"></div> <div id="waiting-dialog" class="modal-dialog"></div> <ul id="primarynav" class="primarynav">}; if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.search}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<li class="navitem"><a href="#" rel="search" class="navlink">Search</a></li>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.replace}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<li class="navitem"><a href="#" rel="replace" class="navlink">Replace</a></li>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.upload}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<li class="navitem"><a href="#" rel="upload" class="navlink">Upload</a></li>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.newfile}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<li class="navitem"><a href="#" rel="file" class="navlink">New File</a></li>}; } if ($self->_get_var(q{noauth}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.type}, { escape => 0, strict => 0, merge => 0 }) or $self->_get_var(q{session.user.permission.makedir}, { escape => 0, strict => 0, merge => 0 })) { $return .= q{<li class="navitem"><a href="#" rel="makedir" class="navlink">New Folder</a></li>}; } $return .= q{<li class="navitem"> <a href="#" class="navlink sublink">Help</a> <ul> <li><a href="#" rel="help">Help Contents</a></li>}; $return .= q{<li><a href="http://www.gossamer-threads.com/perl/gforum/gforum.cgi" target="GForum">Forum Suport</a></li>}; $return .= q{<li><hr /></li>}; $return .= q{<li><a href="#" rel="about">About FileMan</a></li>}; $return .= q{<li><a href="http://www.gossamer-threads.com" target="GT">Gossamer Threads Inc.</a></li>}; $return .= q{</ul> </li> </ul> <ul id="breadcrumbsnav" class="primarynav">}; if ($self->_get_var(q{session.user.accesses_loop.length}, { escape => 0, strict => 0, merge => 0 }) > 1) { $return .= q{ <li class="navitem"> <a href="#"><img src="}; $return .= $self->_call_func('GT::FileMan::image_url', 1, 0, q{/icons/arrow.gif}); $return .= q{" alt="Accesses" /></a> <ul id="uaccess">}; { my $orig = {%{$self->{VARS}}}; my %loop_set; LOOP1: { my $loop_var = $self->_raw_value(q{session.user.accesses_loop}); my $loop_type = ref $loop_var; if ($loop_type eq 'CODE' or $loop_type eq 'ARRAY') { my $next; my $row_num = 0; my $i = (0 and $loop_type eq 'ARRAY') ? $#$loop_var : 0; my $current = $loop_type eq 'CODE' ? $loop_var->() : $loop_var->[0 ? $i-- : $i++]; if ($loop_type eq 'CODE' and ref $current eq 'ARRAY') { $loop_type = 'ARRAY'; $loop_var = $current; $i = 0 ? $#$loop_var : 0; $current = $loop_var->[0 ? $i-- : $i++]; } while (defined $current) { if ($loop_type eq 'CODE') { $next = $loop_var->(); } else { $next = (0 and $i < 0) ? undef : $loop_var->[0 ? $i-- : $i++]; } my $copy = {%{$self->{VARS}}}; for (keys %loop_set) { $copy->{$_} = $orig->{$_}; delete $loop_set{$_}; } for (qw/rownum row_num first last inner even odd loop_value/, ref $current eq 'HASH' ? (keys %$current) : ()) { $loop_set{$_} = 1 } $copy->{row_num} = $copy->{rownum} = ++$row_num; $copy->{first} = ($row_num == 1) || 0; $copy->{last} = (not defined $next) || 0; $copy->{inner} = (!$copy->{first} and !$copy->{last}) || 0; $copy->{even} = ($row_num % 2 == 0) || 0; $copy->{odd} = (not $copy->{even}) || 0; if (ref $current ne 'HASH') { $current = { loop_value => $current } } else { $loop_set{loop_value} = 1; $copy->{loop_value} = $current } for (keys %$current) { $copy->{$_} = $current->{$_} } $self->{VARS} = $copy; $current = $next; $return .= q{<li><a href="#" rel="}; $return .= $tmp if defined($tmp = $self->_get_var(q{disp}, { escape => $escape, strict => $strict })); $return .= q{">}; $return .= $tmp if defined($tmp = $self->_get_var(q{disp}, { escape => $escape, strict => $strict })); $return .= q{</a></li>}; } } } for (keys %loop_set) { $self->{VARS}->{$_} = $orig->{$_} } } $return .= q{</ul> </li> }; } $return .= q{<li id="bread-crumbs" class="navitem"></li> </ul> </div> }; return \$return; }