26 lines
670 B
Perl
Executable File
26 lines
670 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# gsync - Graphically run the `sync` command to flush the write buffers to
|
|
# flash drives and things in Linux.
|
|
#
|
|
# If you want to make sure data is written to a flash drive without having to
|
|
# unmount it, sync is the command to run. This just adds libnotify popups
|
|
# about it.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Icon to use
|
|
my $icon = "/usr/share/icons/gnome/32x32/actions/stock_refresh.png";
|
|
|
|
# Start
|
|
system("notify-send",
|
|
"--icon" => $icon,
|
|
"Syncing removable media...");
|
|
my $now = time();
|
|
system("sync");
|
|
my $elapsed = time() - $now;
|
|
system("notify-send",
|
|
"--icon" => $icon,
|
|
"Sync completed in $elapsed second" . ($elapsed == 1 ? '' : 's') . "!");
|