#!/usr/bin/perl -w
use strict;

use Data::Dumper;
use File::Find;

my $favorites_path = shift || 'C:/Windows/Favorites';	# assumptions are amazing

my @favorites;
find(\&scan, $favorites_path);

print "done reading...\n";
print "outputting to dumped_favorites.txt...";

open OUT, ">dumped_favorites.txt" or die "couldn't dump favorites: $!";
print OUT Data::Dumper->Dump([\@favorites], ['favorites']);
close OUT;

print "done.\n";

sub scan {
	return if ($_ eq '.' || $_ eq '..' || !-f $File::Find::name);
	my $record = {};
	{
		local $_;
		open FAVORITE, "<$File::Find::name" or die "couldn't open $File::Find::name: $!";
		while (<FAVORITE>) {
			s/URL=// and chomp and $record->{url} = $_;
		}
		close FAVORITE;
	}
	$record->{name} = substr($_, 0, -4);	# can rely on as extension is always url
	push @favorites, $record;
	print '.';
}