root/feedmelinks/bin/hybrid-to-xml.pl

#!/usr/local/bin/perl

# convert from the delicious hybrid export format to valid XML

my $d = $ARGV[0];

print "<?xml version='1.0' standalone='yes'?>
<posts update='2007-02-27T15:32:34Z' user='fuck_compatibility'>
";

#format is DT link info, then DD link comment


$comment_delim = "__FML_COMMENT__";

$header = 1;

$last_link = "";
while( <> ) {
  if( $header ) { next unless ( /<DL>/ ); }
        $line = $_;
  $header = 0;
  next unless ( $line =~ /<(DT|DD)>/ );
  chomp( $line );

        # link info comes first...
        if( $line =~ /<DT>/ ) {
                $line =~ s/^<DT>//;
                $line =~ s/ LAST_VISIT="\d+" //;
                $line =~ s/ADD_DATE="\d+"//;
                $line =~ s/<A/  <post/;
                $line =~ s/A>/post>/;
                $line =~ s/HREF="/href="/;
                $line =~ s/TAGS="/tag="/;
                $line =~ s/>([^<]+)<.*$/\/>/;

                $name = $1;
                $name = escape_string( $name );

                # PLACEHOLDER TO REPLACE WITH REAL COMMENT IN NEXT BLOCK
                $name .= $comment_delim;

                $clean_modulo_tags = $line;
                $clean_modulo_tags =~ s/tag="[^"]+"/tag=""/;
                $tags = $line;
                $tags =~ s/tag="([^"]+)"/$1/;
                $tags = $1;
                $tags =~ s/,/ /g;
                $clean_modulo_tags =~ s/tag=""/tag="$tags"/;
                $clean_modulo_tags =~ s/" /" description="$name" /;
                
                $href = $clean_modulo_tags;
                $clean_modulo_tags =~ s/href="([^"]+)"//; #delete the old href="..."
                $href = make_safe_url( $1 ); # clean it
                $clean_modulo_tags =~ s/description="/href="$href" description="/; #stuff it back in
                $last_link = $clean_modulo_tags;
                
                # link COMMENTS come next:
        } else {
                $comment = $line;
                $comment =~ s/^<DD>//;
                $comment = escape_string( $comment );
                $last_link =~ s/$comment_delim/$comment_delim$comment/;
                print "$last_link\n";
        }
}

print "\n</posts>\n";

# for name and comments -- NOT url encoding
sub escape_string {
        my $s = $_[0];
        #print "name is now $s\n";
        $s =~ s/&([^a][^m][^p][^;])/&amp;$1/g;
        $s =~ s/&([^a])/&amp;$1/g;
        $s =~ s/"/&quot;/g;

        # escape all but these chars:
        $s =~ s/([^,\]\[\)\(%A-Za-z! \/\\|0-9'&;:._\?=-])/sprintf("%%%02X", ord($1))/seg;

        $s =~ s/%C2%AB/&#187;/g;
        return $s;
}

sub make_safe_url {
        my $url = $_[0];
        my @bits = split /\?/, $url;
        if( scalar( @bits ) == 2 ) {
                $bits[1] =~ s/([^A-Za-z0-9\?=])/sprintf("%%%02X", ord($1))/seg;
                return $bits[0] . $bits[1];
        } else {
                return $url;
        }
}