1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
# Plowshare pastebin.com module
# Copyright (c) 2013 Plowshare team
#
# This file is part of Plowshare.
#
# Plowshare 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.
#
# Plowshare 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 Plowshare. If not, see <http://www.gnu.org/licenses/>.
MODULE_PASTEBIN_REGEXP_URL='http://\(www\.\)\?pastebin\.com/'
MODULE_PASTEBIN_LIST_OPTIONS="
COUNT,,count,n=COUNT,Take COUNT pastes when listing user folder. Default is 100 (first web page)."
MODULE_PASTEBIN_LIST_HAS_SUBFOLDERS=no
# Static function. Process a single note
# $1: pastebin url
pastebin_single_list() {
local URL=$1
local PAGE LINKS
if [ "${URL:0:1}" = '/' ]; then
URL="http://pastebin.com/raw.php?i=${URL#/}"
elif match '/[[:alnum:]]\+$' "$URL"; then
URL=$(echo "$URL" | replace 'pastebin.com/' 'pastebin.com/raw.php?i=')
elif ! match 'raw\.php?i=' "$URL"; then
log_error 'Bad link format'
return $ERR_FATAL
fi
PAGE=$(curl "$URL") || return
LINKS=$(parse_all . '\(https\?://[^[:space:]]\+\)' <<< "$PAGE") || return
# TODO: filter crappy links (length <15 chars, ...)
list_submit "$LINKS"
}
# List all links in a pastebin note
# $1: pastebin url
# stdout: list of links
pastebin_list() {
local -r URL=${1%/}
local PASTES PASTE
# User folder:
# - http://pastebin.com/u/username
if match '/u/[[:alnum:]]\+$' "$URL"; then
local HTML
HTML=$(curl "$URL") || return
if [ -n "$COUNT" ]; then
if (( COUNT > 100 )); then
COUNT=100
log_error "Too big integer value for --count, set it to $COUNT"
fi
else
COUNT=100
fi
log_debug "user folder: listing first $COUNT items (if available)"
PASTES=$(parse_all_attr 'title=.Public paste' href <<< "$HTML" | \
first_line $COUNT) || return
else
PASTES=$URL
fi
# Accepted link format
# - /xyz
# - http://pastebin.com/xyz
# - http://pastebin.com/raw.php?i=xyz
while IFS= read -r PASTE; do
pastebin_single_list "$PASTE" || continue
done <<< "$PASTES"
}
|
