archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity
Files
namespaces-fastcgi
oddmuse/modules/webapp.pl

202 lines
5.9 KiB
Perl
Raw Permalink Normal View History

"use strict;" in modules (some modules have problems)
2015-03-27 03:01:01 +02:00
use strict;
use v5.10 everywhere + enabled test in meta.t
2015-08-18 10:48:03 +02:00
use v5.10;
"use strict;" in modules (some modules have problems)
2015-03-27 03:01:01 +02:00
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
=head1 NAME
webapp - an Oddmuse module that provides offline wiki browsing
=head1 SYNOPSIS
This module makes a number of files available. These files make up a
web application which will then download the rest of the wiki. The
B<Administration> menu will contain a link to the web application.
=head1 INSTALLATION
Installing a module is easy: Create a modules subdirectory in your
data directory, and put the Perl file in there. It will be loaded
automatically.
=cut
offline.pl and webapp.pl: link wiki page
2014-08-22 08:49:40 +02:00
AddModuleDescription('webapp.pl', 'Offline Extension');
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
No more "use vars"!
2015-04-10 13:31:28 +03:00
our ($q, %IndexHash, $ScriptName, $FullUrl, $StyleSheet, $StyleSheetPage, $SurgeProtection, @MyAdminCode, @MyInitVariables, $LastUpdate);
"use strict;" in modules (some modules have problems)
2015-03-27 03:01:01 +02:00
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
push(@MyAdminCode, \&WebAppMenu);
sub WebAppMenu {
my ($id, $menuref, $restref) = @_;
push(@$menuref,
ScriptLink('webapp/index.html',
T('Web application for offline browsing'),
'webapp'));
}
push(@MyInitVariables, \&InitWebApp);
my $jquery = 'http://ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js';
sub InitWebApp {
if ($q->path_info =~ /^\/webapp'/) {
# HACK ALERT: In order to allow the app to cache all the pages, we
# need to disable surge protection for the offline pages.
$SurgeProtection = 0;
}
my $manifest = ScriptUrl('webapp/MANIFEST');
my $oddmuse = ScriptUrl('webapp/oddmuse.js');
if ($q->path_info eq '/webapp/index.html') {
# Switch to HTML5 add link to the manifest listing all the pages
print GetHttpHeader('text/html', $LastUpdate);
print <<EOT;
<!doctype html>
<html lang="en" manifest="$manifest">
<head>
<meta name="apple-mobile-web-app-capable" content="yes" />
<meta name="apple-mobile-web-app-status-bar-style" content="black" />
<meta charset="utf-8">
<title>HomePage</title>
<script type="text/javascript" charset="utf-8" src="$jquery" ></script>
<script type="text/javascript" charset="utf-8" src="$oddmuse" ></script>
</head>
<body>
<h1>HomePage</h1>
<p>Caching the local wiki!</p>
<p id="cache">Caching <span id="page">0</span>/<span id="total">0</span>.</p>
<p id="status">Enable Javascript and reload this page in order to get started.</p>
</body>
</html>
EOT
exit;
} elsif ($q->path_info eq '/webapp/MANIFEST') {
# List all the pages necessary for the offline application.
print GetHttpHeader('text/cache-manifest');
print "CACHE MANIFEST\n";
# index.html
print ScriptUrl('webapp/index.html') . "\n";
# CSS file
if ($StyleSheet) {
Full support for arrayref in $StyleSheet
2015-10-26 01:03:42 +02:00
print ref $StyleSheet ? join("\n", @$StyleSheet) . "\n" : "$StyleSheet\n";
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
} elsif ($IndexHash{$StyleSheetPage}) {
print "$ScriptName?action=browse;id=" . UrlEncode($StyleSheetPage)
. ";raw=1;mime-type=text/css\n";
} else {
print "http://www.oddmuse.org/oddmuse.css\n";
}
# javascript
print "$jquery\n";
print "$oddmuse\n";
# default
print "NETWORK:\n";
print "*\n";
exit;
} elsif ($q->path_info eq '/webapp/oddmuse.js') {
print GetHttpHeader('application/javascript', $LastUpdate);
Fix quoting issues.
2012-01-31 11:10:40 +00:00
my $quoted_script = quotemeta($ScriptName);
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
print <<EOT;
var wiki = (function() {
var pages;
var log = function(msg) {
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$("#status").text(msg);
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
}
var log_html = function(msg) {
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$("#status").html(msg);
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
}
var log_node = function(msg) {
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$("#status").empty();
\$("#status").append(msg);
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
}
var get_pages = function(data) {
Fix quoting issues.
2012-01-31 11:10:40 +00:00
pages = data.split("\\n");
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
var count = 1;
pages.pop(); // after the last newline there is nothing
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$("#total").text(pages.length);
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
var get_page = function(i, id) {
if (id != "") {
var store_page = function(data) {
window.localStorage.setItem(id, data);
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$("#page").text(count++);
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
}
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$.get("$FullUrl",
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
{action: "browse", id: id},
store_page);
}
}
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$.each(pages, get_page);
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
window.localStorage.setItem(" pages", pages.join(" "));
}
var download = function() {
log("Getting list of pages...");
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$.get("$FullUrl",
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
{action: "index", raw: "1"},
get_pages);
log_html('<p><a href="javascript:wiki.list()">List</a> the pages in local storage.');
}
var initialize = function() {
Fix quoting issues.
2012-01-31 11:10:40 +00:00
pages = window.localStorage.getItem(" pages");
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
if (pages) {
Fix quoting issues.
2012-01-31 11:10:40 +00:00
pages = pages.split(" ");
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
log_html('<p>Found pages in local storage. <a href="javascript:wiki.list()">List</a> the pages in local storage. <a href="javascript:wiki.download()">Download</a> a fresh copy.');
} else {
download();
}
};
var list = function() {
var ul = document.createElement('ul');
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$.each(pages, function(i, id) {
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
var li = document.createElement('li');
var a = document.createElement('a');
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$(a).attr({href: "javascript:wiki.browse('" + id + "')"});
\$(a).text(id);
\$(li).append(a);
\$(ul).append(li);
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
});
log_node(ul);
}
var browse = function(id) {
Fix quoting issues.
2012-01-31 11:10:40 +00:00
var re = /$quoted_script\\/([^\\/?]+)/;
\$('*').html(window.localStorage.getItem(id));
\$('a[href^="$ScriptName"]').each(function(i, a) {
var match = re.exec(\$(a).attr('href'));
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
if (match) {
var id = unescape(match[1]);
if (pages.indexOf(id) >= 0) {
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$(a).attr('href', "javascript:wiki.browse('" + id + "')");
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
}
}
});
}
return {
initialize: initialize,
download: download,
list: list,
browse: browse,
};
}());
Fix quoting issues.
2012-01-31 11:10:40 +00:00
\$(document).ready(function(evt) {
And another attempt at an offline app.
2011-12-31 03:04:35 +00:00
wiki.initialize();
});
EOT
exit;
}
};
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2011 Alex Schroeder <alex@gnu.org>
This program is free software: you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free Software
Foundation, either version 3 of the License, or (at your option) any later
version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with
this program. If not, see <http://www.gnu.org/licenses/>.
=cut
Copy Permalink