CPAPtalk.com

Code: Select all

#!/usr/bin/perl

# Before first use, Place the FlashAir inside the CPAP machine and allow it to 
# reformat the card (if necessary, depends on CPAP model). Once done, put the card 
# back in your computer and modify the SD_WLAN/CONFIG file on the SD card to
# look like this:  -- see https : //flashair-developers.com/en/documents/

#[Vendor]
#APPMODE=5
#APPNAME=cpap
#PRODUCT=FlashAir
#VENDOR=TOSHIBA
#APPSSID=<yourssid>
#APPNETWORKKEY=<yourwifipassword>
#LOCK=1
#APPAUTOTIME=0

# Remove the card and reinsert it into your computer.  You should be able to access
# the card via web browser using the hostname cpap.local.  If so, the card should
# be ready to be permanently moved to the CPAP machine.

$host = "cpap.local";

sub get_dirlist {
	my @dirlist = ();
	my $path = shift;
	open CURL, "curl -s 'http://$host/command.cgi?op=100&DIR=$path'|";
	while(<CURL>) {
		push @dirlist, $_;
	}
	close CURL;

	for (@dirlist) {
		next if /WLANSD/;
		($dirname, $filename, $size, $attribute, $date, $time) = split(/,/);
		$path = "$dirname/$filename";
		$path =~ s/^\///;
		if ($attribute & 0x10) {
			system "mkdir -p $path";
			get_dirlist($path);
		} else {
			if (-e $path && (stat $path)[7] == $size) {
				print "$path: skipping\n";
				next;
			}
			print "$path: downloading\n";
			system "curl -so $path 'http://$host/$path'";
		}
	}
}

get_dirlist("/");