- if (!open(FACONF, "$userpath/$form->{login}_$filename")) {
- open(FANEW, ">$userpath/$form->{login}_$filename") ||
- $form->error("$userpath/$filename : $!");
- close(FANEW);
- open(FACONF, "$userpath/$form->{login}_$filename") ||
- $form->error("$userpath/$form->{username}_$filename : $!");
- }
+ $filename = "$form->{login}_$filename";
+ $filename =~ s|.*/||;
+ $filename = "$userspath/$filename";
+ open my $FACONF, "<", $filename or sub {# Annon Sub
+ # catch open error
+ # create file if file does not exist
+ open my $FANEW, ">", $filename or $form->error("CREATE: $filename : $!");
+ close $FANEW or $form->error("CLOSE: $filename : $!");
+
+ #try again open file
+ open my $FACONF, "<", $filename or $form->error("OPEN: $filename : $!");
+ };