Changeset 20b4e44 for app/src/ser

Timestamp:

03/19/08 12:29:21 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

389de9a

Parents:

d593c5e

git-author:

pawelk <pawelk@…> (03/19/08 12:29:21)

git-committer:

pawelk <pawelk@…> (03/19/08 12:29:21)

Message:

Wersja niestabilna, zawiera wstepne poprawki.

git-svn-id: ​svn://atos.wmid.amu.edu.pl/utt@13 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

File:

• app/src/ser/ser (modified) (3 diffs)

app/src/ser/ser

@@ -3 +3 @@
 #package:        UAM Text Tools
 #component:      ser (pattern search tool)
-#author:         Tomasz Obrêbski
+#version:        1.0
+#author:         Tomasz Obrebski
 
 use strict;
 use Getopt::Long;
 use File::Temp;
+use File::HomeDir;
 
 my $LIB_DIR="/usr/local/lib/utt";
-
 my $systemconfigfile='/usr/local/etc/utt/ser.conf';
-my $userconfigfile="$ENV{'HOME'}/.utt/ser.conf";
-
-#use lib "$ENV{HOME}/.utt/lib/perl";
-#use attr;
+#my $userconfigfile="$ENV{'HOME'}/.utt/ser.conf";
+my $userconfigfile=home()."/.utt/ser.conf";
 
 Getopt::Long::Configure('no_ignore_case_always');
@@ -161 +160 @@
 if($flex)
 {
-    system "cat $tmpfile_l";
-    exit 0;
+        #system "cat $tmpfile_l";
+        if(open(FLEX, $tmpfile_l)) {
+                while(<FLEX>) {
+                        print @_;
+                }
+                close FLEX;
+        }
+        else {
+                print "Unable to open file $tmpfile_l\n";
+        }
+        exit 0;
 }
 
@@ -169 +177 @@
 system "$tmpfile_x";
 
-system "rm -f $tmpfile_l $tmpfile_c $tmpfile_x";
+#system "rm -f $tmpfile_l $tmpfile_c $tmpfile_x";
+unlink $tmpfile_l;
+unlink $tmpfile_c;
+unlink $tmpfile_x;