Katana_mirror/kde-extraapps
1
0
Fork 0
mirror of https://bitbucket.org/smil3y/kde-extraapps.git synced 2025-02-24 10:52:53 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

kget: remove update (upd) files

Browse source
This commit is contained in:
Ivailo Monev 2014-12-31 14:48:26 +00:00
parent 88fc5ae59f
commit 2023560860
4 changed files with 0 additions and 87 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
kget/conf/CMakeLists.txt
View file

@ -1,4 +1 @@
install(FILES kget.kcfg DESTINATION ${KCFG_INSTALL_DIR}) install(FILES kget.kcfg DESTINATION ${KCFG_INSTALL_DIR})
install(FILES kget.upd DESTINATION ${KCONF_UPDATE_INSTALL_DIR})
install(PROGRAMS kget_sensitive.pl DESTINATION ${KCONF_UPDATE_INSTALL_DIR})
install(PROGRAMS kget_limitdownloads.pl DESTINATION ${KCONF_UPDATE_INSTALL_DIR})

31
kget/conf/kget.upd
View file

@ -1,31 +0,0 @@
Id=2.8.0
File=kgetrc
Group=Advanced
RemoveKey=ExpertMode
Group=Appearance
RemoveKey=Columns
RemoveKey=ShowExpandableTransferDetails
RemoveKey=ShowSplashscreen
RemoveKey=EnablePopupTooltip
Group=Geometry
RemoveKey=ColumnWidths
Group=Network
RemoveKey=AutoShutdown
RemoveKey=AutoDisconnect
RemoveKey=MaxConnectionsServer
Id=2.8.0/multiseg
File=kget_multisegkiofactory.rc
Group=Segments
RemoveKey=SplitSize
RemoveKey=SaveSegSize
Id=2.8.0/sensitive
File=kgetrc
Group=Advanced
Script=kget_sensitive.pl,perl
Id=2.8.0/limitdownloads
File=kgetrc
Group=Network
Script=kget_limitdownloads.pl,perl

36
kget/conf/kget_limitdownloads.pl
View file

@ -1,36 +0,0 @@
#!/usr/bin/perl
$doChange=0;
$connections=0;
while(<>)
{
($key) = ($_ =~ /([^=]*)=(.*)$/);
($value) = ($_ =~ /^[^=]*=(.*)$/);
if( $key eq "LimitDownloads" )
{
if ( $value eq "false" )
{
$doChange=1;
}
print "# DELETE " . $key . "\n";
next;
}
if ( $key eq "MaxConnections" )
{
$connections=$value;
print "# DELETE MaxConnections\n";
next;
}
print $_;
}
if ( $doChange eq 1 )
{
print "MaxConnections=0\n";
} else {
print "MaxConnections=" . $connections . "\n";
}

17
kget/conf/kget_sensitive.pl
View file

@ -1,17 +0,0 @@
#!/usr/bin/perl
while(<>)
{
($key) = ($_ =~ /([^=]*)=(.*)$/);
($value) = ($_ =~ /^[^=]*=(.*)$/);
if( $key eq "AutoPasteCaseInsensitive" and $value eq "false" )
{
print "# DELETE " . $key . "\n";
print "AutoPasteCaseSensitive=true\n";
next;
}
print $_;
}