This list provides the name, office location and other contact information for Medicaid personal care provider agencies. Many of the agencies serve more than one county. Please feel free to contact the M-WIN Program at 304-293-4692 if you need assistance in locating a personal care provider near you.
Back to M-WIN
#!/usr/bin/perl
$version="2.41r";
#open(STDERR,">&STDOUT"); #Use to find cause of errors.
#********* BEGIN BODY********************
$uploadsdir='/home/cedwvu/programs/mwin/pcp/uploads/'; #Must end with a /
$uploadsURL='http://www.cedwvu.org/programs/mwin/pcp/uploads/'; #Must end with a /
$password="5HqwcGv6";
$logdir='/home/cedwvu/programs/mwin/pcp/logs/'; #Must end with a /
$logfile="${logdir}pcpdirectory_data.log";
$fieldnames="${logdir}pcpdirectory_fields.log";
$members="${logdir}pcpdirectory_members.log";
$reportdata="${logdir}pcpdirectory_report.log";
$code='8363';
$vendor='WT';
&readparse;
#BEGIN { $UnixCrypt::OVERRIDE_BUILTIN = 1 }
#use UnixCrypt;
if ($user_data{cgifunction} eq "exportset") {
print "Content-type: text/plain\n\n";
} else {
print "Content-type: text/html\n\n";
}
if ((!(-e $logdir))&&(length($logdir)>0)) {&error("Could not find logs directory $logdir")};
&getReportInfo;
&user if ($user_data{cgifunction} eq "user");
&add if ($user_data{cgifunction} =~/^(Add|Hinzufügen|Ajouter|Aggiungi|Agregar|Toevoegen|Incluir)$/);
&adminsearch if ($user_data{cgifunction} eq "Search/modify");
&maintenance if ($user_data{cgifunction} eq "maintenance");
&delete if $user_data{cgifunction} eq "delete";
&modify if $user_data{cgifunction} eq "modify";
&admin if $user_data{cgifunction} eq "admin";
&usersearch if $user_data{cgifunction} =~/^(Search|Suchen|Chercher|Cerca|Buscar|Zoeken|Pesquisar)$/;
&import if $user_data{cgifunction} eq "Import data";
&import2 if $user_data{cgifunction} eq "import2";
&export if $user_data{cgifunction} eq "Export data";
&export2 if $user_data{cgifunction} eq "export2";
&cache if $user_data{cgifunction} eq "cache";
&fieldmod if $user_data{cgifunction} eq "Modify fields";
&deleteField if $user_data{cgifunction} eq "deleteField";
&insertField if $user_data{cgifunction} eq "insertField";
&renameField if $user_data{cgifunction} eq "renameField";
&nextprev if $user_data{cgifunction} =~ /^(Next Page|Nächste Seite|Page suivante|Pagina Successiva|Página Siguiente|Volgende pagina|Próxima Página)$/;
&nextprev if $user_data{cgifunction} =~ /^(Previous Page|Vorherige Seite|Page précédente|Pagina Precedente|Página Anterior|Vorige pagina|Página Anterior)$/;
&members if $user_data{cgifunction} eq "Members";
&addmember if $user_data{cgifunction} eq "Add Member";
&deletemember if $user_data{cgifunction} eq "Delete Member";
&memberpage if $user_data{cgifunction} eq "memberpage";
&memberadd if $user_data{cgifunction} eq "add";
&reportpage if $user_data{cgifunction} eq "Customize Pages";
&modifyreport if $user_data{cgifunction} eq "Modify Pages";
&deleteset if $user_data{cgifunction} eq "deleteset";
&form if ($user_data{cgifunction} eq "form");
&sqlform if ($user_data{cgifunction} eq "sqlform");
&instantmember if ($user_data{cgifunction} eq "instantmember");
&exportset if ($user_data{cgifunction} eq "exportset");
&recordcount if ($user_data{cgifunction} eq "recordcount");
&replace if ($user_data{cgifunction} eq "replace");
&wtcart::configurecart if ($user_data{cgifunction} eq "Configure Shopping Cart");
&wtcart::saveCartSettings if ($user_data{cgifunction} eq "Save Cart Settings");
&wtcart::checkout if ($user_data{cgifunction} eq "checkout");
&wtcart::checkout2 if ($user_data{cgifunction} eq "checkout2");
&wtcart::checkout3 if ($user_data{cgifunction} eq "checkout3");
&wtcart::viewcart if ($user_data{cgifunction} eq "viewcart");
&wtcart::savecart if ($user_data{cgifunction} eq "savecart");
&wtcart::emptycart if ($user_data{cgifunction} eq "emptycart");
&wtcart::refreshcart if ($user_data{cgifunction} eq "refreshcart");
&wtcart::process if ($user_data{cgifunction} eq "process order");
&wtcart::retrieveOrders if ($user_data{cgifunction} eq "Retrieve Orders");
&wtcart::deleteOrders if ($user_data{cgifunction} eq "Delete Orders");
&error('There is no value for cgifunction') if $user_data{cgifunction} eq "";
sub error {
print "$_[0]
\n";
die "$_[0] $!";
}
#*****BEGIN INSTANTMEMBER SUBROUTINE
sub instantmember {
&error("Instant Member disabled by admin") if $allowInstantMember!=1;
if ($user_data{username} eq "admin") {
print "";
exit;
};
&putlock;
open(FILE,"<$members");
@members=;
close FILE;
&removelock;
foreach (@members) {
($user,$pass)=split(/::/);
if ($user_data{username} eq $user) {
print "";
exit;
};
};
$pass=crypt($user_data{password},7);
$line="$user_data{username}::$pass\n";
&putlock;
open(FILE,">>$members");
print FILE ("$line");
close FILE;
&removelock;
&memberpage;
};
#****END INSTANTMEMBER SUBROUTINE
sub form {
if ($usersearch!=1) {
if ($membersCanSearch) {
&memberpass;
} else {
&checkpass;
};
};
&wtcart::resultPageScript if $useCart;
&language;
pop(@value);
$id=$user_data{fid};
if ($formTemplateOn != 1) {
print "
FORM DATA
0) {print " BACKGROUND=\"$background\""};
print ">
$reportHeader
";
};
&template if $formTemplateOn==1;
if ($useCart) {
print qq();
unless ($formTemplateOn) {
print qq();
}
}
&wtcart::footer_cart_buttons if $useCart;
print "
Back to Search Results
\ \;
" if length($user_data{query})>0;
if
((length($user_data{cgilanguage})>0)&&($searchPage=~/cgifunction=user$/))
{
$searchPage.="\&language=$user_data{cgilanguage}";
}
print "\ \;\ \;$searchagain\n" if $searchAgain;
print "\ \;\ \;$returntohomepage\n" if $returnToHomepage;
#print "
$poweredbywebteacher";
};
#*******END FORM SUBROUTINE******
#BEGIN TEMPLATE
sub template {
$uploadcount=1;
@escape=();
foreach (@data) {
$tempescape=escape($_);
push(@escape,$tempescape);
if (!$templateNoSubstitute) {
&gettype($types[$uploadcount]);
s/^([0-9a-zA-Z_\-\.\~]+\@[0-9a-zA-Z_\-\.\~]+\.[0-9a-zA-Z_\-\.\~]+)/$1<\/A>/g;
if ($_!~/\.(gif|jpg)$/) {
if ($type eq "upload") {
@filenameparts=split('_',$_);
$filename=@filenameparts[$#filenameparts];
$_=~s/^(http[^ \<\>]+)/$filename<\/A>/g;
} else {
s/^(http[^ ]+)/$1<\/A>/g;
};
};
s/^([^ ]+\.(gif|jpg))$/\
/g;
$uploadcount++;
};
};
$dateCreated=&getDate($id);
$formTemplate=~s/(\$if[^\}]*\})/&getIf($1)/ge;
$formTemplate=~s/\$data\[([0-9]+)\]/$data[$1]/g;
$formTemplate=~s/\$escape\[([0-9]+)\]/$escape[$1]/g;
$formTemplate=~s/\$fields\[([0-9]+)\]/$fields[$1]/g;
$formTemplate=~s/\$id/$id/g;
$formTemplate=~s/\$datecreated/$dateCreated/g;
$formTemplate=~s/\$membername/$owner/g;
if ($useCart) {
$tmp=&wtcart::addButton("cart1");
$formTemplate=~s/\$addbutton/
Return to Administration Page
";
};
#****END ADD/REMOVE MEMBERS SUBROUTINE
#*******BEGIN NEXTPREV SUBROUTINE*****
# THIS SUBROUTINE REPLACES THE PAGENUM CRITERIA, THEN
# RUNS THE USERSEARCH ROUTINE
sub nextprev {
if ($user_data{cgifunction} =~ /^(Next Page|Nächste Seite|Page suivante|Pagina Successiva|Página Siguiente|Volgende pagina|Próxima Página)$/) {$n=1} else {$n=-1};
$p=$user_data{pagenum}+$n;
$q=$user_data{query};
$replace="pagenum=$p";
$find="pagenum=$user_data{pagenum}";
$q=~s/$find/$replace/;
#EMPTY VALUE AND USER_DATA ARRAYS BEFORE RUNNING READPARSE
@value=();
%user_data=();
&readparse($q);
&usersearch if ($user_data{cgifunction} =~/^(Search|Suchen|Chercher|Cerca|Buscar|Zoeken|Pesquisar)$/);
&adminsearch if ($user_data{cgifunction} eq "Search/modify");
};
#*******END NEXTPREV SUBROUTINE*******
#*******BEGIN RENAMEFIELD SUBROUTINE***
sub renameField {
&checkpass;
$select = $value[0];
$select++;
$value[1]=~s/ *, */,/g if $value[1]=~/::list/; #remove spaces around comma
open(FIELDS,"<$fieldnames");
@fields=;
close FIELDS;
$newfield="$value[1]\n";
$fields[$select]=$newfield;
open(RESULT,">$fieldnames");
print RESULT (@fields);
close RESULT;
#****RETURN TO FIELD MODIFY SCREEN****
@value=();
&fieldmod;
};
#*******END RENAME FIELD SUBROUTINE****
#*******BEGIN INSERTFIELD SUBROUTINE****
sub insertField {
&checkpass;
$select = $value[0];
$select++;
$value[1]=~s/ *, */,/g if $value[1]=~/::list/; #remove spaces around comma
open(FIELDS,"<$fieldnames");
@fields=;
close FIELDS;
$numfields=@fields;
$newfield="$fields[$select]$value[1]\n";
$fields[$select]=$newfield;
open(RESULT,">$fieldnames");
print RESULT (@fields);
close RESULT;
&putlock; #place a lock file in the uploads dir to prevent simultanious writing.
open(RECORDS,"<$logfile");
@records = ;
close RECORDS;
&removelock; #remove lock file
foreach (@records) {
chop($_);
@linedata=split(/::/,$_);
$newdata="$linedata[$select]::";
$linedata[$select]=$newdata;
$newline=join('::',@linedata);
$_="$newline\n";
};
open(RECORDS,">$logfile");
print RECORDS (@records);
close RECORDS;
#***RESET PREFERENCES****
foreach (@sequence) {if ($_>$select-1) {$_++}};
foreach (@SFsequence) {if ($_>$select-1) {$_++}};
push(@sequence,$select);
push(@SFsequence,$select);
$reportData[2]=join(':',@sequence);
$reportData[24]=join(':',@SFsequence);
for ($i=$#fields;$i>=$select;$i--) {
$num=$i+1;
$searchTemplate=~s/\$data\[$i\]/\$data\[$num\]/g;
$formTemplate=~s/\$data\[$i\]/\$data\[$num\]/g;
}
$searchTemplate=~s/\n/::/g;
$formTemplate=~s/\n/::/g;
$reportData[11]=$searchTemplate;
$reportData[13]=$formTemplate;
open (REPORT,">$reportdata") or &error("Could not open $reportdata for writing");
foreach (@reportData) {
print REPORT ("$_\n");
};
close REPORT;
#****RETURN TO FIELD MODIFY SCREEN****
@value=();
&fieldmod($select);
};
#*******END INSERTFIELD SUBROUTINE******
#*******BEGIN DELETEFIELD SUBROUTINE****
sub deleteField {
&checkpass;
$select = $value[0];
$select++;
open(FIELDS,"<$fieldnames") or &error("Could not open $fieldnames");
@fields=;
close FIELDS;
foreach $field (@fields) {
if ($field ne $fields[$select]) {
push(@result,$field);
}
}
open(FIELDS,">$fieldnames") or &error("Could not open $fieldnames");
print FIELDS (@result);
close FIELDS;
&putlock; #place a lock file in the uploads dir to prevent simultanious writing.
open(RECORDS,"<$logfile") or &error("Could not open $logfile");
@records=;
close RECORDS;
&removelock; #remove lock file
foreach $record (@records) {
chop($record);
@linedata=split(/::/,$record);
push(@deleteset,$linedata[0]);
@newline=("");
$count=0;
foreach $item (@linedata) {
if ($count != $select) {
push(@newline,$item);
};
$count++;
};
shift(@newline);
$record = join('::',@newline)."\n";
};
open(RECORDS,">$logfile") or &error("Could not open $logfile");
print RECORDS (@records);
close RECORDS;
#DELETE IMAGES
($fieldname,$type)=split(/::/,$fields[$select]);
chomp($fieldname);
if ($type=~/upload/) {
foreach $value (@deleteset) {
$uploadpath="${uploadsdir}${value}_$fieldname";
unlink <$uploadpath*>;
}
}
#END DELETE IMAGES
#***RESET PREFERENCES****
@result=();
foreach (@sequence) {
if ($_==$select) {$_=-1}
if ($_>$select-1) {$_--}
if ($_!=-1) {push(@result,$_)};
};
@sequence=@result;
@result=();
foreach (@SFsequence) {
if ($_==$select) {$_=-1}
if ($_>$select-1) {$_--}
if ($_!=-1) {push(@result,$_)};
};
@SFsequence=@result;
$reportData[2]=join(':',@sequence);
$reportData[24]=join(':',@SFsequence);
$num=$select-1;
$searchTemplate=~s/\$data\[$num\]/XXXX/g;
$formTemplate=~s/\$data\[$num\]/XXXX/g;
for ($i=$select;$i<$#fields;$i++) {
$num=$i-1;
$searchTemplate=~s/\$data\[$i\]/\$data\[$num\]/g;
$formTemplate=~s/\$data\[$i\]/\$data\[$num\]/g;
}
$searchTemplate=~s/\n/::/g;
$formTemplate=~s/\n/::/g;
$reportData[11]=$searchTemplate;
$reportData[13]=$formTemplate;
open (REPORT,">$reportdata") or &error("Could not open $reportdata for writing");
foreach (@reportData) {
print REPORT ("$_\n");
};
close REPORT;
#****RETURN TO FIELD MODIFY SCREEN****
@value=();
&fieldmod;
};
#*******END DELETEFIELD SUBROUTINE******
#*******BEGIN FIELDMOD SUBROUTINE********
sub fieldmod {
&checkpass;
if (length($_[0])>0) {
$select=$_[0];
} else {
$select=-1;
}
open(FIELDS,"<$fieldnames") or &error("Could not open $fieldnames");
@fields=;
close FIELDS;
shift(@fields);
$num=@fields;
$num++;
print "";
print "
Webdata Modify Fields
Modify Field List
Remember, whenever you add or remove fields, you need to change your field selections on the 'customize pages' screen.
To create a text box: Click Insert or Redefine field. Enter the field\'s name in the first prompt box. Enter the word \"text\" in the second prompt box. Enter the SIZE in number of characters for the new text box.
To create a checkbox: Click Insert or Redefine field. Enter the field\'s name in the first prompt box. Enter the word \"checkbox\" in the second prompt box. That's it.
To create a selection list: Click Insert or Redefine field. Enter the field\'s name in the first prompt box. Enter the
word \"list\" in the second prompt box. In the third prompt box, enter the list of values, seperated by a comma without spaces around the comma. For example.
Fire Engine Red,Lemon Yellow,Medium Blue,Salmon,Crimson,Ash White
To create a textarea box for comments: Click Insert or Redefine field. Enter the field\'s name in the first
prompt box. Enter the word \"comment\" in the second prompt box. In the third box, enter the number of rows high you wish
to make your comment box. It will have a width of 60 characters.
To create an upload field with the option to upload with a web browser, enter the word \"upload\" in the second prompt box. In the third box, for security,
enter the maximum size in Kilobytes for uploaded pictures or files. You must have the CGI.pm module to use this feature";
if ($useCart) {
print "
SHOPPING CART USERS: There are 2 additional field types for use with the shopping cart module: variance and price-variance. A variance field will allow you to enter a list of options into that field, and the options will appear in a select list on the search results screen. For example, you could create a variance field named \"colors\", then, enter \"red,green,gold\" into the field, and the user will be able to choose from those three colors at checkout.
A price-variance field is similar to a variance field, however you may enter the price of each option. For example, you could have a field for \"Size\" and enter \"Small,4.95,Medium,7.50,Large,9.95,X-Large,12.25\" into the text box when you add the record. The user will see a list of sizes, with the price next to each one. The price which the user chooses will be the amount added to the shopping cart. If a price-variance field exists and is not empty, the price variance field will always override the \"price\" field declared in the Shopping Cart Setup Screen.";
}
print "
Return to Administration Page
To insert a field at the top of the list, do not select anything.
Click here to clear the selection
