#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

# Variablendefinition
my $url='';

print("Sortieren von JOSM-Bookmarks\n");
print("----------------------------\n");

# Name der Bookmark-Datei
my $file_bookmark_name='test.txt';

# Name der Sicherungsdatei
my $file_bookmark_backup='test.bak';

# Verzeichnis in welchem sich das bookmark befindet
# dieses kann später noch autom. generiert werden
my $josm_appdata_folder='C:\\Users\\Tappenbeck\\AppData\\Roaming\\JOSM\\';

# Ist die BAK-Datei vorhanden ?
# ja => löschen

print "\nBackup loeschen ...\n";
if (-e $josm_appdata_folder.$file_bookmark_backup){
    #löschen der bestehenden bookmark-datei
    unlink $josm_appdata_folder.$file_bookmark_backup or warn "Kann Datei $file_bookmark_backup nicht loeschen !\n";
  }else{
    warn "Datei: $file_bookmark_backup nicht vorhanden !";
  }

# Erstellen einer Kopie der BOOKMARK-Datei
print "\nBookmark sichern ...\n";
if (-e $josm_appdata_folder.$file_bookmark_name){
    #sichern der bestehenden bookmark-datei
    rename $josm_appdata_folder.$file_bookmark_name, $josm_appdata_folder.$file_bookmark_backup;
    print "datei bearbeitung \n\n";
  }else{
    warn "Datei: $file_bookmark_name nicht gefunden !";
  }


# Auslesen der BOOKMARK-Datei => Array
print "\nBackup einlesen ...\n";
open(DATEI, "<".$josm_appdata_folder.$file_bookmark_backup) || die "Fehler beim Öffnen der Bookmarkliste";
my @Zeilen = <DATEI>;
close(DATEI);

print "\nDaten sortieren ...\n";
# Sortieren des eingelesenen Array's
my @NeueZeilen;
@NeueZeilen = sort @Zeilen;

# Schreiben der sortierten BOOKMARK-Datei

print "\nsortierte Daten schreiben ...\n";
open(DATEI, ">c:/temp/test999.txt") || die "Bookmark-Datei kann nicht geschrieben werden !";
print DATEI @NeueZeilen;
close(DATEI);

# Fertig
print "\n... fertig !!\n";

open(DATEI, "<".$josm_appdata_folder.$file_bookmark_backup) || die "Fehler