1 files changed, 15 insertions, 0 deletions
diff --git a/postfix_wizard/scripts/testlabel.pl b/postfix_wizard/scripts/testlabel.pl
new file mode 100644
index 00000000..c61d3cb0
--- /dev/null
+++ b/postfix_wizard/scripts/testlabel.pl
@@ -0,0 +1,15 @@
+$toto = "tutu";
+$tata = "titi";
+
+$file = "/home/logarno/toto";
+open(CANONICAL, "< $file");
+while (<CANONICAL>) {
+    if (/\@$toto\s*\@$tata/){
+	goto NOUPDATE; 
+    }
+}
+close(CANONICAL);
+open(CANONICAL, ">> $file");
+print CANONICAL "\n\@$toto \@$tata";
+ NOUPDATE:
+    close(CANONICAL);