Remove forking from module

There is a update_files.pl script in the utils directory, which must be running in background in order to update the spec files.

Remove forking from module
There is a update_files.pl script in the utils directory, which must be running in background in order to update the spec files.
Athos
1 parent 2def8b9f
Showing 3 changed files with 26 additions and 7 deletions Show diff stats
README.md
lib/CoprStatus.pm
util/update_files.pl
@@ -13,8 +13,9 @@
  
 > This app was built to support the development of Portal do Software Público
 Brasileiro. It shows versions for published packages in EPEL7 Fedora Copr
-repositories. Note that this app consists of a single package (CoprStatus), a
-PSGI script, a template file and Bootstrap.
+repositories. Note that this app consists of a package (CoprStatus), a
+PSGI script, a script to update information on .spec files, a template file
+and Bootstrap.
  
 ----
 # Development
@@ -48,6 +49,9 @@ plackup [--port PORT_NUMBER] -Ilib
 plackup -Ilib
 ```
  
+> There is a util/update_files.pl file that must be running
+in order to update spec files.
+
 ----
 # Configuration
  
@@ -192,9 +192,4 @@ sub serve_json_status {
   ];
 };
  
-my $child_pid = fork();
-if($child_pid) {
-  update_files();
-}
-
 1;
@@ -0,0 +1,20 @@
+use CoprStatus;
+use YAML::XS 'LoadFile';
+
+my $config = LoadFile('config.yaml');
+
+sub update_files {
+  while(1) {
+    my $user = $config->{User};
+    my $repo_index = 0;
+    foreach my $branch (@{$config->{Branches}}) {
+      CoprStatus::download_specs($branch, $user, ${$config->{Repositories}}[$repo_index]);
+      $repo_index += 1;
+    }
+
+    sleep $config->{UpdateRate};
+  }
+}
+
+update_files();
+
...	...	@@ -13,8 +13,9 @@
13	13
14	14	> This app was built to support the development of Portal do Software Público
15	15	Brasileiro. It shows versions for published packages in EPEL7 Fedora Copr
16		-repositories. Note that this app consists of a single package (CoprStatus), a
17		-PSGI script, a template file and Bootstrap.
	16	+repositories. Note that this app consists of a package (CoprStatus), a
	17	+PSGI script, a script to update information on .spec files, a template file
	18	+and Bootstrap.
18	19
19	20	----
20	21	# Development
...	...	@@ -48,6 +49,9 @@ plackup [--port PORT_NUMBER] -Ilib
48	49	plackup -Ilib
49	50	```
50	51
	52	+> There is a util/update_files.pl file that must be running
	53	+in order to update spec files.
	54	+
51	55	----
52	56	# Configuration
53	57
...	...
...	...	@@ -192,9 +192,4 @@ sub serve_json_status {
192	192	];
193	193	};
194	194
195		-my $child_pid = fork();
196		-if($child_pid) {
197		- update_files();
198		-}
199		-
200	195	1;
...	...
...	...	@@ -0,0 +1,20 @@
	1	+use CoprStatus;
	2	+use YAML::XS 'LoadFile';
	3	+
	4	+my $config = LoadFile('config.yaml');
	5	+
	6	+sub update_files {
	7	+ while(1) {
	8	+ my $user = $config->{User};
	9	+ my $repo_index = 0;
	10	+ foreach my $branch (@{$config->{Branches}}) {
	11	+ CoprStatus::download_specs($branch, $user, ${$config->{Repositories}}[$repo_index]);
	12	+ $repo_index += 1;
	13	+ }
	14	+
	15	+ sleep $config->{UpdateRate};
	16	+ }
	17	+}
	18	+
	19	+update_files();
	20	+
...	...