module UBBParser

# File lib/ubbparser.rb, line 49
def attrib_str_to_hash(attrib_str)
        result = {:class_attrib_str => attrib_str.gsub(/^=/, '')}

        attrib_str.insert(0, 'default') if (attrib_str[0] == '=')
        attrib_str.scan(/((\S*)=("[^"]*"|'[^']*'|\S*))/) { |_, key, val|
                result[(key.gsub(/-/, '_').to_sym rescue key)] = val.gsub(/^["']/, '').gsub(/["']$/, '')
        }
        return result
end

# File lib/ubbparser.rb, line 64
def hash_to_attrib_str(hash, options = {})
        hash.delete_if { |k, _| !options[:allowed_keys].include?(k) } if options[:allowed_keys].is_a?(Array)
        hash.delete_if { |k, _| options[:denied_keys].include?(k) } if options[:denied_keys].is_a?(Array)
        return hash.map { |k, v| v = v.to_s.gsub(/\\|'/) { |c| "\\#{c}" }; "#{k}='#{v}'" }.join(' ')
end

# File lib/ubbparser.rb, line 32
def inline_elements
        %w(a abbr address area audio b cite code del details dfn command datalist em font i iframe img input ins kbd
                 label legend link mark meter nav optgroup option q small select source span strong sub summary sup tbody td time var)
end

# File lib/ubbparser.rb, line 80
def parse(text, parse_options = {})
        parse_options[:strip_ubb] ||= false
        result = ''
        scnr = StringScanner.new(text)
        parse_options.each { |k, v| v.to_s.gsub(/-/, '_').gsub(/[^\w]+/, '') if (k.to_s.start_with?('class_')); v }
        until scnr.eos?
                untagged_text = CGI.escapeHTML(scnr.scan(/[^\[]*/))

                # check for untagged url's
                uri_pattern = /((([a-z]+)\:\/\/)|(www))[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,4}(:[a-zA-Z0-9]*)?\/?([a-zA-Z0-9\-\._\?\,\'\/\\\+&%\$#\=~])*[^\.\,\)\(\s]*/
                untagged_text.gsub!(uri_pattern) { |url,| render_url(url, {}, parse_options) }

                # check for untagged emails
                email_pattern = /(([a-zA-Z0-9_\-\.\+]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?))/
                untagged_text.gsub!(email_pattern) { |email,| render_email(email, {}, parse_options) }

                # convert newlines to breaks
                untagged_text.gsub!(/\n/, '<br />') if (!parse_options.include?(:convert_newlines) || parse_options[:convert_newlines])

                result << untagged_text

                # check for the upcoming ubb tag and process it (if valid tag)
                if scnr.match?(/\[/)
                        scnr.skip(/\[/)
                        code = scnr.scan(/[\w-]*/)
                        method_name = ('render_' + code.to_s.gsub(/-/, '_')).to_sym
                        if ((scnr.eos?) || (code == "") || (!respond_to?(method_name)))
                                result << '[' + code
                        else
                                attributes = attrib_str_to_hash(scnr.scan(/[^\]]*/))
                                scnr.skip(/]/)
                                inner_text = scnr.scan_until(/\[\/#{code}\]/)
                                if inner_text.nil? #no closing tag found
                                        inner_text = scnr.rest
                                        scnr.terminate
                                else
                                        inner_text.chomp!("[/#{code}]")
                                end
                                method_result = send(method_name, inner_text, attributes, parse_options).to_s
                                result << method_result
                                last_html_tag = method_result.match('</(\w+)>$').to_s.gsub(/[^\w]/, '')
                                scnr.skip(/\n?/) unless (inline_elements.include?(last_html_tag)) # Skip next newline if last tag was not inline element
                        end
                end
        end
        return result
end

# File lib/ubbparser.rb, line 40
def set_file_url_convert_method(callback_method)
        @@file_url_convert_method = callback_method
end

# File lib/ubbparser.rb, line 128
def strip_ubb(text, parse_options = {})
        parse_options[:strip_ubb] = true
        return parse(text, parse_options)
end

# File lib/ubbparser.rb, line 154
def render_anchor(inner_text, attributes = {}, parse_options = {})
        name = attributes[:default] || ''
        inner_text.gsub!(/\\|'/) { |c| "\\#{c}" }
        css_class = parse_options[:class_anchor] || 'ubb-anchor'
        "<a name='#{name}' class='#{css_class}'>#{parse(inner_text, parse_options)}</a>"
end

# File lib/ubbparser.rb, line 163
def render_audio(inner_text, attributes = {}, parse_options = {})
        # Not yet implemented
end

# File lib/ubbparser.rb, line 169
def render_b(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<strong>#{parse(inner_text, parse_options)}</strong>"
end

# File lib/ubbparser.rb, line 176
def render_br(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<br />#{parse(inner_text, parse_options)}"
end

# File lib/ubbparser.rb, line 183
def render_bullets(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        items = inner_text.split(/\n/)
        items.delete_if { |item| item.strip == '' }
        items.map! { |item| '<li>' + parse(item, parse_options) + '</li>' }
        css_class = parse_options[:class_list] || 'ubb-list'
        return (items.empty?) ? '' : "<ul class='#{css_class}'>" + items.join('') + '</ul>'
end

# File lib/ubbparser.rb, line 194
def render_center(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<div style='text-align: center'>#{parse(inner_text, parse_options)}</div>"
end

# File lib/ubbparser.rb, line 201
def render_class(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        classes = attributes[:class_attrib_str].to_s.gsub(/'/, "\\'")
        "<div class='#{classes}'>#{parse(inner_text, parse_options)}</div>"
end

# File lib/ubbparser.rb, line 209
def render_clear(inner_text, attributes = {}, parse_options = {})
        return "" if parse_options[:strip_ubb]
        "<div style='clear: both'></div>"
end

# File lib/ubbparser.rb, line 230
def render_code(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        css_class = parse_options[:class_code] || 'ubb-code'
        "<pre class='#{css_class}'>#{inner_text}</pre>"
end

# File lib/ubbparser.rb, line 216
def render_color(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        color = attributes[:default].gsub(/'/, "\\'")
        "<div style='color:#{color}'>#{parse(inner_text, parse_options)}</div>"
end

# File lib/ubbparser.rb, line 224
def render_comment(inner_text, attributes = {}, parse_options = {})
        ''
end

# File lib/ubbparser.rb, line 239
def render_csv(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        head_cells = body_cells = ''
        cell_tag = (attributes[:has_header]) ? 'th' : 'td'
        lines = inner_text.gsub(/(^\n|\n*$)/, '').split(/\n/)
        sep_char = (attributes[:sepchar] || ',')
        csv_pattern = /(\"[^\"]*\"|\'[^\']*\'|[^\n\r#{sep_char}]+)[#{sep_char}\n]?/
        lines.each { |line|
                cells = ''
                line.scan(csv_pattern) { |item|
                        cells += "<#{cell_tag}>#{item[0]}</#{cell_tag}>"
                }
                cells = "<tr>#{cells}</tr>"
                if cell_tag == 'th'
                        head_cells += cells
                else
                        body_cells += cells
                end
                cell_tag = 'td'
        }
        result = ''
        if !head_cells.empty? || !body_cells.empty?
                css_class = parse_options[:class_csv] || 'ubb-csv ubb-table'
                result = "<table class='#{css_class}'>"
                result += "<thead>#{head_cells}</thead>" unless head_cells.empty?
                result += "<tbody>#{body_cells}</tbody>"
                result += '</table>'
        end
        return result
end

# File lib/ubbparser.rb, line 275
    def render_email(inner_text, attributes = {}, parse_options = {})
            return parse(inner_text, parse_options) if parse_options[:strip_ubb]
            css_class = (parse_options[:class_email] || 'ubb-email').to_s.strip
            inner_text = parse(inner_text, parse_options) if !attributes[:default].nil?
    email = (attributes[:default] || inner_text)
    if (!is_email?(email))
    result = "<span class='#{css_class} ubbparser-error'>UBB error: invalid email address #{email}</span>"
elsif ((parse_options.has_key?(:protect_email) && !parse_options[:protect_email]) || (attributes[:protected] == "false"))
    result = "<a href='mailto:#{email}' class='#{css_class}'>#{inner_text}</a>"
else
    username, domain = email.split("@", 2)
    id = "ubb-email-" + SecureRandom.hex(16)

    # Some generic javascript so every browser can parse this (instantly), regardless of used framework
    if (inner_text == email)
                title = "Protected email address"
                js_title = "email"
        else
                            title = inner_text
                            js_title = "\"#{inner_text}\""
                    end
                    script = "<script type='text/javascript'>obj=document.getElementById(\"#{id}\");email=obj.getAttribute(\"data-username\")+\"@\"+obj.getAttribute(\"data-domain\");obj.href=\"mailto:\"+email;obj.innerHTML=#{js_title}</script>"
                    result = "<a id='#{id}' class='#{css_class}' href='#' data-username='#{username}' data-domain='#{domain}'>#{title}</a>#{script}"
            end
            return result
    end

# File lib/ubbparser.rb, line 304
def render_h1(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<h1>#{parse(inner_text, parse_options)}</h1>"
end

# File lib/ubbparser.rb, line 311
def render_h2(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<h2>#{parse(inner_text, parse_options)}</h2>"
end

# File lib/ubbparser.rb, line 318
def render_h3(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<h3>#{parse(inner_text, parse_options)}</h3>"
end

# File lib/ubbparser.rb, line 325
def render_h4(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<h4>#{parse(inner_text, parse_options)}</h4>"
end

# File lib/ubbparser.rb, line 332
def render_h5(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<h5>#{parse(inner_text, parse_options)}</h5>"
end

# File lib/ubbparser.rb, line 339
def render_h6(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<h6>#{parse(inner_text, parse_options)}</h6>"
end

# File lib/ubbparser.rb, line 346
def render_hr(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<hr />#{parse(inner_text, parse_options)}"
end

# File lib/ubbparser.rb, line 353
def render_i(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<em>#{parse(inner_text, parse_options)}</em>"
end

# File lib/ubbparser.rb, line 360
def render_iframe(inner_text, attributes = {}, parse_options = {})
        return inner_text if parse_options[:strip_ubb]
        src = inner_text
        src = 'http://' + src if (src.match(/^www\./))
        src.gsub!(/\\|'/) { |c| "\\#{c}" }
        attributes[:src] = inner_text
        attributes[:class] = attributes[:class] || parse_options[:class_iframe] || 'ubb-iframe'
        attrib_str = hash_to_attrib_str(attributes, :allowed_keys => [:src, :class, :frameborder, :marginwidth, :marginheight, :width, :height])
        return "<iframe #{attrib_str}></iframe>"
end

# File lib/ubbparser.rb, line 373
def render_ignore(inner_text, attributes = {}, parse_options = {})
        inner_text
end

# File lib/ubbparser.rb, line 380
def render_img(inner_text, attributes = {}, parse_options = {})
        return inner_text if parse_options[:strip_ubb]
        url = inner_text
        url = @@file_url_convert_method.call(url) unless @@file_url_convert_method.nil?
        attributes[:src] = url.gsub(/\\|'/) { |c| "\\#{c}" }
        attributes[:alt] ||= ''

        attributes[:class] = attributes[:class] || parse_options[:class] || 'ubb-img'
        attrib_str = hash_to_attrib_str(attributes, :allowed_keys => [:src, :alt, :styles, :class])
        return "<img #{attrib_str} />"
end

# File lib/ubbparser.rb, line 394
def render_img_left(inner_text, attributes = {}, parse_options = {})
        return inner_text if parse_options[:strip_ubb]
        attributes[:styles] = 'float: left; margin: 0px 10px 10px 0px'
        attributes[:class] = parse_options[:class_img_left] || 'ubb-img-left'
        render_img(inner_text, attributes, parse_options)
end

# File lib/ubbparser.rb, line 403
def render_img_right(inner_text, attributes = {}, parse_options = {})
        return inner_text if parse_options[:strip_ubb]
        attributes[:styles] = 'float: left; margin: 0px 0px 10px 10px'
        attributes[:class] = parse_options[:class_img_right] || 'ubb-img-right'
        render_img(inner_text, attributes, parse_options)
end

# File lib/ubbparser.rb, line 412
def render_justify(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<div style='text-align: justify'>#{parse(inner_text, parse_options)}</div>"
end

# File lib/ubbparser.rb, line 419
def render_left(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<div style='text-align: left'>#{parse(inner_text, parse_options)}</div>"
end

# File lib/ubbparser.rb, line 426
def render_list(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        items = inner_text.split(/\n/)
        items.delete_if { |item| item.strip == '' }
        items.map! { |item| '<li>' + parse(item, parse_options) + '</li>' }
        return (items.empty?) ? '' : "<ol class='#{parse_options[:class_list].to_s.strip}'>" + items.join('') + '</ol>'
end

# File lib/ubbparser.rb, line 436
def render_p(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        css_class = parse_options[:class_p] || 'ubb-p'
        "<p class='#{css_class}'>#{parse(inner_text, parse_options)}</p>"
end

# File lib/ubbparser.rb, line 444
def render_right(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<div style='text-align: right'>#{parse(inner_text, parse_options)}</div>"
end

# File lib/ubbparser.rb, line 452
def render_style(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        styles = attributes[:class_attrib_str].to_s.gsub(/'/, "\\'")
        "<div style='#{styles}'>#{parse(inner_text, parse_options)}</div>"
end

# File lib/ubbparser.rb, line 460
def render_table(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        css_class = parse_options[:class_table] || 'ubb-table'
        "<table class='#{css_class}'>#{parse(inner_text.gsub(/(^\n+)|(\n+$)/, ''), parse_options)}</table>"
end

# File lib/ubbparser.rb, line 468
def render_td(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<td>#{parse(inner_text, parse_options)}</td>"
end

# File lib/ubbparser.rb, line 475
def render_th(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<th>#{parse(inner_text, parse_options)}</th>"
end

# File lib/ubbparser.rb, line 482
def render_tr(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        "<tr>#{parse(inner_text.gsub(/(^\n+)|(\n+$)/, ''), parse_options)}</tr>"
end

# File lib/ubbparser.rb, line 489
def render_u(inner_text, attributes = {}, parse_options = {})
        "<u>#{parse(inner_text, parse_options)}</u>"
end

# File lib/ubbparser.rb, line 499
def render_url(inner_text, attributes = {}, parse_options = {})
        return parse(inner_text, parse_options) if parse_options[:strip_ubb]
        inner_text = parse(inner_text, parse_options) if !attributes[:default].nil?
        url = (attributes[:default] || inner_text)
        url = 'http://' + url if (url.start_with?('www.'))
        target = (url.match(/^(http|https):\/\//)) ? " target='_blank'" : ''
        url = @@file_url_convert_method.call(url) unless @@file_url_convert_method.nil?
        url.to_s.gsub!(/\\|'/) { |c| "\\#{c}" }
        css_class = parse_options[:class_url] || 'ubb-url'
        return "<a href='#{url}' class='#{css_class}'#{target}>#{inner_text}</a>"
end

# File lib/ubbparser.rb, line 542
def render_video(inner_text, attributes = {}, parse_options = {})
        attributes[:class] = "#{attributes[:class]} #{parse_options[:class_zideo]}"
        url = inner_text
        if !url.match(/zideo\.nl/).nil?
                return render_zideo(inner_text, attributes, parse_options)
        elsif (!url.match(/[0-9]{5,}/).nil?) || (!url.match(/vimeo/).nil?)
                return render_vimeo(inner_text, attributes, parse_options)
        elsif (!url.match(/youtu/).nil?) || (!url.match(/^[^\?&]+\{11}$/).nil?)
                return render_youtube(inner_text, attributes, parse_options)
        else
                return 'Unknown video'
        end
end

# File lib/ubbparser.rb, line 513
def render_vimeo(inner_text, attributes = {}, parse_options = {})
        return inner_text if parse_options[:strip_ubb]
        attributes[:width] ||= 500
        attributes[:height] ||= 281
        attributes[:class] = parse_options[:class_vimeo] || 'ubb-vimeo'
        video_id = (inner_text.scan(/[0-9]{5,}/).to_a)[0].to_s
        src = "http://player.vimeo.com/video/#{video_id}"
        return render_iframe(src, attributes, parse_options)
end

# File lib/ubbparser.rb, line 525
def render_youtube(inner_text, attributes = {}, parse_options = {})
        return inner_text if parse_options[:strip_ubb]
        attributes[:width] ||= 560
        attributes[:height] ||= 315
        attributes[:class] = parse_options[:class_youtube] || 'ubb-youtube'
        if inner_text.include?("videoseries?list=")
                src = inner_text
        else
                videoid = !inner_text.match(/^[^\?\&]$/).nil? ? inner_text : inner_text.scan(/(\?|&)v=([^\&]*)/)[0][1]
                src = "https://www.youtube.com/embed/#{videoid}"
        end
        return render_iframe(src, attributes, parse_options)
end

# File lib/ubbparser.rb, line 558
def render_zideo(inner_text, attributes = {}, parse_options = {})
        return inner_text if parse_options[:strip_ubb]
        attributes[:width] ||= 480
        attributes[:height] ||= :auto
        attributes[:class] = parse_options[:class_zideo] || 'ubb-zideo'
        video_id = !inner_text.match(/^\w+$/).nil? ? inner_text : (inner_text.scan('/playzideo/(\w+)/').to_a)[1].to_s
        src = 'http://www.zideo.nl/zideomediaplayer.php?' + video_id
        return render_iframe(src, attributes, parse_options)
end

# File lib/ubbparser.rb, line 141
def is_email?(value)
        return false unless value.is_a?(String)
        return matches_regexp?(value, /^[-a-z0-9~!$%^&*_=+}{\'?]+(\.[-a-z0-9~!$%^&*_=+}{\'?]+)*@([a-z0-9_][-a-z0-9_]*(\.[-a-z0-9_]+)*\.(aero|arpa|biz|com|coop|edu|gov|info|int|mil|museum|name|net|org|pro|travel|mobi|[a-z][a-z])|([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}))(:[0-9]{1,5})?$/i)
end

# File lib/ubbparser.rb, line 148
def is_url?(value)
        return matches_regexp?(value, /^(http|https)\:\/\/([a-zA-Z0-9\.\-]+(\:[a-zA-Z0-9\.&%\$\-]+)*@)*((25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]{1}|[0-9])|localhost|([a-zA-Z0-9\-]+\.)*[a-zA-Z0-9\-]+\.(com|edu|gov|int|mil|net|org|biz|arpa|info|name|pro|aero|coop|museum|[a-zA-Z]{2}))(:[0-9]+)*(\/($|[a-zA-Z0-9\.\,\?\'\\\+&%\$#\=~_\-]+))*$/)
end

# File lib/ubbparser.rb, line 135
def matches_regexp?(value, regexp)
        return !value.to_s.match(regexp).nil?
end