Changeset 328 for obsdata/trunk

Timestamp:

03/26/09 11:19:42 (15 years ago)

Author:

thetis

Message:

Petite mise à jour sur les display du plugins cr_lid_strato.pl

File:

• obsdata/trunk/ourplugins/cr_lid_strato.pl (modified) (2 diffs)

obsdata/trunk/ourplugins/cr_lid_strato.pl

@@ -29 +29 @@
     my ($rda, $plugintype, $datafile, $datatype) = @_;
 
-#       $datafile =~ /sho/ or return(0);
-#       my $archive = $rda->archive() or do {
-#            $rda->logging(4,
-#                'Can get archive'
-#            );
-#           return(0);
-#    };     
-
-        my $filename = ext_ar($rda, $datafile) or return(0);
+    my $filename = ext_ar($rda, $datafile) or return(0);
 
     my $resopen = open(my $h, $filename);
@@ -56 +48 @@
                 my $nextline = <$h>;
                 chomp($nextline);
-                print "$nextline\n";
                 my ($jour,$mois,$annee,$hd,$md,$sd,$hf,$mf)=
                 $nextline =~ /OHP      (\d\d)\/(\d\d)\/\d\d(\d\d) (\d\d):(\d\d):(\d\d) (\d\d):(\d\d):\d\d/;
                 if ($1) {
-                        print "$hd$md$sd\n";
                    return (1, 'jour' => "$jour", 'mois' => "$mois", 'annee' => "$annee", 'dheure' => "$hd$md$sd");
                 } else {