
Anthony
Deleted
Mar 24, 2000, 6:36 PM
Post #3 of 3
(1884 views)
|
Okay, I've written something (at 4 in the morning) and plugged it into my main script, but it just throws a compilation error. <BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR> ################# # Sub WhoCheck # ################# sub WhoCheck { $date = time() open (WHOREAD,"<$reg_dir/$room_who.txt") | | die "Egads!: $!"; flock(WHOREAD, 2); @user_array = <WHOREAD>; flock(WHOREAD, 8); close (WHOREAD); open (WHOWRITE,">$reg_dir/$room_who.txt") | | die "Egads!: $!"; flock(WHOWRITE, 2); foreach $lines(@user_array) { @edit_array = split(/\|/, $lines); $late = $date + 600; if ($edit_array[1] >= $late { local $^I = ""; ################ edit in place ################ local @ARGV = $reg_dir/$room_who.txt; while (<> ) { chomp(($user,$date) = split /\|/); } } elsif ($edit_array[0] eq $user) { $edit_array[1] = $date; } else { &append; } } flock(WHOWRITE, 8); close (WHOWRITE); } ##################### # End Sub WhoCheck # ##################### ############### # Sub append # ############### sub append { open (APPEND,">>$reg_dir/$room_who.txt") | | die "Egads!: $!"; flock(APPEND, 2); print APPEND ("$user|$date\n"); flock(APPEND, 8); close (APPEND); } ################### # End Sub append # ################### </pre><HR></BLOCKQUOTE> Eh, is that just sloppy coding or what? Any ideas as to what is throwing the error? Anthony
|