The OP's post about having the HTTPS-Everywhere add on prompted me to write a perl script that would take my exported bookmarks.html file and generate the corresponding .xml files for the addon. It wasn't doing much so then I come to find out that the addon isn't supported in my version of FF.
Anyhow, here's the script and I *think* it generates the files correctly. It's my first perl program that actually -does- something so keep that in mind please.
It's easy enough to run and I ran it with the bookmarks.html file in the same dir as the program. The .xml files are generated in the same location. You'll have to move them by whatever means you're comfortable with.
Code:
#!/usr/bin/perl -w
use strict;
#
# Script to parse FF/Iceweasel bookmarks.html
# file into xml file(s) for HTTPS-Everywhere
#
#
# Variables
#
my $line = '';
my $ruleset_name = '';
my $rule_from = '';
my $rule_to = '';
my $temp_name = '';
my $xml_fname = '';
if ( ! $ARGV[0] ) {
print "Usage: httpsE.pl /path/bookmarks.html\n";
exit 1;
}
open FILE, "<", "$ARGV[0]" or die $!;
while ( $line = <FILE> ) {
$line =~ s/^.*<DT><A HREF="//;
$line =~ s/" ADD_DATE.*$//;
if ( $line =~ /^http:.*$/ ) {
$temp_name = $line;
$temp_name =~ s/^http:\/\/www\.//;
$temp_name =~ s/^http:\/\///;
$temp_name =~ s/\/.*$//;
$temp_name =~ s/\n//;
$ruleset_name = "<ruleset name=\""."$temp_name"."\">";
$rule_from = "<rule from=\"^".$line."\"";
$rule_from =~ s/\n//;
$rule_to =~ " to=\""."$line";
$xml_fname = $temp_name.".xml";
#
# Create the xml file and write the data.
#
open(XML_FILE, ">$xml_fname");
print "$xml_fname\n";
print XML_FILE "$ruleset_name\n";
$temp_name = $line;
$temp_name =~ s/http/https/;
$rule_to = " to=\""."$temp_name\"";
$rule_to =~ s/\n//;
$rule_from =~ s/\./\\./g;
print XML_FILE "$rule_from "."$rule_to/>\n";
print XML_FILE "</ruleset>\n";
close(XML_FILE);
}
}
close FILE;
exit 0
