update

Task/File-modification-time/Erlang/file-modification-time.erl

@@ -0,0 +1,11 @@
+-module( file_modification_time ).
+
+-include_lib("kernel/include/file.hrl").
+
+-export( [task/0] ).
+
+task() ->
+       File = "input.txt",
+       {ok, File_info} = file:read_file_info( File ),
+       io:fwrite( "Modification time ~p~n", [File_info#file_info.mtime] ),
+       ok = file:write_file_info( File, File_info#file_info{mtime=calendar:local_time()} ).

Task/File-modification-time/NetRexx/file-modification-time.netrexx

@@ -0,0 +1,29 @@
+/* NetRexx */
+options replace format comments java crossref symbols binary
+
+runSample(arg)
+return
+
+-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+method runSample(arg) public static
+  parse arg fileName
+  if fileName = '' then fileName = 'data/tempfile01'
+  mfile = File(fileName)
+  mtime = mfile.lastModified()
+  dtime = Date(mtime).toString()
+  say 'File' fileName 'last modified at' dtime
+  say
+  if mfile.setLastModified(0) then do
+    dtime = Date(mfile.lastModified()).toString()
+    say 'File modification time altered...'
+    say 'File' fileName 'now last modified at' dtime
+    say
+    say 'Resetting...'
+    mfile.setLastModified(mtime)
+    dtime = Date(mfile.lastModified()).toString()
+    say 'File' fileName 'reset to last modified at' dtime
+    end
+  else do
+    say 'Unable to modify time for file' fileName
+    end
+  return