#!/usr/bin/perl
#Search for bookmarks.html and print only the user added content
use strict;
use warnings;
use File::Find;

if (@ARGV){

        print "\\\\server\\profile\\$ARGV[0]\\Anwendungsdaten\\MozillaOLD\\Profiles\n";

        my $dir = ("\\\\server\\profile\\$ARGV[0]\\Anwendungsdaten\\MozillaOLD\\Profiles");
        my $datei = 'bookmarks.html';
        my $pfad = find(\&wanted, $dir);

        sub wanted {
                return unless ( $File::Find::name =~ $datei);
                $File::Find::name =~ s/\//\\/g;
                my @erer = $File::Find::name . "\n";
                open D, $erer[0] || die "geht nich";
                my @dat = <D>;
                my $dataz = (scalar @dat) -1;
                my $start = 21;

                my $check = "</DL><p>\n";

                if ($dat[$start] eq $check) {
                        $start = $start;
                        } else {
                        mach was;
                        }

#       DEBUG:
#       print @dat[$start...$dataz];

        print "\n";
                open(N, ">>C:\\WINNT5\\Profiles\\$ARGV[0]\\Anwendungsdaten\\Mozilla\\Firefox\\Profiles\\erdgasschwaben.default\\bookmarks.html") ||die "geht nich";
                print N @dat[$start...$dataz];
                close N;
                }
        } else {
                print "Parameter angeben\n";
        }
exit;