0x1998 - MANAGER

Edit File: 822.pm

#!/usr/bin/perl -w
# This file was preprocessed, do not edit!

package Debconf::Format::822;
use strict;
use base 'Debconf::Format';

sub beginfile {}
sub endfile {}

sub read {
	my $this=shift;
	my $fh=shift;
	
	local $/="\n";
	
	my $name;
	my %ret=(
		owners => {},
		fields => {},
		variables => {},
		flags => {},
	);

my $invars=0;
	my $line;
	while ($line = <$fh>) {
		chomp $line;
		last if $line eq ''; # blank line is our record delimiter

if ($invars) {
			if ($line =~ /^\s/) {
				$line =~ s/^\s+//;
				my ($var, $value)=split(/\s*=\s?/, $line, 2);
				$value=~s/\\n/\n/g;
				$ret{variables}->{$var}=$value;
				next;
			}
			else {
				$invars=0;
			}
		}

my ($key, $value)=split(/:\s?/, $line, 2);
		$key=lc($key);
		if ($key eq 'owners') {
			foreach my $owner (split(/,\s+/, $value)) {
				$ret{owners}->{$owner}=1;
			}
		}
		elsif ($key eq 'flags') {
			foreach my $flag (split(/,\s+/, $value)) {
				$ret{flags}->{$flag}='true';
			}
		}
		elsif ($key eq 'variables') {
			$invars=1;	
		}
		elsif ($key eq 'name') {
			$name=$value;
		}
		elsif (length $key) {
			$value=~s/\\n/\n/g;
			$ret{fields}->{$key}=$value;
		}
	}

return unless defined $name;
	return $name, \%ret;
}

sub write {
	my $this=shift;
	my $fh=shift;
	my %data=%{shift()};
	my $name=shift;

print $fh "Name: $name\n" or return undef;
	foreach my $field (sort keys %{$data{fields}}) {
		my $val=$data{fields}->{$field};
		$val=~s/\n/\\n/g;
		print $fh ucfirst($field).": $val\n" or return undef;
	}
	if (keys %{$data{owners}}) {
		print $fh "Owners: ".join(", ", sort keys(%{$data{owners}}))."\n"
			or return undef;
	}
	if (grep { $data{flags}->{$_} eq 'true' } keys %{$data{flags}}) {
		print $fh "Flags: ".join(", ",
			grep { $data{flags}->{$_} eq 'true' }
				sort keys(%{$data{flags}}))."\n"
			or return undef;
	}
	if (keys %{$data{variables}}) {
		print $fh "Variables:\n" or return undef;
		foreach my $var (sort keys %{$data{variables}}) {
			my $val=$data{variables}->{$var};
			$val=~s/\n/\\n/g;
			print $fh " $var = $val\n" or return undef;
		}
	}
	print $fh "\n" or return undef; # end of record delimiter
	return 1;
}

1

La SFMTU

Menu principal

Connexion

Accueil

La SFMTU est née en 2011 de la volonté de développer une coopération entre médecine du travail et médecine d’urgence, afin d’optimiser la prise en charge des urgences médicales en milieu du travail.

Elle a pour objet statutaire le « développement national et international de la coopération entre la médecine du travail et la médecine d’urgence dans tous ses aspects… »

Elle est ouverte aux professionnels de la santé au travail et de l’urgence.

Vous êtes cordialement invités à rejoindre la SFMTU, dont les premiers axes de travail sont orientés autour des 3 principales thématiques retenues pour cette première année d’existence:

Réseau et échanges
Diffusion et promotion
Enseignement et recherche, incluant les bonnes pratiques, les recommandations et la capitalisation des savoir-faire

Conditions d’admission et cotisation :

Médecins : appartenir à l’une des 2 catégories (médecine du travail ou médecine d’urgence), et être porteur d’une volonté de développement de cette thématique commune.

Infirmier(e)s : Avoir validé un enseignement de médecine d’urgence (DU).

La cotisation annuelle est fixée à 30 € pour l'année 2018.

Télécharger les statuts de la SFMTU